Discussion :

[Lardennais08]

Bonjour,

J'ai créé une Macro pour un message d'accueil... Jusque là rien d'extraordinaire...
Cependant, mes connaissances restent limitées puisqu'au lieu de voir la date je souhaite qu'il aille chercher une valeur dans une cellule d'une autre feuille du classuer... pourriez vous m'aider:
voici mon code et en jaune ce que je voudrais changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
 
    'Déclaration de la variable
    Dim Datejour As Date
    'Affectation de la variable
    Datejour = Now()
    'Ouverture du classeur sur la feuille MENU
    Sheets("MENU").Activate
    'Se positionner sur une cellule particulière
    Range("E11").Select
    'Message de bienvenue
    MsgBox "Messieurs, bienvenue sur le tableau de pilotage..." & vbCrLf & " La DTO du jour :" _
    & vbCrLf & vbTab & Format(Datejour, "dddd dd mmmm yyyy"), vbOKOnly + vbInformation, "BIENVENUE"
 
    End Sub

à la place qu'il me donne la date : Format(Datejour, "dddd dd mmmm yyyy"), je veux qu'il me donne un pourcentage qui se trouve dans une cellule qui se trouve dans une autre feuille du classeur

En vous remerciant par avance

[Thautheme]

Bonjour Lardennais, bonjour le forum,

Comme tu n'as pas précisé, tu adapteras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox "Messieurs, bienvenue sur le tableau de pilotage..." & vbCrLf & " La DTO du jour :" _
& vbCrLf & vbTab & Worksheets("Ton_Onglet").Range("Ta_Cellule").Value & vbOKOnly + vbInformation, "BIENVENUE"

[Lardennais08]

Bonjour Thautème,

Merci pour ton aide.

Cependant, lorsque je lance l’exécution voici quel message d'erreur apparait:

Erreur exécution '9':
L'indice n'appartient pas à la sélection.

@+

[Thautheme]

Re,

Heu... Tu as bien adapté ?!... Il faut remplacer Ton_Onglet par le nom de l'onglet en question et Ta_Cellule par l'adresse de la cellule que tu souhaites. Donc si tu veux qu'il aille chercher par exemple la cellule A1 de l'onglet Feuil2 il faudra écrire :

MsgBox "Messieurs, bienvenue sur le tableau de pilotage..." & vbCrLf & " La DTO du jour :" & vbCrLf & vbTab & Worksheets("Feuil2").Range("A1").Value & vbOKOnly + vbInformation, "BIENVENUE"

[MarcelG]

Bonjour,

Thautheme,

Il faudrait remplacer le "&" par une virgule.

Pour éviter ce gere d'erreur, personnellement, je préconise la précision des paramètres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub essai_msgbox()
 
MsgBox _
        Prompt:="Messieurs, bienvenue sur le tableau de pilotage..." & vbCrLf & " La DTO du jour :" & vbCrLf & vbTab & Worksheets("Feuil2").Range("A1").Value, _
        Buttons:=vbOKOnly + vbInformation, _
        Title:="Bienvenue"
 
End Sub

[Thautheme]

Re,

Oui c'est exact. Bien vu Marcel... J'avoue que je navet même pas testé... Honte à moi.

[Lardennais08]

Bonjour à vous 2.

je vous remercie beaucoup, le code fonctionne parfaitement.

Cependant, encore désolé, je dois être un boulet...

le nombre que je veux inscrire est en pourcentage. la cellule est une cellule fussionnée en pourcentag mais dans mon message, c'est en virgule... 0.8256489688 pour 83%.

Comment dois-je faire?

Merci de votre aide.

[Patrice740]

Bonjour,

Utilises Format() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim x As Double
Dim y As String
   x = Worksheets("Feuil1").Range("A1").Value
   y = Format(x, "0%")
   MsgBox y
End Sub

[Lardennais08]

Désolé, mais du coup dans mon code je mets ça comment car pour le moment j'ai ca...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
 
    'Déclaration de la variable
    Dim Datejour As Date
    'Affectation de la variable
    Datejour = Now()
    'Ouverture du classeur sur la feuille MENU
    Sheets("MENU").Activate
    'Se positionner sur une cellule particulière
    Range("E11").Select
    'Message de bienvenue
    MsgBox _
        Prompt:="Messieurs, bienvenue sur le tableau de pilotage..." & vbCrLf & " La DTO du jour :" & vbCrLf & vbTab & Worksheets("SUIVI DTO XX°XXXX").Range("H25").Value, _
        Buttons:=vbOKOnly + vbInformation, _
        Title:="Bienvenue"

Merci encore

[OrDonc]

Bonjour …

En passant par un formulaire (Userform) dont certaines propriétés sont définies dans la liste de celles-ci (F4) avec un contrôle Label nommé Msg, on peut jouer sur les couleurs, les tailles, le clignotement, le texte défilant …
Exemple simple, tout le code est dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Application.Goto Feuil1.[E11]
    Ov.Caption = "Bonjour Messieurs ..."
    Ov.Msg = "Bienvenue sur le tableau de pilotage." & vbLf & _
            vbLf & "    La DTO du jour est de ... " & Format(Feuil2.[H25], "0%") & " !"
    Ov.Show
End Sub

Nota : s’il y a d’autres informations à prendre en compte, les programmer juste avant le End Sub.

[Lardennais08]

Bonjour,

Comment fais-tu pour créér un controleur LABEL?

Pour faire simple voici ce que je vois:



Par contre MSG LABEL, je n'arrive pas à le créer et le USERFORM1: Impossible à supprimer...

Je suis perdu

Merci de ton aide

[Mammy Potter]

Bonjour,

Comment fais-tu pour créér un controleur LABEL?

Merci de ton aide

Dans ta barre d’icône, tu as un bouton "Boîte à Outils" et tu as un contrôles qui s'appelle "Intitulé"

[Lardennais08]

Dans ta barre d’icône, tu as un bouton "Boîte à Outils" et tu as un contrôles qui s'appelle "Intitulé"

Boite à outils OK...

Par contre quand je séléctionne le cadre avec "Intutilé", il m'apparait "Opértion non terminée en raison de l'erreur 800a0011?

[Lardennais08]

Boite à outils OK...

Par contre quand je séléctionne le cadre avec "Intutilé", il m'apparait "Opértion non terminée en raison de l'erreur 800a0011?

Merci à tous, j'ai réussi

[MarcelG]

Salut,

Ordonc (ravi de te retrouver)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.Goto Feuil1.[E11]

Personnellement, je préfère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.Goto Reference:=Feuil1.Range("E11"), Scroll:= True
'Ou Scroll:=False

Ceci en sachant que [E11] signifie, sauf erreur, "Evaluation de la cellule E11"

Pour ma part, je pratique cette syntaxe dans le seul cas d'utilisation de la valeur de la cellule, non son adresse.

Cela dit sans flagornerie aucune (j'adoptais ce principe bien avant), cette écriture entre crochets est commentée sur le blog de Pierre, qui la déconseille.

Lardennais,

Sans doute pourrais-tu retourner ton code afin que l'on puisse y apporter une suggestion et/ou un commentaire.