Discussion :

[dupirev]

Bonjour,

Je débute en programmation VBA Excel...

Je cherche à coder une macro me permettant de copier le contenu d'une zone de texte vers une cellule donnée automatiquement lorsque je clique sur la zone. Il y a plusieurs zones de texte possible. En fait c'est simple dans l'idée: un clic sur la zone de texte dont on veut copier le contenu, paf le contenu est automatiquement copié dans une cellule.

Après, une nouvelle difficultée: depuis un classeur maître, une macro me permet d'ouvrir un 2em classeur, qui contient les zones de texte. Les données copiées depuis le classeur 2 devraient être collées dans des cellules du classeur 1.

Voilà, en espérant que vous pourrez m'aider
Merci d'avance !

[NVCfrm]

bonsoir,

hummm

En fait c'est simple dans l'idée: ..., paf le contenu est automatiquement copié dans une cellule.

bon pour cela, tu devrais brancher tous tes objet Zone de texte à une seule macro. Le code suivant te sert d'exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub Get_Texte()
    Dim sp As Shape, tx As String, r As Range,n
    'type msoTextBox
    Set sp = ActiveSheet.Shapes(Application.Caller)
    tx = sp.TextFrame2.TextRange.Text
    MsgBox tx
    Set r = ActiveWindow.RangeSelection' ou A1
    r.Cells(1,1) = tx 'renvoi le texte dans la première cellule de la selection
    'ou encore renvoyer le texte dans la première ligne vide trouvée de la colonne A.
    n = Range("a1").End(xlDown).Row + 1 
    Cells(n, 1) = tx
 
End Sub

c'est le plus difficile.

Pour le 2 ème cas adapte les noms de références:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
    Workbooks("Ton fichier source").Sheets("Ta feuille source") Range("a1").CurrentRegion.Columns(1).Copy Workbooks("Ton fichier destination").Sheets("Ta feuille destintion").Range("a1").CurrentRegion.Columns(1).End(xlDown).Cells(2, 1)