Bonjour,
Débutant dans le domaine du VBA, j'aimerais pouvoir ajouter des données dans une plage de cellule en fonction d'une Note.
Par exemple :
Voici mon code que j'utilise actuellement qui marche seulement pour une cellule D3; car quand je tape Range("D3:D25") une erreur apparait alors. Comment faire pour qu'il marche aussi pour D4,D5...D12...D25. Je sais que je pourrais utiliser une formule Si, mais j'essaie d'apprendre le VBA .
Sub CommentaireNote()
Dim Note As String, Commentaire As String
Note = Range("D3")
If Note = "S" Then
Commentaire = "Le Top du top"
ElseIf Note = "A" Then
Commentaire = "Tres bon"
ElseIf Note = "B" Then
Commentaire = "Bon"
ElseIf Note = "C" Then
Commentaire = "Moyen"
ElseIf Note = "D" Then
Commentaire = "Pas top"
ElseIf Note = "E" Then
Commentaire = "Bidon"
Else
Commentaire = ""
End If
'Afficher commentaire
Range("E3") = Commentaire
End Sub
Merci d'avance pour vos réponses