Macro excel insérer une seule ligne

cocomarc Messages postés 7 Statut Membre -  
 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 !

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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)
0
Réponse 2 / 2
Migou76
 
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
0