Création de lien texte entre fichier par cochage.

[Nagrom]

Bonjour tout le monde,

Je possède un classeur '1' qui est une sorte de registre avec le nom,le prénom, la ville et l'âge de plusieurs personnes.
J'ai rajouté une autre colonne avec des cases à cocher.

J'aimerai que lorsque je coche la case d'un personnage choisi, son nom et son âge s'inscrivent dans un tableau d'un classeur '2' et que son prénom et sa ville s'affiche dans un tableau d'un classeur '3'.

Et quand je décoche la case de la personne, les données inscritent dans le classeur '2' et '3' s'éffacent.

Quelqu'un pourrait-il m'aider s'il vous plait.

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

 

[tontoncarton]

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 @ +

 

[Nagrom]

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.

 

[tontoncarton]

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


🙂

 

[Nagrom]

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]

 

[tontoncarton]

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 🙂
@ +

 

[Nagrom]

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

 

[Nagrom]

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.

@++

 

[tontoncarton]

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]

 

[Nagrom]

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

 

[Nagrom]

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]

 

[tontoncarton]

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 🙂 @ +

 

[Nagrom]

Salut,

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

 

[Nagrom]

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

 

[tontoncarton]

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