VBA: Supprimer ligne si contient XY col A
Résolu/Fermé
A voir également:
- VBA: Supprimer ligne si contient XY col A
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Vba dernière colonne non vide ✓ - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Stringman621
Messages postés
1305
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
1 septembre 2012
337
22 déc. 2011 à 13:51
22 déc. 2011 à 13:51
Bonjour,
Quels sont tes recherches, tes pistes ?
J'ai bien une solution à te proposer, mais j'aimerais savoir si tu as cherché un peu avant...
@+
Quels sont tes recherches, tes pistes ?
J'ai bien une solution à te proposer, mais j'aimerais savoir si tu as cherché un peu avant...
@+
22 déc. 2011 à 14:10
Sub Supprime_xy()
Dim Rng As Range
MotCh = InputBox("xy")
Set Rng = Feuil1.Cells.Find(MotCh)
If Rng Is Nothing Then Exit Sub
Rng.EntireRow.Delete
End Sub
Mais ça fonctionne pas :(
22 déc. 2011 à 14:14
Dim i As Integer i = 1 Do While Cells(i, 1).Value <> "" If Cells(i, 1).Value = "xy" Then Cells(i, 1).Value = "" End If i = i + 1 LoopEn fait la boucle parcours toute les valeurs de la colone A jusqu'a ce qu'un champs soit vide.
Si ta colonne A est rempli à la suite sans vide ça devrait fonctionner
Modifié par Stringman621 le 22/12/2011 à 14:21
Dim i As Integer i = 1 Max = InputBox("Jusqu'a quel ligne faut-il aller ?", "Question") For i = 1 To Max If Cells(i, 1).Value = "xy" Then Cells(i, 1).Value = "" End If i = i + 1 Next i22 déc. 2011 à 14:36
La seconde me met une erreur de compilation sur
toto = InputBox("Jusqu'a quel ligne faut-il aller ?", "forum Access")
Merci beaucoup !
22 déc. 2011 à 14:54
Bonne journée !