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

Bonsoir maxouw59 et bienvenu sur le forum,

Comment s'appelle ton 2ème classeur ?

Ton 2ème classeur est-il déjà ouvert ou faut-il l'ouvrir ?

A quel endroit faut-il copier tes données ? Dans quelle feuille ? Quelle cellule ?

A te relire

Martial

 

[maxouw59]

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

Bonjour Martial
Avant tout je voudrais te remercier pour l'interêt que tu me portes
Mon deuxieme classeur s'appelle classeur 2 et non il n'est pas encore ouvert
j'aimerais copier les donner dans la feuille 1 du classeur 2 cellule(a) par contre j'aimerais que si la cellule est deja remplie les données soit coller sur la cellule d'en dessous
j'espere vraiment que tu pourras m'aider

Maxime

 

[Yaloo]

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

Bonjour Maxime,

Voici ton fichier modifié et un deuxième, les 2 à mettre dans le même répertoire.

A te relire

Martial

 

[maxouw59]

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

c'est exactement ce que je cherchais
Merci Martial !

 

[maxouw59]

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

Bonjour
la Macro de Martial fonctionne parfaitement,mais si le classeur 2 n'est plus dans le même dossier que le classeur 12 la macro ne fonctionne plus
j'ai besoin d'aide pour copier les donnée de textebox d'un classeur 12 pour ensuite les coller dans un classeur 2 (les 2 classeurs sont dans un dossier différents)
maxime

 

[Yaloo]

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

Bonsoir Maxime,

Il faut changer

Workbooks.Open ThisWorkbook.Path & "\Classeur 2.xlsx"

par

Workbooks.Open "C:\Ton répertoire\ton sous-répertoire\Classeur 2.xlsx"

A+

Martial

 

[maxouw59]

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

merci Martial
Un dernier petit renseignement pour copier une cellule dans une cellule d'une autre page qu'est ce que je dois changer pour que sa fonctionne j'ai essayer
dlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("A" & dlig).Value = A1.Value
Mais sans succès .. Peut tu m'aidés ?
Maxime

 

[Yaloo]

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

Bonjour Maxime,

dlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1

Signifie qu'il s'agit de la première cellule vide de ta colonne A de la Feuil2

Si tu souhaites copier dans une autre page du même classeur :
Sheets("Nouvel onglet").[A1].Value = Sheets("Feuil2").Range("A" & dlig).Value
ou
Sheets("Nouvel onglet").Range("A1").Value = Sheets("Feuil2").Range("A" & dlig).Value

si c'est dans un autre classeur et dans un autre onglet :
Workbooks("Nouveau Classeur").Worksheets("Ta feuille").[A1] = Sheets("Feuil2").Range("A" & dlig).Value

Lorsqu'il y a plusieurs classeurs, on peut les désigner avec ThisWorkbook (classeur où se trouve la macro) et ActiveWorkbook (si ce n'est pas le ThisWorkbook)

A+

Martial

 

[maxouw59]

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

Bonsoir Martial
Je te remercie pour tout ces indications trés utiles pour moi
je vais peut etre encore avoir besoin de ton aide, sans vouloir abuser de ta gentilesse Martial
Enfaite je voudrais inserer un si dans une cellule exemple: si " valeur cellule(b1)>1;"si vrai copier cette donnée dans la textbox3;"si non aficher la valeur cellule (b1)"
En esperant que tu puisses m'aider encore une fois !

Maxime

 

[Yaloo]

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

Bonsoir Maxime,

Comme ça ???

A+

Martial

 

[maxouw59]

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

avant tout Merci encore pour ta rapidité de reponse
mais je n'arrive pas a faire fonctionner la maccro quand j'ecris dans la celluleB1 rien ne se passe :/ le textbox reste egale a 2

 

[Yaloo]

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

Re,

Que rentres-tu en B1 ? Il ne faut que des nombres.

Chez moi, si je mets :
0 ou 1 rien ne s'inscrit dans le textbox3
2, 3, 4 etc... en B1 ça s'efface et le textbox3 se remplit de la valeur rentrée précédemment en B1.

A+

 

[maxouw59]

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

Bonjour Martial!
Ton programme fonctionne parfaitement comme d'habitude
mais sais -tu comment faire apparaïtre un texte dans la textbox 3 quand la cellule b1 >1
Exemple : si " valeur cellule(b1)>1;"si vrai copier cette donnée dans la textbox3(avec texte derriere );"si non aficher la valeur cellule (b1)"
Je sais pas si tu me comprends Martial
maxime

 

[maxouw59]

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

Martial j'ai un autre probleme encore :/..
je n'arrive pas a copier la cellule a1 feuille 2 du classeur 12 vers la 1er cellule vide du rang f classeur 22 feuille 2 tout en gardant le bouton1
merci d'avance !
maxime