Bonjour le forum ,
La macro dessous supprime toutes les lignes de la feuil1 en fonction d'un seul mot "Truc" présent dans la feuil2.
Sub test()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
If Range("B1").Value = "Truc" Then
Sheets("Feuil1").Activate
Range("A10000").Select
For i = 9998 To 1 Step -1
If ActiveCell.Value = "Truc" Then
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Next i
Else
End If
End Sub
Comment étendre ses possibilités en augmentant les choix possibles: par ex "tous les mots présents dans la colonne B de la feuil2?
Voire créer un bouton qui nous demande carrément de choisir un BD?
@@
La macro dessous supprime toutes les lignes de la feuil1 en fonction d'un seul mot "Truc" présent dans la feuil2.
Sub test()
Application.ScreenUpdating = False
Sheets("Feuil2").Select
If Range("B1").Value = "Truc" Then
Sheets("Feuil1").Activate
Range("A10000").Select
For i = 9998 To 1 Step -1
If ActiveCell.Value = "Truc" Then
Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Next i
Else
End If
End Sub
Comment étendre ses possibilités en augmentant les choix possibles: par ex "tous les mots présents dans la colonne B de la feuil2?
Voire créer un bouton qui nous demande carrément de choisir un BD?
@@