Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copie cellule dans zône de texte

  • Initiateur de la discussion Initiateur de la discussion Boby71C
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Boby71C

Guest
Bonjour à tous

Pouvez-vous m'indiquer comment copier le texte de la cellule A3 dans une zône de texte sachant que cette zône comporte déjà un début de titre qui sera complété par cette copie.

Ex:
A3 = XXXXXXX

Zône de texte =
Dupond : XXXXXXX

Les X sont les éléments copiés.

Merci de votre aide
 
Bonsoir,

Si ta zone de texte nommée textbox1 se trouve dans un userform nommé userform1 et que le texte à copier se trouve sur une feuille nommée feuil1 dans la cellule A3 :

userform1.textbox1.value="Dupond : " & sheets("feuil1").range("a3").value

Si ta zone de texte nommée textbox1 se trouve dans une feuille nommée feuil1 et que le texte à copier se trouve sur la même feuille dans la cellule A3 :

feuil1.textbox1.value="Dupond : " & sheets("feuil1").range("a3").value

@+

Ronan
 
Bonjour les amis

Malgré l'aide de Ronan, je n'y arrive pas. Mon savoir en VBA laisse à désirer.

Je vous joints un extrait de mon fichier avec la pauvre macro que j'ai créé . Je me suis peut être trés mal exprimé lors de mes précédents messages.

Merci de votre aide qui m'est trés précieuse

A bientôt
Robert
 

Pièces jointes

Bonsoir,

Ceci est plus clair !!!!

Voici un exemple :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal = "$A$3" Then
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = "Galaxy : " & Range("a3").Value
Range("a3").Select
End If
End Sub

Code à insérer dans le module de la feuille concernée.

A chaque changement dans la cellule A3, le contenu de la zone de texte est modifié en conséquence.

@+

Ronan
 

Pièces jointes

Bonjour Ronan Et le Forum

Merci beaucoup pour ton aide Ronan car sans toi, je n'y serais pas arrivé.
J'ai mis en application sur la totalité de mes plannings et cela fonctionne parfaitement bien.
Je m'étais trés mal exprimé lors de ma première demande , accepte toutes mes excuses pour la perte de temps.

Merci à tous de votre aide car sans vous, nous ne pourrions pas pénétrer dans le monde mystérieux mais fantastique de la programmation en VBA.
Il y a quelques mois, je n'y connaissais absolument rien mais je commence à comprendre un petit peut et vous m'apportez beaucoup.

Merci à nouveau et longue vie à votre merveilleux Forum.

Bon Week End à tous
Robert
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
14
Affichages
599
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…