Discussion :

[gantec]

Hello,

Comment dois-je faire pour que mes données insérées à l'aide de mon userform s'inscrivent dans 1.xls et 2.xls ??

Merci a+

GT

[ouskel'n'or]

Si tu sais les insérer dans 1.xls, tu fais la même chose pour 2.xls... A moinse... que tu ne saches pas insérer les données dans 1.xls... (?)
Tu dis

[jmh51]

Bonjour,

Peut-être que ceci t'aidera...

Code :

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

1
2
Sheets(1.xls).Cells(numligne, numcolonne) = textbox1.value
Sheets(2.xls).Cells(numligne, numcolonne) = textbox1.value

textbox1 étant dans ce cas l'objet dans lequel tu introduis la donnée

[gantec]

ok merci mais vous pouvez m'aider par rapport a ce code alors ??
jsai pas si ca sera mieu ????............

Code :

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

1
2
3
4
Dim Cellule As Range
Set Cellule = Range("B" & Rows.Count).End(xlUp)(2)
Cellule(1, 1) = CorpsDeclarations.ExpediteurNom.Text
Cellule(1, 2) = CorpsDeclarations.ExpediteurPrenom.Text

[ouskel'n'or]

Sauf qu'en l'occurence il s'agit de deux classeurs et non de deux feuilles
Mais le principe reste le même

Code :

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

1
2
3
4
Set Cl1 = Workbooks("Un.xls")
Set Cl2 = Workbooks("Deux.xls")
Set F1 = Cl1.worksheets("Feuil1")
Set F2 = Cl2.worksheets("Feuil1")

Et là, le code de jmh51 :

Code :

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

1
2
3
4
5
6
7
8
F1.Cells(numligne, numcolonne) = textbox1.value
F2.Cells(numligne, numcolonne) = textbox1.value
'...
'...
Set Cl1 = NoThing
Set Cl2 = NoThing
Set F1 = NoThing
Set F2 = NoThing

Si c'est ce que tu veux...
A+

[gantec]

d'acc mais apres comment je lui di pour ecrire dans l'autre classeur ??

[ouskel'n'or]

Je pense que tu cherches la première ligne vide de ta feuille de calculs, alors si ça peut t'aider :

Code :

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

1
2
    PremiereLigneVideF1 = F1.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
    PremiereLigneVideF2 = F2.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1

Ensuite pour coller tes données

Code :

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

1
2
3
4
F1.Cells(PremiereLigneVideF1, 1) = CorpsDeclarations.ExpediteurNom.Text
F1.Cells(PremiereLigneVideF1 , 2) = CorpsDeclarations.ExpediteurPrenom.Text
F2.Cells(PremiereLigneVideF2 , 1) = CorpsDeclarations.ExpediteurNom.Text
F2.Cells(PremiereLigneVideF2 , 2) = CorpsDeclarations.ExpediteurPrenom.Text

A+

NB - Cette méthode n'a d'intérêt que si tes deux feuilles contiennent déjà des données, et des données différentes l'une de l'autre. Sinon, la copie d'un feuille, une fois renseignée, d'un classeur sur l'autre est sans doute plus rapide

[gantec]

oui merci beaucoup mais j'ai encore un souci ! il ecrit que sur une feuille et non sur les deux feuilles !!!