Bonsoir à tous,
Dans ma macro j'analyse la colonne A et la colonne B. Si la cellule en A et différente de "" et que B est égal à "" je reporte une valeur en colonne B.
Jusque là pas de problème, sauf que j'aimerais incrémenter la valeur que je viens renseigner en colonne B. Soit pour la première cellule B vide je renseigne "Numéro 1", la suivante je veux renseigner "Numéro 2", etc...
Voici mon code :
Le problème est que mon n ne s'incrémente pas. Avez-vous une solution SVP ?
Merci
Dans ma macro j'analyse la colonne A et la colonne B. Si la cellule en A et différente de "" et que B est égal à "" je reporte une valeur en colonne B.
Jusque là pas de problème, sauf que j'aimerais incrémenter la valeur que je viens renseigner en colonne B. Soit pour la première cellule B vide je renseigne "Numéro 1", la suivante je veux renseigner "Numéro 2", etc...
Voici mon code :
Sub essai()
Dim i As Integer
Dim n As Integer
For n = 1 To 20
For i = 1 To 20
If Cells(i, 2) = "" And Cells(i, 1) <> "" Then
Cells(i, 2) = "Numéro " & n
Else
'MsgBox "essai"
End If
Next i
Next n
End Sub
Le problème est que mon n ne s'incrémente pas. Avez-vous une solution SVP ?
Merci