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

Userform, Label: message contenant variables, possible??

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sim
  • 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 !

S'inscrire
S

sim

XLDnaute Occasionnel
Bonjour a toutes et a tous,

Bon voila le soucy.

J'aimerai qu'a l'ouverture d'un userform, le Label qu'il contient s'adapte aux valeurs presente dans un autre classeur dans 2 feuilles differentes

il y a plus de detail dans la PJ mais en gros j'aimerai que le Label dise:

Voulez vous enregistrer les changement entre
workbooks(1).Sheet(1).Range("A2").Value
et
workbooks(1).Sheet(2).Range("A2").Value

Le nom du classeur est construit tel que
NomClasseur_annee_en_cours_.xls

Donc vous verrez que je le definit comme variable.

Merci beaucoup pour ce qui m'accorderont un peu de leur temps! 🙂

Sim

PS: Important! Le classeur designe est ouvert mais non visible pour l'utilisateur, donc pas besoin de l'ouvrir par macro pour aller chercher les valeur recherchees!!
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Userform, Label: message contenant variables, possible??

Bonjour
Et bien comme ça si j'ai bien compris:
VB: 
Private Sub CommandButton1_Click()
UserForm1.Label1.Caption = "L'importation a été complete. Voulez vous enregistrer les changement entre " _
   & Workbook(wkHistoFX).Sheet("M").Range("A2").Value & " et " _
   & Workbook(wkHistoFX).Sheet("M-1").Range("A2").Value & " ?"
UserForm1.Show
End Sub
Mais pourquoi passer par un userform ???
VB: 
If MsgBox("L'importation a été complete. Voulez vous enregistrer les changement entre " _
   & Workbook(wkHistoFX).Sheet("M").Range("A2").Value & " et " _
   & Workbook(wkHistoFX).Sheet("M-1").Range("A2").Value & " ?", _
   vbYesNo + vbQuestion, "Confirmation changement") = vbYes Then
   Rem. traitement à faire si oui
Else
   Rem. traitement à faire si non
   End If
À+
 
Vote positif 0 Vote négatif
Re : Userform, Label: message contenant variables, possible??

Bonjour Dranreb!! 🙂 , le forum

Super! Effectivement j'aime beaucoup ta deuxieme solution!

Est cequ tu pourrais me dire comment la mettre en place? J'ai quand meme besoin d'usf pour la structure non (text et boutons oui et non)??

J'ai jamais utiliser les msgbox dans ce sen la peux tu m'expliquer s'il te plait??

Cordialement.

Sim
 
Vote positif 0 Vote négatif
Re : Userform, Label: message contenant variables, possible??

Voila ce que la macro complete, mais je n'arrive pas a la faire fonctionner...

Code: 
Sub test()

Dim wbCurrent As String

wbCurrent = "historical_FX_" & Year(Now) & ".xls"

Set wkHistoFX = Workbooks(wbCurrent)



If MsgBox("L'importation a été complete. Voulez vous enregistrer les changement entre " _
   & Workbooks(wkHistoFX).Sheet("M").Range("A2").Value & " et " _
   & Workbooks(wkHistoFX).Sheet("M-1").Range("A2").Value & " ?", _
   vbYesNo + vbQuestion, "Confirmation changement") = vbYes Then
  Call mdlImportation_FX.FXDifferences
Else
   Call mdlHistorical_FX.Stop_Historical_FX
   End If

End Sub

L'idee est d'appeler cette macro au moment ou je veux que le message apparaisse non?

Merci 🙂!!

Sim
 
Vote positif 0 Vote négatif
Re : Userform, Label: message contenant variables, possible??

Essayez comme ça:
VB: 
Sub test()
Dim wbCurrent As String, wkHistoFX As Workbook
wbCurrent = "historical_FX_" & Year(Now) & ".xls"
Set wkHistoFX = Workbooks(wbCurrent)
If MsgBox("L'importation a été complete. Voulez vous enregistrer les changement entre " _
   & wkHistoFX.Sheet("M").Range("A2").Value & " et " _
   & wkHistoFX.Sheet("M-1").Range("A2").Value & " ?", _
   vbYesNo + vbQuestion, "Confirmation changement") = vbYes Then
  Call mdlImportation_FX.FXDifferences
Else
   Call mdlHistorical_FX.Stop_Historical_FX
   End If
End Sub
À+
 
Vote positif 0 Vote négatif
Re : Userform, Label: message contenant variables, possible??

Merci pour ta reponse! 🙂

Par contre, msg d'erreur N 438

Object doesn't support property or method.....

Surligne en jaune tout les ligne du msgbox, de quel objet s'agit il ? la msgbox??

Encore merci pour ton aide 🙂

Sim
 
Vote positif 0 Vote négatif
Re : Userform, Label: message contenant variables, possible??

Arffffffff j'ai trouve!!! 🙂 il manquait deux petit "s" a Sheets

Ca fonctionne parfaitement maintenant!!

Merci beaucoup et bonne journee!

Sim
 
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

K
  • Question Question
XL 2013 VBA - EXCEL - Aide pour simplifier mon fichier
Réponses
0
Affichages
2 K
Khalidoune
K
E
  • Question Question
XL 2016 Message erreur '9' 'L'indice n'appartient pas à la sélection'
Réponses
0
Affichages
1 K
edelweiss95
E
D
  • Question Question
userform label caption variable
Réponses
11
Affichages
8 K
DomiGeo
D
  • Question Question
[VBA] Construire userform et récupérer valeur d'une liste déroulante dans une cellule
2
Réponses
26
Affichages
35 K
nat54
J
  • Question Question
Problème Initialisation userform
Réponses
5
Affichages
2 K
Jem973
J
B
  • Question Question
Userform et Access
Réponses
2
Affichages
2 K
basma
B
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…