Menu

Bouton supprimer vba excel

Messages postés
5
Date d'inscription
vendredi 5 avril 2019
Statut
Membre
Dernière intervention
6 avril 2019
-
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
Afficher la suite 

Votre réponse

2 réponses

Messages postés
14233
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2019
1329
0
Merci
Bonjour,

Pouvez mettre le fichier a dispo avec des donnees bidons car comprends pas ce qui vous derange !!!
hocinehaddache
Messages postés
5
Date d'inscription
vendredi 5 avril 2019
Statut
Membre
Dernière intervention
6 avril 2019
-
mrc ! je les résolue
jai mal déclare ma ligne
hocinehaddache
Messages postés
5
Date d'inscription
vendredi 5 avril 2019
Statut
Membre
Dernière intervention
6 avril 2019
-
stp dans cette formule je veux déclare une feuil qui est verrouille
f894009
Messages postés
14233
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2019
1329 -
Re, vous pouvez expliquer un peu mieux……!!
Commenter la réponse de f894009
Messages postés
5
Date d'inscription
vendredi 5 avril 2019
Statut
Membre
Dernière intervention
6 avril 2019
0
Merci
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
jordane45
Messages postés
25242
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 avril 2019
1949 -
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
hocinehaddache
Messages postés
5
Date d'inscription
vendredi 5 avril 2019
Statut
Membre
Dernière intervention
6 avril 2019
-
ben si je peux enregistre ,modifier . il me reste la suppression
f894009
Messages postés
14233
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 avril 2019
1329 -
Bonjour Jordane45,

hocinehaddache:
Si vous pouvez modifier sans enlever la protection y a un probleme!!
Commenter la réponse de hocinehaddache