Macro excel insérer une seule ligne Fermé

Question

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 !

michel_m · Answer

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)

Migou76 · Answer

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

Macro excel insérer une seule ligne

2 réponses

Discussions similaires