Code VBA pour ouvrir une fenêtre une après l'autre

[Victor]

Bonsoir le forum,

Quel code faut-il mettre à la suite de celui-ci

Private Sub Workbook_Open()
Dim Message, Title, Default, MyValue
' Définit le message.
Message = "Entrez votre nom"
Title = "Démonstration de InputBox" ' Définit le titre.
Default = "1" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
MyValue = InputBox(Message, Title, Default)
Worksheets("Feuil1").Range("B2") = MyValue & Chr(10) & Now
End Sub

pour ouvrir à nouveau une fen^tre après avoir dit ok sur la précédente
pour demander à la personne le nombre de points et le mettre en c2 et ainsi de suite plusieurs fois jusqu'à la fin ou une fenêtre lui indique qu'il peut aller chercher sa feuille sur l'imprimante et ceci sans indiquation de l'heure et du jours.

Merci à vous toutes et tous. Victor

 

[Robert]

Salut Victor, salut le forum,

Victor je n'ai pas compris ce que tu entendais par "plusieurs fois, jusqu'à la fin". Ect-ce que cela signifie que tu veux répéter les deux boites pour chaque feuille du fichier ?

En attendant d'en savoir plus, voici ta macro modifiée pour un affichage de la deuxième fenêtre (InputBox) qui place la valeur éditée en C2.

Private Sub Workbook_Open()
Dim Titre As String, Message1 As String, Message2 As String 'déclare les variables
Dim boite1 As String, boite2 As String 'déclare les variables

Titre = "Entrez vos données" ' Définit le titre.
Message1 = "Votre nom :" ' Définit le message.
' Affiche la boite d'entrée 1
boite1 = InputBox(Message1, Titre)
'ici "Chr(10)" est un saut de ligne et "Now" indique le jour et l'heure
Worksheets("Feuil1").Range("B2") = boite1 & Chr(10) & Now

Message2 = "Le nombre de points :" 'définit le Message2
' Affiche la boite d'entrée 2
boite2 = InputBox(Message2, Titre)
'inscrit le resultat de la boite d'entrée dans C2
Worksheets("Feuil1").Range("C2") = boite2

À plus,

Robert

 

[Victor]

Salut Robert,

merci pour ta réponse, je vais essayer,

Ce que je veux dire plusieurs fois c'est :
à l'ouverture de la feuzille 1 une macro vienne et demande le nom
une fois clkic sur ok une autre macro vienne et
demande le nombre de points
une fois ok
une autre macro vienne et demande son emplacement
et la dernière macro lui indique qu'il peut aller chercher la feuille
sur l'imprimante, car la macro aura imprimer la feuille.

Merci à toi Robert. Victor

 

[Victor]

Re Robert,

J'ai essayé et cela fonctionne plus ou moins :

Dans la case ou est indiqué le nom elle s'agrandi ??
J'ai changé Chr(10) par Chr(5) et problème un carré après le nom ??

Et à la suite de mes messages, que faut-il mettre comme code pour
imprimer en indiquant un message du genre ( vous pouvez aller chercher la feuille sur l'imprimante)

Encore merci à toi. Victor

 

[Robert]

Salut Victor, salut le forum,

Victor là je suis au boulot et avec un big problème sur le réseau. Comme je m'y entends aussi bien en réseau que Thierry Roland en danse classique, je t'explique pas la galère...

Dès que j'ai un moment je regarde ça pour te trouver une solution. Il faut juste que tu me dises ce tu entends par emplacement. Si je résume : 1ère boite : Nom (je tape nom nom et je valide par ok)
2ème boite : Nombre de points (je tape le nombre de points et je valide)
3ème boite : emplacement (que tapes-tu ici, l'adresse d'une cellule ?).
4eme boite : (imprimer. La feuille active ? Imprimante défaut ?)

Autre précision, le nombre de points est-ce un entier? un nombre décimal ? Il y a-t-il des limites supérieure et inférieure à cette valeur ?

À plus,

Robert

 

[Robert]

Salut Victor, bonsoir le forum,

en pièce jointe un exemple utilisant un UserForm.

À plus,

Robert

 

[Victor]

Salut Robert,

C'est extra également, et t'en remerci, le seul problème est que sur l'ordi en ligne je ne peux rien voir du code , tout est bloqué, c'est pour cette raison que je demande de m'écrire le code complet pour que je puisse le tapper dans un autre ordi et voir si cela fonctionne........

A+ Victor

 

[Victor]

?????????????????
?????????????????
Désolé j'ai vu trop tard

emplacement c'est pour y mettre une abréviations de ou la personne se trouve, du genre PFH ou JFT etc.

 

[Victor]

Salut Robert,

peux-tu ici copier coller le code stp. merci
( sinon mon ordi ne peut pas le lire ) BLOQUE

encore merci d'avance. Victor

 

[Victor]

Re Robert,

Pourrais-tu m'écrire le code ici stp.

Merci d'avance. Victor