Macro excel insérer une seule ligne
cocomarc
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Migou76 -
Migou76 -
Bonjour,
J'utilise cette macro qui m'insère 1 ligne à chaque ligne où l nombre est supérieur à 60000000
qq1 peut-il m'aider à n'insérer qu'une seule ligne dès la première valeur supérieure à ce mntant ? ou stopper la boucle ?
Dim I As Long
Dim Plage As Range
Set Plage = Range("A1:A" & Range("A1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value > 60000000 Then
Plage.Cells(I).EntireRow.Insert
End If
Next
Marci !
J'utilise cette macro qui m'insère 1 ligne à chaque ligne où l nombre est supérieur à 60000000
qq1 peut-il m'aider à n'insérer qu'une seule ligne dès la première valeur supérieure à ce mntant ? ou stopper la boucle ?
Dim I As Long
Dim Plage As Range
Set Plage = Range("A1:A" & Range("A1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value > 60000000 Then
Plage.Cells(I).EntireRow.Insert
End If
Next
Marci !
Configuration: Windows XP / Internet Explorer 7.0
2 réponses
-
Bonjour
on quitte la macro dès la 1° valeur trouvée
For I = Plage.Cells.Count To 1 Step -1 If Plage.Cells(I).Value > 60000000 Then Plage.Cells(I).EntireRow.Insert Exit For End If
pour des prochains post merci d'indenter ton code et d'utiliser la balise de mise en forme (4° bouton sur la gauche) -
Bonjour,
En fait si j'ai compris vous voulez arrêter la boucle dès que vous avez trouvé la condition.
Je n'ai plus Excel, il faut faire GO TO pour aller à la fin, mais je ne suis pas sûr que l'orthographe soit exact :
Dim I As Long
Dim Plage As Range
Set Plage = Range("A1:A" & Range("A1").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
If Plage.Cells(I).Value > 60000000 Then
Plage.Cells(I).EntireRow.Insert
Go To 2
End If
Next
2
Cordialement,
Migou
