Copier coller donnée d'un textbox d'un classeur à l'autre

[maxouw59]

Bonjour
Etant débutant en programation j'aurais voulu avoir de l'aider pour copier les donnée d'un textebox d'un classeur 1 pour ensuite les coller dans un classeur 2
voici ma programation(mais celle-ci copie les donner de la feuille 1 a la feuille 2 )

Private Sub CommandButton1_Click()
Dim dlig As Integer
dlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1 (permet de changer e ligne a chaque validation)
Sheets("Feuil2").Range("A" & dlig).Value = TextBox1.Text
End Sub

je vous remercie d'avance
cordialement maxime

 

[Yaloo]

Re : Copier coller donnée d'un textbox d'un classeur à l'autre

Bonjour Maxime,

Voici pour ton post #14, modification de la macro Change :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0: Application.EnableEvents = 0
If Target.Address = "$B$1" Then
  If Target > 1 Then
    'Si le texte est dans une cellule
    TextBox3 = Target & " " & [A1]
    'Si le texte est fixe
    'TextBox3 = Target & " Texte fixe"
    Target = ""
  Else
    TextBox3 = Target
  End If
End If
Application.ScreenUpdating = -1: Application.EnableEvents = -1
End Sub

Pour ton post #15, il faut garder le bouton et changer la macro associée ou ajouter ta nouvelle demande à la macro existante ?

En plus clair, on copie la valeur du TextBox dans la dernière cellule colonne A classeur 2 et ensuite on copie la cellule A1 dans la dernière cellule colonne F du classeur 22 ?

A+

Martial

 

[maxouw59]

Re : Copier coller donnée d'un textbox d'un classeur à l'autre

Je te remercie encore une fois je ne sais pas comment j'aurais fais sans toi
en effect, il faudraitcopie la valeur du TextBox dans la dernière cellule colonne A classeur 2 et ensuite on copie la cellule A1 dans la dernière cellule colonne F du classeur 22 !
je ne sais pas comment te remercié pour ton aide martial !
maxime

 

[Yaloo]

Re : Copier coller donnée d'un textbox d'un classeur à l'autre

Voici ton fichier avec la macro modifiée.

A+

Martial