Bonsoir tout le monde
Je voudrais à l'aide d'un code VBA réaliser une boucle me permettant de renseigner une case vide en fonction de la valeur d'une autre case, ci dessous le code faux. erreur next sans For
Merci de vos explications
Cordialement
For P = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If Cells(P, "i").Value = "tata" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "A"
Else
If Cells(P, "i").Value = "toto" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "B"
Else
If Cells(P, "i").Value = "titi" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "C"
Else
If Cells(P, "i").Value = "juju" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "D"
Else
If Cells(P, "i").Value = "jojo" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "E"
Else
If Cells(P, "i").Value = "gigi" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "F"
End If
Next P
Je voudrais à l'aide d'un code VBA réaliser une boucle me permettant de renseigner une case vide en fonction de la valeur d'une autre case, ci dessous le code faux. erreur next sans For
Merci de vos explications
Cordialement
For P = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If Cells(P, "i").Value = "tata" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "A"
Else
If Cells(P, "i").Value = "toto" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "B"
Else
If Cells(P, "i").Value = "titi" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "C"
Else
If Cells(P, "i").Value = "juju" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "D"
Else
If Cells(P, "i").Value = "jojo" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "E"
Else
If Cells(P, "i").Value = "gigi" And Cells(P, 10).Value = "" Then
Cells(P, 10).Value = "F"
End If
Next P