for i=1 Résolu/Fermé

Question

Bonjour, 

J'ai un gros trou de mémoire pour les boucle en VBA.

Je cherche à faire une boucle for i=1 to 10

si la colonne (E, i) = "XXXX" then 'supprimer la ligne en question
else 'ne rien faire


end if

next i


Merci à vous pour l'aide apporté, ca fait déjà pas mal de temps que je ram la dessu alors que c'est tout bête -_- et pas moyen de mettre en corrélation toute les info que je trouve pour faire la macro compléte.


Configuration: wind 7, 4.5 GO de ram, carte graphique Nvidia get force GTX 470 et dual core, Internet : opera, firefox

pijaku · Answer

Salut,
C'est presque ça...
Dim i As Long
For i = 1 To 10
    If Sheets("Feuil1").Range("E" & i).Value = "XXX" Then Rows(i).Delete
Next
Seulement, ce code ne fonctionnera pas de manière optimale...
Supposons, pour l'exemple que tes lignes 5 et 6 correspondent au test (E5 = E6 = "XXX")
Quand i = 5, la ligne 5 est supprimée. La ligne 6 devient donc la ligne 5. Next i attribue la valeur 6 à i, donc l'ancienne ligne 6, qui réponds oui au test, ne sera pas traitée car elle porte maintenant le n° 5.
Ok?
Pour remédier à cela, il te faut inverser ta boucle en commençant par la fin. Comme ceci :
Dim i As Long
For i = 10 To 1 Step - 1
    If Sheets("Feuil1").Range("E" & i).Value = "XXX" Then Rows(i).Delete
Next

Gawenronne · Answer

Merci beaucoup!

Ca fait depuis 2 ans que j'ai pu touché à la VBA alors je commence à être rouillé.

Je test la dernière solution.

Encore merci

For i=1

2 réponses

Discussions similaires