Bouton supprimer vba excel
hocinehaddache
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
jai un blm avec mon bouton supprimer la formule fonctionne mais si je sélectionne la dernière ligne du tableau pour le supprimer elle me supprime que les 3 premier ligne du tableau .
mrc de mède car je m'arrache les cheveux en se moment
voici ma formule
Private Sub CommandButton5_Click()
Dim J As Long
If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
Rows([A6:A1048576].Find(ComboBox1.Value).Row).EntireRow.Delete
ComboBox1.Clear
Set Ws = Sheets("feuil12") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
End If
Unload Me
UserForm7.Show
End Sub
jai un blm avec mon bouton supprimer la formule fonctionne mais si je sélectionne la dernière ligne du tableau pour le supprimer elle me supprime que les 3 premier ligne du tableau .
mrc de mède car je m'arrache les cheveux en se moment
voici ma formule
Private Sub CommandButton5_Click()
Dim J As Long
If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
Rows([A6:A1048576].Find(ComboBox1.Value).Row).EntireRow.Delete
ComboBox1.Clear
Set Ws = Sheets("feuil12") 'Correspond au nom de votre onglet dans le fichier Excel
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
End If
Unload Me
UserForm7.Show
End Sub
2 réponses
-
Bonjour,
Pouvez mettre le fichier a dispo avec des donnees bidons car comprends pas ce qui vous derange !!! -
jai un classeur verrouille a l'ouverture du ficher il y a que les userform qui s'affiche pour travaille tou fonctionne bien
la je travaille sur le bouton supprimer la formule que jai mie elle fonctionne que si la feuille est déverrouiller
si nn sa me fais une erreur
je te remercie d’avance
voici ma formule
Private Sub CommandButton5_Click()
If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
Rows([A5:A1048576].Find(ComboBox1.Value).Row).EntireRow.Delete
ComboBox1.Clear
End If
Unload Me
UserForm7.Show
End Sub-
Bonjour,
Déjà... merci d'utiliser les BALISES DE CODE pour poster tes codes sur le forum
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Ensuite :
la je travaille sur le bouton supprimer la formule que jai mie elle fonctionne que si la feuille est déverrouiller
si nn sa me fais une erreur
Normal...
Si la feuille est verrouillée... tu ne peux pas l'éditer !
Il te faut donc, avant d’exécuter ta fonction, retirer la protection puis la remettre ensuite
https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.unprotect
https://docs.microsoft.com/en-us/office/vba/api/excel.worksheet.protect -
-
-
