Inputbox à l'ouverture du fichier

Résolu
paul57 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -  
paul57 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerai créer une inputbox à l'ouverture d'un fichier excel
Une fois la valeur entrez et valider j'aimerai qu'elle s'affiche dans la feuille 1 à la cellule D4

Merci pour votre aide
A voir également:

2 réponses

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
1- ouvrez votre classeur,
2- Tapez ALT + F11 ---> une fenêtre Visual Basic s'affiche
3- Sur la gauche de cette fenêtre, double cliquez sur "This workbook"
4- Menu déroulant (fenêtre centrale) de gauche (général) choisir : WorkBook, menu déroulant de droite (déclarations) choisir : "Open"
5- 2 lignes de code s'affichent :
Private Sub Workbook_Open()

End Sub

6- entre ces deux lignes collez ce code pour obtenir :
Private Sub Workbook_Open()
Dim a As String
a = InputBox("Merci de saisir ici le contenu de la cellule D4", "Saisie")
Sheets("Feuil1").Range("D4") = a
End Sub

1
paul57 Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
Merci à toi pijaku,

C t super bien expliqué et ca marche comme je le voulais
Merci beaucoup
0