listbox vs msgbox

[Dennnisss]

bonjour a tous

ce matin j'ai envoyer un message sur le forum pour m'aider a coder un userform qui mettais une erreur dans l'effacement d'un nom dans un listbox avec celui de la feuille de calcul
ce code a belle et bien ete reparer avec l,aide de jean-marcel et bqtr , maintenant dans ce petit programme , lorsque l'on enleve un nom de la listbox il m'envoi un message en mode msgbox qui nous oblige a lire avant d'enleve ce nom , est-ce possible dans ce message lorsque je selectionne un nom et a l'ouverture du message de msgbox qui ecrire dans le texte le nom du client a enlever
je renvoi le petit test de ce matin

merci de votre aide et bonne journee ou soiree

bye bye denis🙂

 

[jp14]

Re : listbox vs msgbox

Bonsoir

Si j'ai bien compris la question

Ci dessous un code qui affiche le nom du joueur dans le message
Il faut mettre la première ligne pour éviter un message d'erreur si on oublie de sélectionner un nom.

If ListBox1.ListIndex = -1 Then Exit Sub
X = MsgBox("Je vais deplacer  " & ListBox1.List(ListBox1.ListIndex) & "  selectionner vers une feuille d'abandon........ Voulez-vous continuer ", vbQuestion + vbOKCancel, "Depart")

JP

 

[Dennnisss]

Re : listbox vs msgbox

salut jp14

j'ai changer le code que tu me propose il semble bien il affiche le nom de la personne a sortir de la feuille mais lorsque je selectionne cancel au lieu de Ok , il enleve le nom quand meme donc le oui il efface et le nom il efface egalement

je travaille la dessus
merci a toi , si tu a une autre idee je reste sur le forum
denis


Private Sub CommandButton4_Click()
Unload Me
Dim NumLig As Long
Sheets("Loto-Quebec").Select

If ListBox1.ListIndex = -1 Then Exit Sub
X = MsgBox("Je vais deplacer " & ListBox1.List(ListBox1.ListIndex) & " selectionner vers une feuille d'abandon........ Voulez-vous continuer ", vbQuestion + vbOKCancel, "Depart")

Dim dl1 As Long ' dernière ligne
Dim nomfeuille1 As String
If ListBox1.ListIndex = -1 Then Exit Sub
NumLig = 3 + Me.ListBox1.ListIndex + 1
ListBox1.RemoveItem (ListBox1.ListIndex)
nomfeuille1 = "Lacheux"
With Sheets(nomfeuille1)
dl1 = .Cells(Columns(1).Cells.Count, 2).End(xlUp).Row + 1

Sheets("Loto-Quebec").Range("C" & NumLig & ":W" & NumLig).Copy
Sheets("Lacheux").Range("B" & dl1).PasteSpecial 'Paste:=xlPasteValuesAndNumberFormats
Sheets("Loto-Quebec").Range("C" & NumLig & ":W" & NumLig).ClearContents
End With
'Trier_alpha
'Triage
Exit Sub
'Else
' MsgBox "Je n'ai rien effacer"
'End If
'
'Effacer.Show
End Sub

 

[jp14]

Re : listbox vs msgbox

Bonsoir

J'ai modifié le message

Private Sub CommandButton4_Click()
'MsgBox "Michel attend je suis en construction"
Unload Me
  Dim NumLig As Long

Sheets("Loto-Quebec").Select
If ListBox1.ListIndex = -1 Then Exit Sub

Select Case MsgBox("Je vais deplacer   : " & ListBox1.List(ListBox1.ListIndex) _
                   & vbCrLf & "vers une feuille d'abandon." _
                   & vbCrLf & "" _
                   & vbCrLf & " Voulez-vous continuer " _
                   , vbYesNo Or vbInformation Or vbDefaultButton1, "Départ ")

    Case vbYes
        
    Case vbNo
        MsgBox "Je n'ai rien effacé"
        Exit Sub
End Select


  

 Dim dl1 As Long ' dernière ligne
 Dim nomfeuille1 As String
  If ListBox1.ListIndex = -1 Then Exit Sub
  ' Calculer le numéro de la ligne
  ' 1 = ligne d'entête + numéro dans ListBox + 1 = ListBox commence à zéro et non 1
  NumLig = 3 + Me.ListBox1.ListIndex + 1
  ' Supprimer de la ListBox
ListBox1.RemoveItem (ListBox1.ListIndex)
nomfeuille1 = "Lacheux"
With Sheets(nomfeuille1)
dl1 = .Cells(Columns(1).Cells.Count, 2).End(xlUp).Row + 1

Sheets("Loto-Quebec").Range("C" & NumLig & ":W" & NumLig).Copy
Sheets("Lacheux").Range("B" & dl1).PasteSpecial  'Paste:=xlPasteValuesAndNumberFormats
Sheets("Loto-Quebec").Range("C" & NumLig & ":W" & NumLig).ClearContents
End With

End Sub

A tester

Jp

 

[Dennnisss]

Re : listbox vs msgbox

salut jp14

bien recu ton message ayoye ton code il est extra , wow je suis emballer alors merci a toi et de ta gentillesse , votre aide sur ce site est sensas alors bravo a vous autres les pros ou les acros

merci a toi et bonne journee