Userform, Label: message contenant variables, possible??

[sim]

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!!

 

[Dranreb]

Re : Userform, Label: message contenant variables, possible??

Bonjour
Et bien comme ça si j'ai bien compris:

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 ???

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

À+

 

[sim]

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

 

[sim]

Re : Userform, Label: message contenant variables, possible??

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

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

 

[Dranreb]

Re : Userform, Label: message contenant variables, possible??

Essayez comme ça:

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

À+

 

[sim]

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

 

[sim]

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