Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

If [CONDITION] Then '=> SI condition vraie ALORS 'Instructions si vrai Else '=>

If [CONDITION] Then '=> SI condition vraie ALORS 'Instructions si vrai Else '=> SINON (facultatif) 'Instructions si faux End If Sub exemple() 'Déclaration des variables Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer 'Valeurs des variables numeroLigne = Range("F5") + 1 nom = Cells(numeroLigne, 1) prenom = Cells(numeroLigne, 2) age = Cells(numeroLigne, 3) 'Boîte de dialogue MsgBox nom & " " & prenom & ", " & age & " ans" End Sub Sub exemple() 'Si la valeur entre parenthèses (cellule F5) est numérique (donc si la condition est vraie) alors on exécute les instructions placées entre "Then" et "End If" If IsNumeric(Range("F5")) Then 'Déclaration des variables Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer 'Valeurs des variables numeroLigne = Range("F5") + 1 nom = Cells(numeroLigne, 1) prenom = Cells(numeroLigne, 2) age = Cells(numeroLigne, 3) 'Boîte de dialogue MsgBox nom & " " & prenom & ", " & age & " ans" End If End Sub Sub exemple() 'Si F5 est numérique If IsNumeric(Range("F5")) Then 'Déclaration des variables Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer 'Valeurs des variables numeroLigne = Range("F5") + 1 nom = Cells(numeroLigne, 1) prenom = Cells(numeroLigne, 2) age = Cells(numeroLigne, 3) 'Boîte de dialogue MsgBox nom & " " & prenom & ", " & age & " ans" 'Si F5 n'est pas numérique Else 'Boîte de dialogue : avertissement MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !" 'Suppression du contenu de la cellule F5 Range("F5") = "" End If End Sub Sub exemple() 'Si F5 est numérique If IsNumeric(Range("F5")) Then Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer numeroLigne = Range("F5") + 1 'Si le numéro est dans la bonne plage If numeroLigne >= 2 And numeroLigne <= 17 Then nom = Cells(numeroLigne, 1) prenom = Cells(numeroLigne, 2) age = Cells(numeroLigne, 3) MsgBox nom & " " & prenom & ", " & age & " ans" 'Si le numéro est en dehors de la plage Else MsgBox "L'entrée """ & Range("F5") & """ n'est pas un numéro valide !" Range("F5") = "" End If 'Si F5 n'est pas numérique Else MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !" Range("F5") = "" End If End Sub Sub exemple() 'Si F5 est numérique If IsNumeric(Range("F5")) Then Dim nom As String, prenom As String, age As Integer, numeroLigne As Integer, nbLignes As Integer numeroLigne = Range("F5") + 1 nbLignes = WorksheetFunction.CountA(Range("A:A")) 'Fonction NBVAL 'Si le numéro est dans la bonne plage If numeroLigne >= 2 And numeroLigne <= nbLignes Then nom = Cells(numeroLigne, 1) prenom = Cells(numeroLigne, 2) age = Cells(numeroLigne, 3) MsgBox nom & " " & prenom & ", " & age & " ans" 'Si le numéro est en dehors de la plage Else MsgBox "L'entrée """ & Range("F5") & """ n'est pas un numéro valide !" Range("F5") = "" End If 'Si F5 n'est pas numérique Else MsgBox "L'entrée """ & Range("F5") & """ n'est pas valide !" Range("F5") = "" End If End Sub If [CONDITION 1] Then '=> SI la condition 1 est vraie ALORS 'Instructions 1 ElseIf [CONDITION 2] Then '=> SINON, SI la condition 2 est vraie ALORS 'Instructions 2 Else '=> SINON 'Instructions 3 End If Sub commentaires() 'Variables Dim note As Single, commentaire As String note = Range("A1") 'Commentaire en fonction de la note If note = 6 Then commentaire = "Excellent résultat !" ElseIf note >= 5 Then commentaire = "Bon résultat" ElseIf note >= 4 Then commentaire = "Résultat satisfaisant" ElseIf note >= 3 Then commentaire = "Résultat insatisfaisant" ElseIf note >= 2 Then commentaire = "Mauvais résultat" ElseIf note >= 1 Then commentaire = "Résultat exécrable" Else commentaire = "Aucun résultat" End If 'Commentaire en B1 Range("B1") = commentaire End Sub Sub commentaires() 'Variables Dim note As Single, commentaire As String note = Range("A1") 'Commentaire en fonction de la note Select Case note '<= la valeur à tester (ici, la note) Case Is = 6 commentaire = "Excellent résultat !" Case Is >= 5 commentaire = "Bon résultat" Case Is >= 4 commentaire = "Résultat satisfaisant" Case Is >= 3 commentaire = "Résultat insatisfaisant" Case Is >= 2 commentaire = "Mauvais résultat" Case Is >= 1 commentaire = "Résultat exécrable" Case Else commentaire = "Aucun résultat" End Select 'Commentaire en B1 Range("B1") = commentaire End Sub Case Is = 6, 7 'Si la valeur = 6 ou 7 Case Is <> 6, 7 'Si la valeur est différente de 6 ou 7 Case 6 To 10 'Si la valeur = de 6 à 10 uploads/Geographie/ algorithme-if.pdf