bonjour à vous tous, alors voila j'ai 3 colonne avec un userform qui contient
un textbox et un bouton de commande :
A B C
1 10
1 11
2 10
3 12
3 14
4 12
4 15
A partir de cela, je voudrais bien saisir un chiffre dans la textbox et
quand je valide cela me supprime toutes lignes dont il trouve le meme chiffre
dans la colonne B. Par exemple je tape 3 et quand je valide je voudrais que
les lignes dont le chiffre 3 apparait dans la colonne B disparaissent. Merci
pour votre aide, je travails sous excel 97 car on m'a déjà donné une
procédure mais cette dernière ne fonctionne pas sous excel97. En tout cas je
vous remercie d'avance pour votre aide et je vous souhaite une bonne journée
par la meme occasion.
Private Sub CommandButton1_Click() x = [B65536].End(3).Row y = UserForm1.TextBox1 If Application.CountIf(Range("B1:B" & x), y) < 1 Then MsgBox "Pas de valeur correspondante trouvée" Exit Sub End If Range("B1:B" & x).AutoFilter Field:=1, Criteria1:=y Range("B2:B" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete [B1].AutoFilter End Sub
Exemple là : http://cjoint.com/?hmjD3YwB5B
AV
Un userform avec 1 textbox et 1 bouton
Private Sub CommandButton1_Click()
x = [B65536].End(3).Row
y = UserForm1.TextBox1
If Application.CountIf(Range("B1:B" & x), y) < 1 Then
MsgBox "Pas de valeur correspondante trouvée"
Exit Sub
End If
Range("B1:B" & x).AutoFilter Field:=1, Criteria1:=y
Range("B2:B" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete
[B1].AutoFilter
End Sub
Private Sub CommandButton1_Click() x = [B65536].End(3).Row y = UserForm1.TextBox1 If Application.CountIf(Range("B1:B" & x), y) < 1 Then MsgBox "Pas de valeur correspondante trouvée" Exit Sub End If Range("B1:B" & x).AutoFilter Field:=1, Criteria1:=y Range("B2:B" & x).SpecialCells(xlCellTypeVisible).EntireRow.Delete [B1].AutoFilter End Sub
Merci bien mais cela ne fonctionne pas sur excel 1997, meme en ayant enregistré le fichier sur le disque, :(, décidément excel 97 et la suppression par vba ne fait pas bon menage lol. A qui sera le plus fort. Merci pour votre aide
PS : Avant test, enregistrer l'exemple sur le DD
AV
Merci bien mais cela ne fonctionne pas sur excel 1997, meme en ayant
enregistré le fichier sur le disque, :(, décidément excel 97 et la
suppression par vba ne fait pas bon menage lol. A qui sera le plus fort.
Merci pour votre aide
Merci bien mais cela ne fonctionne pas sur excel 1997, meme en ayant enregistré le fichier sur le disque, :(, décidément excel 97 et la suppression par vba ne fait pas bon menage lol. A qui sera le plus fort. Merci pour votre aide
PS : Avant test, enregistrer l'exemple sur le DD
AV
AV
Merci bien mais cela ne fonctionne pas sur excel 1997,
Ca fonctionne parfaitement chez moi avec XL97 ou plus...
AV
Merci bien mais cela ne fonctionne pas sur excel 1997,
Ca fonctionne parfaitement chez moi avec XL97 ou plus...