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

 

[Charly2]

Bonsoir HRDChris, bonsoir à toutes et à tous 🙂

Je ne comprends pas bien pourquoi tu as placé ton code dans ThisWorkbook mais si cela te convient...

Pour ton code, voilà une possibilité :

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 '*
Sheets('Feuil1').Range('D16')=Saisie
End If
fin:
End Sub

* Remplacer ‹› par leur équivalent clavier

A+ 😉

 

[PascalXLD]

Bonjour

Voir aussi ce fil

Lien supprimé

 

[HRDChris]

Pourriez vous clairifiez la portions ou vous marquez Equivalent clavier s'il vous plait ? car je ne saisie pas trop ce que vous voulez dire. Merci

 

[HRDChris]

Pourriez vous clairifiez la portions ou vous marquez Equivalent clavier s'il vous plait ? car je ne saisie pas trop ce que vous voulez dire. Merci

 

[Charly2]

Bonsoir HRDChris et Pascal76, bonsoir à toutes et à tous 🙂

Je ne sais pas si l'explication est encore utile mais je réponds quand même... Pour l'instant, on ne peut pas envoyer un message qui contient les signes 'supérieur' › et 'inférieur' ‹, une astuce nous permet d'utiliser d'autres caractères, mais en faisant un copier/coller, il faut faire attention à bien les re-saisir au clavier.

Voili voilà

A+ 😉