Boite de dialogue

Question

Bonjour les amis, 
   J'ai besoin de votre aide !!!
   Je souhaite faire apparaître des boîtes de dialogue dès l'ouverture d'un fichier Excel.
   Mon objectif est de remplir 4 cases à partir des réponses données sur les boites de dialogues qui s'affichent successivement l'une après l'autre ! Jusqu'à présent j'arrive à afficher les boites de saisi mais je ne sais vraiment comment transférer les réponses sur des cases données sur ma page Excel ! 
    Le code  que j'ai pu faire jusqu'à présent est ci-dessous et je n'ai aucune idée comment faire évoluer les choses !!

Je vous serai très reconnaissant les amis et je vous remercie d'avance ! 

Sub Clé_logiciels_codes()

'.....................Boite de dialogue 1.................................................
 Saisie = InputBox("Veuillez entrer le nombre de clefs fournies ")
If Saisie > 0 Then
  If Saisie = 0 Then 'Je ne sais pas comment mettre un if.. else If en place !
'J'ai un problème à ce niveau : normalement si l'utilisateur donne comme réponse zéro la feunêtre qui doit s'ouvrir est : donner une solution ou un alternatif aux clés
 Saisie = InputBox("Veuillez saisir la solution ou l'alternatif des clés")
 Saisie = InputBox("Veuillez entrer le type de clef ")
 Cancel = Tru ' cancel = True : la procédure de fermeture aborte
 Exit Sub
 End If
 End If
'.....................Boite de dialogue 2 (après avoir fini la 1ere on passe à la deuxième)..................................................
 Saisie = InputBox("Veuillez entrer la liste des logiciels sur la même ligne en bas(séparation par virgule)")
'lidée ici et d'enregistrer les informations fournies dans une case du classeur
'...........Boite de dialogue 3..............................................................................................................
 Saisie = InputBox("Veuillez entrer la liste des codes d'accès sous la forme :{Role_du_code : Le_code_*****}")
'...........Boite de dialogue 4..............................................................................................................
 Saisie = InputBox("Veuillez entrer la liste des liens utiles :{Role_du_lien1 : Le_lien_*****}")
'Et sinon si tout baigne on continue...
 MsgBox "Merci :)"
 MsgBox "PS : Le reste du document se rempli manuellement :)"
End Sub

Cdt,

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Dim clef As Integer
clef = Application.InputBox("Veuillez entrer le nombre de clefs fournies ", "Saisie numérique", Type:=1)
Do While clef = 0
   MsgBox "Vous devez saisir un nombre positif!"
  clef = Application.InputBox("Veuillez entrer le nombre de clefs fournies ", "Saisie numérique", Type:=1)
Loop
Sheets("Feuil1").Range("A1") = clef 'adapter nom de la feuille et de la cellule 

faire la même chose pour le reste

voilà


pour plus de détail sur l'InputBox voir ceci:


https://www.commentcamarche.com/faq/41585-vba-inputbox

cs_Le Pivert · Answer

Voilà a adapter:

Sub InputBoxSPECIAL()
Dim X, Y, NOM$, PRENOM$, VILLE$
X = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "1er Champ" & Space(5) & "2ème Champ" & Space(5) & "3ème Champ", "INPUTBOX SPECIALE", "JEAN , BONBLANC , DE PARIS")
Do While X = ""
   MsgBox "Vous devez saisir 3 noms séparés par une virgule "
X = InputBox(vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "1er Champ" & Space(5) & "2ème Champ" & Space(5) & "3ème Champ", "INPUTBOX SPECIALE", "JEAN , BONBLANC , DE PARIS")
Loop
Y = Split(X, ",")
NOM$ = Y(0)
PRENOM$ = Y(1)
VILLE$ = Y(2)
Sheets("Feuil1").Range("A1") = NOM 'adapter nom de la feuille et de la cellule
Sheets("Feuil1").Range("A2") = PRENOM 'adapter nom de la feuille et de la cellule
Sheets("Feuil1").Range("A3") = VILLE 'adapter nom de la feuille et de la cellule
End Sub

Boite de dialogue

2 réponses

Votre réponse

Discussions similaires