Msgbox pour confirmer une suppression de donnée dans un formulaire
Bonjour
Je suis en train de faire un formulaire en suivant quelques vidéos en lignes.
Sur une vidéo, un code fonctionne très bien quant à la suppression d’une ligne entière d’une donnée.
J’aimerais bien avoir une boite de message qui demande une confirmation de si je confirme supprimer la donnée souhaitée (d’une listbox), en partant du code suivant.
Si oui= Suppression de la donnée,
Si non= Donnée conservée
Comment imbriquer les deux codes ?
Pour la suppression de données:
Private Sub cmdSupp_Click()
Dim As Integer
For i = 0 to range (‘’A200’’).end(xlup).row -1
If lbxBase.selected(i) Then
Rows (i+1).selected
Select.delete
End if Pour la msgbox, les coordonnées pratiques, je connais la syntaxe
Msgbox (‘’Confirmez-vous la suppression de cette donnée ?’’, vbyesno + vbexclamation, ’’Confirmation Systeme’’)Merci pour votre aide !!
PS : texte tapé sur tablette, les ‘’ sont donc à corriger lors de la dactylo sur clavier.
Robluc
Salut lucrob,
ainsi, sans doute si lbxBase est bien ta ListBox.
Je postule, d'après le code, que la valeur d'index de l'élément sélectionné de la liste correspond bien au n° de ligne +1.
Sans fichier, difficile d'être certain.
Dim i%
'
If MsgBox("Confirmez-vous la suppression de cette donnée ?", vbExclamation + vbYesNo, "Confirmation Système") = vbYes Then
For i = 0 To Me.lbxBase.ListCount - 1
If Me.lbxBase.Selected(i) = True Then Rows(i + 1).Delete shift:=xlUp
Next
End IfEt, la prochaine fois, stp...
A+
Merci de ta réponse. J’adjoins mon fichier dans quelques heures si cela te convient, il est 2h30 du matin et j’ai tout éteint...
Merci pour l’aide.
NB: je ne comprends pas % de
Dim i%
Erreur de frappe ? Si non, qu’est ce que cela signifie ?
Merci, bonne nuit
Robluc
Salut lucrob,
Dim i As Integer
Dim i%
-
Dim sItem As String
Dim sItem$
-
Dim lgRow As Long
Dim LgRow&
-
Dim dblTot As Double
Dim dblTot#Même combat!
A+
Le code fonctionne à merveille avec dim i as integer,
J’ai eu un message d’erreur en tapant dim i%
Merci beaucoup