Discussion :

[Maiden002]

Bonjour,

Voila je vous demande de l'aide, j'ai un fichier ou sur ma page principal (feuil1) avec un tableau et un bouton Ajouter qui marche , quand je clic dessus sa me rajoute une ligne a la suite avec une imputbox qui demande des informations a l'utilisateur.

Mon problème est le suivant. J'ai une deuxième feuille (feuil2) ou j'ai un autre tableau récapitulatif. Et je voudrai en faite, des que je rajoute ma ligne dans la feuil1 , qu'il me rajoute une ligne a la feuil2 aussi . mon tableau a la feuil2 deux commence a la ligne 14 et s'étend de la colone E a H.

Pouvez vous m'aidez ??

Merci beaucoup

[Krovax]

bonjour,

Je suppose que tu ne veux pas inserer une ligne (assez inutile d'insérer une ligne blanche a la fin du tableau il y en a déjà plein ) Mais remplir la ligne suivant la dernière je me trompe?

Code :

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

1
2
3
4
5
6
7
 
dim DerniereLigneF2  as long
'récupère la dernière ligne de la colonne E feuil2
DerniereLigneF2 = worksheets("feuil2").Range("E65536").End(xlUp).Row
worksheets("feuil2").Range("E" & DerniereLigneF2 +1)=Inputbox'"Valeur colonne E")
worksheets("feuil2").Range("f" & DerniereLigneF2 +1)=Inputbox'"Valeur colonne f")
worksheets("feuil2").Range("g" & DerniereLigneF2 +1)=Inputbox'"Valeur colonne g")

Si ca ne convient pas essaye peut être d'être plus claire, ou alors si quelqu'un comprend autre chose je lui passe la main

[Maiden002]

Oui j'ai oublié de dire que dans mon tableau il y a des couleurs de fond spéciaux.


Car mon ajout de ligne pour la feuille 1 marche trés bien. Ce qui me faudrai c'est que quand la ligne de la feuille 1 ce crée, il crée en meme temps dans la feuille 2 une ligne.

[Krovax]

Tu n'est pas beaucoup plus précis mais bon

dans ce cas double ton code
en rajoutant là ou il faut

Code :

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

worksheets("Feuil2").

exemple,
tu as

Code :

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

range("UneAdresse").interior.colorindex=5

tu ecris en plus

Code :

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

worksheets("Feuil2").range("UneAdresse").interior.colorindex=5

Après pour savoir quelle est la dernière ligne de la feuille 2 tu adapte le code précédent.
Si ca coince montre le code qui permet d'ajouter une ligne sur la feuil1 et explique ce qui diffère dans la feuil2