Création de lien texte entre fichier par cochage.

T

tontoncarton

XLDnaute Occasionnel

• 22 Août 2005

• #2

Salut ,

Alors toi tu aimes te casser la tete ! Voila plusieurs questions:

Poukoi 3 classeurs pour faire ca?
La liste de nom est elle tjrs la meme?
Va tu ajouté des noms dans le classeur 1?
Veut tu que les infos envoyés vers le classeur 2 se mettent a la suite ou dans une cellule en particuliers?

sinon voila une maniere de faire un copier coller dans un autre classeur :

Worksheets('Feuille du classeur 1').Range('info a copier').Copy
Workbooks.Open ('C:destinationclasseur2.xls')
Sheets('feuille ou coller').Range('infocopié').PasteSpecial
ActiveWorkbook.Save
ActiveWorkbook.Close

voia @ +

 

Vote positif 0 Vote négatif

N

Nagrom

Guest

• 22 Août 2005

• #3

Salut,

C'est pour le boulot, c'est pour ça qu'il y a trois classeur.

La liste des noms peut changer, et parfois, il y aura des rajouts de nom dans le classeur '1'.

Je voudrais que les infos envoyées se mettent à la suite dans les tableaux.

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 22 Août 2005

• #4

re
bon dans ce cas alors change la maniere de proceder.
Commence par faire un Userform te permettant de remplir les Noms,Prenoms,age etc dans la feuille1 de ton classeur 1.une fois que tu as fait ca on s'occupera du transfert vers les 2 autres classeurs

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 22 Août 2005

• #5

Voila c'est fait. Par contre, ça ne modifie que la ligne A, je ne sais pas comment faire pour que ça se rajoute à la suite. [file name=excel_20050822180327.zip size=14565]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/excel_20050822180327.zip[/file]

 

Pièces jointes

• excel_20050822180327.zip

  14.2 KB · Affichages: 12

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 22 Août 2005

• #6

re

voila le code que tu doit remplacer pour la validation de tes entrées :

Private Sub CommandButton1_Click()

With Sheets('feuil1')

l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1

Cells(l, 1) = TextBox1.Value
Cells(l, 2) = TextBox2.Value
Cells(l, 3) = TextBox3.Value
Cells(l, 4) = TextBox4.Value

End With
End Sub

de cette maniere, les infos se mettrons a la suite

je regarde pour ton transfert pour demain
@ +

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 22 Août 2005

• #7

Super, j'ai changé le code, merci beaucoup.
A demain.

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 22 Août 2005

• #8

Par contre, juste une pécision:
Il faut garder le système de case à cocher qui déterminera le transfert de certaines infos du personnes dans les différents classeurs.
Car toutes les personnes inscritent dans le classeur '1' ne doivent pas tous figurées dans les autres classeurs.

D'où le système de cochage.

@++

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 23 Août 2005

• #9

Salut Nagrom ,

Voila je te joint ton fichier.Pour que ca fonctionne il faut que tu crées un Dossier 'Classeurs' dans ProgramFiles et que tu mettes tes 3 classeurs dedans

J'espere que c'est ce que tu voulais faire , il n'y as plus de case a coché mais tu peux choisir et voir qui a deja ete transferer et aussi supprimer les entrées .Voila si ta des questions hesite pas


@ + [file name=classeurs.zip size=28856]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeurs.zip[/file]

 

Pièces jointes

• classeurs.zip

  2.7 KB · Affichages: 20
• classeurs.zip

  2.7 KB · Affichages: 16
• classeurs.zip

  2.7 KB · Affichages: 21

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 23 Août 2005

• #10

Salut,

Ecoute, je te remercie beaucoup, c'est vraiment parfait!!
Si jamais j'ai une question, il n'y a pas de problème, je te contacterai.
Merci encore.

Message édité par: Nagrom, à: 23/08/2005 20:37

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #11

Re,

J'aurai une petite question concernant un autre fichier que je possède. J'ai créé un formulaire pour remplir les lignes à l'aide d'une userform qui se déclenche en cliquant sur le bouton qui se trouve au niveau de la colonne Q.

Seulement voilà, lorsque je valide les données, les informations des 4 premières colonnes se rajoutent tout à la fin du tableau (ça c'est bon), mais tout le reste figure dans la ligne 1 à partir de la colonne E, remplaçant ainsi les noms de mes colonnes.

Pourrais-tu m'aider à résoudre ce problème.

Merci d'avance. [file name=donees.zip size=30287]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/donees.zip[/file]

 

Pièces jointes

• donees.zip

  29.6 KB · Affichages: 18

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #12

Salut nagrom ,

Alors pour ce petit probleme rien de bien grave , dans le code tu as mis :

cells(1,2) au lieu de cells(l,2)
tu as repete l'erreur plusieur fois , ya plus ka corriger

Petite Précision , au debut on cree une variable 'l' ,par contre il faut declarer cette variarble au debut de la procedure

il faut mettre :

Private Sub CommandButton1_Click()

dim l as integer 'puis

l = Sheets('feuil1').Range('A65536').End(xlUp).Row + 1

et enfin

cells(l,1)=cequetuveux
cells(l,2)=cequetuveux etc ...



voila tu vois c'etait pas grand chose , bon courage pour la suite et tu sais ou me trouvé au cas ou lol @ +

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #13

Salut,

Merci, en faite j'ai cru que c'était un 1.
J'aurai sans doute d'autres questions plus tard.

 

Vote positif 0 Vote négatif

N

Nagrom

XLDnaute Occasionnel

• 24 Août 2005

• #14

Re,

Encore une petite question!

Quand je veux rajouter une nouvelle personne dans le formulaire, j'écris le nom, et dès que je fais ça, dans les autres champs figurent 'prénom:', 'ville:' et 'âge:'.

Il y aurait-il moyen que les cases restent vides quand je rajoute une nouvelle personne?

Merci.

Message édité par: Nagrom, à: 24/08/2005 14:33

 

Vote positif 0 Vote négatif

T

tontoncarton

XLDnaute Occasionnel

• 24 Août 2005

• #15

re ,

oui lol

c un petit beug de ma part , pour faire simple tu crees une procedure
pour la textbox2


Private Sub TextBox2_Change()

if textbox2.value'prénom:' then
textbox2=''
textbox3=''
textbox4=''
end if
end sub

 

Vote positif 0 Vote négatif