• Initiateur de la discussion Initiateur de la discussion jeanphi
  • Date de début Date de début

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 !

jeanphi

XLDnaute Occasionnel
BONJOUR

COMMENT COMBINER DANS UNE MSGBOX LE RESULTAT DE PLUSIEURS VARIABLES?
DANS LE CODE CI DESSOUS JE SOUHAITE RAJOUTER LE RESULTAT D UNE AUTRE VARIABLE (Variable Fournisseur) EN PLUS DE &x.Offset(0, 1).Value
Comment faire? 🙁
Merci
If Not x Is Nothing Then MsgBox "La durée maximale de livraison est " & x.Offset(0, 1).Value & "jours", vbExclamation, "Délai maximal de livraison"
 
Re : Msgbox et variables

bonjour,
Sans le début du code, je comprends que les variables sont
x = fournisseur
y= x.Offset(0, 1)

Donc
....
If Not x Is Nothing Then
MsgBox "La durée maximale de livraison est " x & y & "jours", vbExclamation, "Délai maximal de livraison"
....
A+
kjin
 
Re : Msgbox et variables

bonjour et merci


non x n'est pas la variable fournisseur
voici le code entier

Dim x As Range
If Fournisseur = "" Then
MsgBox "Veuillez renseigner le Fournisseur": Me.ComboBox4.SetFocus: Exit Sub
End If

If ComboBox4.ListIndex <> -1 Then
Set x = Range("I:I").Find(ComboBox4.Value, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox "La durée maximale de livraison est " & x.Offset(0, 1).Value & "jours", vbExclamation, "Délai maximal de livraison"
End If
End Sub
 
Re : Msgbox et variables

Salut jeanphi, kjin et aux autres

Ce n'est pas avec ce genre d'explications qu'on peut aller bien loin !
Voilà mon interprétation. Mais est-ce la bonne ?

Je réponds essentiellement pour dire aux futurs questionneurs :
"pour avoir une aide efficace, le sujet doit être bien présenté. Des codes de 36 000 lignes, sortis de leur contexte, n'apportent rien sinon de fausses idées".

 

Pièces jointes

- 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

Réponses
20
Affichages
679
Réponses
0
Affichages
519
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
481
Réponses
3
Affichages
568
Retour