Saisir une valeur dans une boite de dialogue | ||
---|---|---|
Inscription: 10/02/2011
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 27-03-2015 14h53
Bonjour à toutes et tous,
Je cherche le moyen de saisir une valeur dans une boite de dialogue pour récupérer cette valeur dans une macro. Je m'explique Par une macro excel, je veux saisir une valeur dans une boite de dialogue, récupérer cette valeur pour aller chercher une valeur correspondante dans un tableau.
Par exemple, j'ai dans une feuille les valeurs suivante : Cellule A1 "TOTO" Cellule B1 "2" Cellule A2 "TITI" Cellule B2 "3"
Dons en saisissant TITI dans ma boite de dialogue, je veux récupérer "TITI" dans ma macro pour aller chercher la valeur 3 dans la feuille en question.
J'ai démarré une macro :
Rep = MsgBox("Saisir l'album" & "Continuer ?", vbYesNo + vbQuestion) If Rep = vbYes Then
Else MsgBox "Procédure terminée", vbInformation End If
Il me manque le principal entre le Then et le Else....
Merci de votre aide.
Bravo pour votre site, c'est un puit d'informations.
Cdlt
Olivier |
|
|
Re: Saisir une valeur dans une boite de dialogue | ||
---|---|---|
Inscription: 01/06/2007
De Liège Belgique
Messages:
12
Système d'exploitation: PC & Mac Version Excel utilisée: 2016, MAC 2011 |
Posté le : 30-03-2015 08h48
Bonjour
Une première approche avec ce code
Public valeur as string Sub test() Rep = MsgBox("Saisir l'album" & "Continuer ?", vbYesNo + vbQuestion) If Rep = vbYes Then valeur = Application.InputBox(prompt:="Entrer votre valeur") Else MsgBox "Procédure terminée", vbInformation End If If valeur = True Then MsgBox "ok" End If End Sub Par la déclaration en en-tête de module, la variable "valeur" pourra être réutilisée ailleurs dans ton projet et ce, jusqu'à ce que tu fermes ton fichier
A te relire sur cette proposition
Crdlt @+ Dan
|
|
|
Re: Saisir une valeur dans une boite de dialogue | ||
---|---|---|
Inscription: 10/02/2011
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 03-04-2015 14h10
Bonjour,
Merci Dan, c'est exactement ce que je recherchai.
Cordialement
Olivier |
|
|