suppression de lignes

[arkheos]

Bonjour,

pouvez vous m'aider à écrire le code VBA pour supprimer une ligne en fonction d'une valeur contenue dans cette ligne ?

Merci

 

[nat54]

Re : suppression de lignes

Bonjour,

Dans ma besace excel LOL

§ Macro 8 : effacer une ligne selon un critère

Sub efface()
For i = 10 To 1 Step -1
If Range("a" & i).Value = "toto" Then
Rows(i).Delete
End If
Next i
End Sub

 

[arkheos]

Re : suppression de lignes

je te remercie pour ta reponse si rapide

 

[Robert]

Re : suppression de lignes

Bonjour Arkheos, Nat, bonjour le forum,

Je propose cette macro événementielle à placer par VBE dans le composant Worksheet adéquat. Feuil1(Feuil1) par exemple :

Tu double-clique dans une ligne. Une boite s'ouvre. Tu tapes le mot rechercher et tu valides. Si le mot existe dans la ligne, celle-ci est effacée :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'au double clic dans la cellule
Dim li As Long 'déclare la variable li
Dim ch As String 'déclare la variable ch
 
Cancel = True 'évite le mode édition lié au double-clic
li = Target.Row 'définit la variable li
ch = InputBox("Tapez le texte recherché", "Recherche") 'définit la variable ch (boîte de saisie)
 
For x = 1 To 256 'condition : boucle sur toutes les cellules de la ligne
    If Cells(li, x) = ch Then 'si la cellule =ch
        GoTo fin 'va à la balise "fin"
    End If 'fin de la condition
Next x 'prochaine cellule de la ligne
 
Exit Sub 'sort de la procédure
 
fin: 'balise
Rows(li).Delete 'supprime la ligne
 
End Sub