VBA problème d'ajout de ligne avec excel
Résolu/Fermé
Haseo
Messages postés
6
Date d'inscription
vendredi 9 mars 2007
Statut
Membre
Dernière intervention
26 mars 2007
-
9 mars 2007 à 13:35
OhMichel - 21 nov. 2008 à 10:43
OhMichel - 21 nov. 2008 à 10:43
A voir également:
- VBA problème d'ajout de ligne avec excel
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Site de vente en ligne particulier - Guide
- Formule excel - Guide
- Partage de photos en ligne - Guide
2 réponses
Kobaya
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
214
9 mars 2007 à 15:12
9 mars 2007 à 15:12
bonjour haseo,
il n afaut pas utiliser une boucle For/Next si tu insères ou détruits des lignes, car sinon le compteur va être "corrompu".
Do/Loop est plus indiqué :
il n afaut pas utiliser une boucle For/Next si tu insères ou détruits des lignes, car sinon le compteur va être "corrompu".
Do/Loop est plus indiqué :
ligne = 1 Do Until WorkSheets(NomFeuille).Cells(ligne, 1).Value ="" If Left(WorkSheets(NomFeuille).Cells(ligne, 1). Value, 1) =":" Then WorkSheets(NomFeuille).Cells(ligne, 1).EntireRow.Insert End If ligne = ligne + 1 Loop
Haseo
Messages postés
6
Date d'inscription
vendredi 9 mars 2007
Statut
Membre
Dernière intervention
26 mars 2007
12 mars 2007 à 08:31
12 mars 2007 à 08:31
Merci
pour cette aide bien précieuse
il ne faut pas oublier de mettre un Ligne = Ligne +1
ligne = 1
Do Until WorkSheets(NomFeuille).Cells(ligne, 1).Value =""
If Left(WorkSheets(NomFeuille).Cells(ligne, 1). Value, 1) =":" Then
WorkSheets(NomFeuille).Cells(ligne, 1).EntireRow.Insert
ligne = ligne +1
End If
ligne = ligne + 1
Loop
dans le IF autrement on rentre dans une boucle infinie
pour cette aide bien précieuse
il ne faut pas oublier de mettre un Ligne = Ligne +1
ligne = 1
Do Until WorkSheets(NomFeuille).Cells(ligne, 1).Value =""
If Left(WorkSheets(NomFeuille).Cells(ligne, 1). Value, 1) =":" Then
WorkSheets(NomFeuille).Cells(ligne, 1).EntireRow.Insert
ligne = ligne +1
End If
ligne = ligne + 1
Loop
dans le IF autrement on rentre dans une boucle infinie