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
Merci kjin pour ta réponse.
Je venais juste de trouver une solution, je conserve toujours les deux boucles, c'est peut être une bêtise...
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
n = n + 1
Else
'MsgBox "essai"
End If
Next i
Next n
End Sub
Désolé kjin de ne pas répondre spontanément !
Le problème c'est que je ne sais pas quoi répondre... Pourquoi deux boucles ? C'est une bêtise de ma part tout simplement.