Bonsoir à tous,
je cherche à mettre en texte d'une textbox sur ma feuille une variable correspondant au contenu d'une cellule d'une autre feuille.
Pour celà j'ai écrit ce code:
sub remplirbox()
Sheets("Feuil1").Select
nom = Trim(Range("D3").Value)
prenom = Trim(Range("K3").Value)
With Sheets("Feuil2")
.Shapes("Text Box 14").Select
Selection.Characters.Text = nom
.Shapes("Text Box 15").Select
Selection.Characters.Text = prenom
End With
End Sub
et celà ne fonctionne pas, pourtant ce code a été obtenu depuis l'enregistreur de macros, puis modifié...
Qelqu'un a-t-il une idée de ce qui cloche ?
Merci d'avance pour votre aide.
Philippe
PS: bien entendu les Textbox 14 et 15 correspondent effectivement à leur nom sur la feuille sur laquelle je travaille
je cherche à mettre en texte d'une textbox sur ma feuille une variable correspondant au contenu d'une cellule d'une autre feuille.
Pour celà j'ai écrit ce code:
sub remplirbox()
Sheets("Feuil1").Select
nom = Trim(Range("D3").Value)
prenom = Trim(Range("K3").Value)
With Sheets("Feuil2")
.Shapes("Text Box 14").Select
Selection.Characters.Text = nom
.Shapes("Text Box 15").Select
Selection.Characters.Text = prenom
End With
End Sub
et celà ne fonctionne pas, pourtant ce code a été obtenu depuis l'enregistreur de macros, puis modifié...
Qelqu'un a-t-il une idée de ce qui cloche ?
Merci d'avance pour votre aide.
Philippe
PS: bien entendu les Textbox 14 et 15 correspondent effectivement à leur nom sur la feuille sur laquelle je travaille