Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la
valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur
soit supprimer. Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
Bonjour j0b
Sub SuppLigne() Valeur = Feuil1.TextBox1.Text For Each c In Range("A65536").End(xlUp) If c.Value = Valeur Then c.EntireRow.Delete End If Next End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur soit supprimer. Merci
Bonjour j0b
Sub SuppLigne()
Valeur = Feuil1.TextBox1.Text
For Each c In Range("A65536").End(xlUp)
If c.Value = Valeur Then
c.EntireRow.Delete
End If
Next
End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la
valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur
soit supprimer. Merci
Sub SuppLigne() Valeur = Feuil1.TextBox1.Text For Each c In Range("A65536").End(xlUp) If c.Value = Valeur Then c.EntireRow.Delete End If Next End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur soit supprimer. Merci
j0b
Merci, ca fonctionne impect !
Bonjour j0b
Sub SuppLigne() Valeur = Feuil1.TextBox1.Text For Each c In Range("A65536").End(xlUp) If c.Value = Valeur Then c.EntireRow.Delete End If Next End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur soit supprimer. Merci
Merci, ca fonctionne impect !
Bonjour j0b
Sub SuppLigne()
Valeur = Feuil1.TextBox1.Text
For Each c In Range("A65536").End(xlUp)
If c.Value = Valeur Then
c.EntireRow.Delete
End If
Next
End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la
valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur
soit supprimer. Merci
Sub SuppLigne() Valeur = Feuil1.TextBox1.Text For Each c In Range("A65536").End(xlUp) If c.Value = Valeur Then c.EntireRow.Delete End If Next End Sub
Abed_H
Bonsoir à tous, je cherche à faire une recherche sur la colonne A de la valeur d'une textbox et si cette valeur est trouvé que la ligne de la valeur soit supprimer. Merci
