Remplir des cellules selon une condition
Bonjour,
J'ai recopié l'exemple de la leçon 4 sur les conditions (https://www.excel-pratique.com/fr/vba/conditions).
Voici le code :
Sub commentaires_notes()
'Variables
Dim note As Integer, 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
Ma question est : Comment fait-on pour remplir les cellules allant de A1 à A10 selon ces conditions car cela marche pour seulement une cellule (ici A1 par exemple) mais pas pour toutes en même temps ? J'ai essayé plein de choses mais rien ne fonctionne...
Je vous remercie pour vos réponses !
Salut alexnewdoor et
à tester
Sub commentaires_notes()
'Variables
Dim note As Integer, commentaire As String
Dim i
For i = 1 To 10
note = Range("A" & i)
'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("B" & i) = commentaire
Next i
End SubBonne nuit
Bonsoir m3ellem1,
Merci beaucoup à la fois pour cette réponse rapide et efficace car cela marche très bien !
Bonne nuit et encore merci !
Salut V,
Salut m3ellem1
For x = 1 To 10
Range("B" & x).Value = IIf(Range("A" & x).Value = "", "Aucun résultat", _
Choose(CInt(Range("A" & x).Value), "Résultat exécrable", "Mauvais résultat", "Résultat non satisfaisant", "Résultat satisfaisant", "Bon résultat", "Excellent résultat !"))
NextA+