Discussion :

[JohnKel]

Bonjour,

Je rencontre un souci un delete de ligne.

Voilà le script pour le moment :

For i = 3 To 500
If Range("B" & i) = "V6" Then
i = i + 1
Else
Range("B" & i).Select
Selection.Delete Shift:=xlUp
i = i - 1
End If
Next i
End Sub

Ce que je veux faire c'est qu'à partir de la cellule B3 jusqu'à la cellule B500, si la valeur en de Bi commence par V6 alors on passe à la ligne suivante sinon on supprime la ligne et on contrôle la suivante.

Actuellement ca me delete la colone B1 et ca boucle sans fin :s si quelqu'un pouvait m'aider

[Menhir]

Petit conseil : fais des itérations dans ton code pour le rendre plus lisible au niveau de la structure.

Les Select / Selection, il vaut mieux éviter quand ce n'est pas indispensable. Ca ralentit l'exécution et ça complique inutilement le code.

Prends l'habitude de déclarer tes variables.

Ton i=i+1 est inutile. C'est la boucle For to qui se charge d'incrémenter ta variable. Regarde les explications de cette structure dans l'aide VBA d'Excel.

Quand on supprime des lignes, on va du bas vers le haut. Ca évite d'avoir à faire des tours de passe-passe comme ton i=i-1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i as Long
For i = 500 To 3
	If Left(Cells(i,2).Value) <> "V6" Then Rows(i).Delete
Next i

[JohnKel]

Je te remerci Menhir pour les conseils car je débute en VBA et c'est pas simple. Par contre j'ai un souci quand je lance la boucle il me donne en message d'erreur : argument non facultatif :s

[Menhir]

J'ai oublié de dire à la boucle de compter en sens inverse avec un Step -1.
Mais le problème vient de la fonction Left : j'ai oublié de dire combien de caractères il faut prendre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i as Long
For i = 500 To 3 Step -1
	If Left(Cells(i,2).Value,2) <> "V6" Then Rows(i).Delete
Next i

Mais 90% du travail ayant été fait, tu pourrais faire le débugage par toi-même, non ?

[JohnKel]

Ok je continu à chercher merci pour ton aide