Bouton supprimer vba excel
hocinehaddache
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- Bouton supprimer vba excel
- Supprimer rond bleu whatsapp - Guide
- Liste déroulante excel - Guide
- Supprimer une page word - Guide
- Word et excel gratuit - Guide
- Supprimer pub youtube - Accueil - Streaming
2 réponses
Bonjour,
Pouvez mettre le fichier a dispo avec des donnees bidons car comprends pas ce qui vous derange !!!
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
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 :
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
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
jai mal déclare ma ligne