Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

listbox vs msgbox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Dennnisss

XLDnaute Occasionnel
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🙂
 

Pièces jointes

Trier par date Trier par votes
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.

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : listbox vs msgbox

Bonsoir

J'ai modifié le message

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL pour MAC Accès aux fichiers récents
Réponses
2
Affichages
213
pilou010
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
3 K
NONO14
N
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
490
firecarl
F
A
  • Question Question
XL 2010 Forcer le focus a rester dans un Textbox apres validation
Réponses
11
Affichages
906
aurelio.ewane
A
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
1 K
Messan
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
783
Usine à gaz
  • Question Question
XL 2021 Atteindre l'onglet du Client au clic sur son nom dans ma ListBox
2 3
Réponses
44
Affichages
3 K
Dudu2
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
795
TooFatBoy
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
816
target
T
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
E
  • Question Question
XL 2010 VBA avec >= heure, affichage MsgBox
Réponses
1
Affichages
984
Hasco
V
  • Question Question
XL 2019 ActiveSheet avec nom feuille contenu dans une cellule
Réponses
3
Affichages
819
Staple1600
  • Question Question
XL 2016 Aide UserForm VBA Excel SVP
2
Réponses
21
Affichages
2 K
fanch55
Y
  • Question Question
XL 2010 besoin d'aide
Réponses
3
Affichages
718
TooFatBoy
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
  • Résolu(e)
XL 2016 VBA - ListBox item sélectionné au hasard
Réponses
12
Affichages
1 K
Dudu2
M
  • Question Question
XL 2019 VBA Modifier a partir d'une listbox
Réponses
1
Affichages
1 K
mahaut57
M
  • Question Question
XL 2013 listbox avec + de 11 colonnes (colonne A à colonne L)
Réponses
11
Affichages
2 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…