Boucle VBA
Bonjour,
je souhaite réaliser une macro mais je n'arrive pas a la faire fonctionner.
Je suis dans une gestion de base de données et je veux crée une macro qui quand je la lance si se passe les choses suivantes:
Quand il y a dans les cellules de la colonne "J" un M d’écrit elle doit supprimer la totalité de la ligne.
mon début de macro est la suivante mais elle ne fonctionne pas..
Sub supprimer_lignes()
Sheets("BDD devis Détail").Select
Do While Not Range("J2").Activate
If ActiveCell.Value = "M" Then
ActiveCell.Delete shift:=xlUp
Else
ActiveCell.Offset(-1, 0).Select
End If
Loop
End Sub
Bonjour
Code à essayer :
Sub supprimer_lignes()
With Sheets("BDD devis Détail")
For i = .Range("J" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("J" & i).Value = "M" Then .Rows(i).Delete
Next
End With
End Subsi ok, merci de clôturer le fil lors de la réponse en cliquant sur la case à cocher à coté du bouton EDITER
Crdlt
malheureusement ça ne ma effacer qu'une ligne ou il y avais M ..
SI elle marche veuillez m'excuser .. merci beaucoup !