Variable dans cellule

[HRDChris]

J'ai ce code au démarrage de ma page :

Private Sub Workbook_Open()
' Macro entrée de numéro de commande
Dim Saisie As String
Saisie = InputBox('Veuillez saisir le numéro de commande EX:IMMB025014):')
If Saisie = '' Then
GoTo fin
End If
fin:
End Sub

Je souhaite mettre le contenu de la variable dans la cellule D16 de ma Feuil1. Quel code fait il rajouter pour pouvoir l'implanter ? Je débute en VBA soyez indulgent !!

Merci de votre aide. Cordialement

 

[MichelXld]

bonjour

si j'ai bien compris ta demande , tu peux utiliser : Sheets('Feuil1').Range('D16') = Saisie

Dim Saisie As String
Saisie = InputBox('Veuillez saisir le numéro de commande EX:IMMB025014):')
If Saisie = '' Then Exit Sub
Sheets('Feuil1').Range('D16') = Saisie


bonne journée
MichelXld

 

[PascalXLD]

Bonjour

Voir aussi ce fil

Lien supprimé