Code avec si et sinon si

Bonjour,

sur VBA ça donne:

Sub copie()

If Sheets("Feuil1").range("A1").value = Sheets("Feuil2").range("A1").value then
Sheets("Feuil2").range("A2").value = Sheets("Feuil1").range("A2").value
Sheets("Feuil2").range("A3").value = Sheets("Feuil1").range("A3").value
Else
If Sheets("Feuil1").range("A1").value = Sheets("Feuil3").range("A1").value then
Sheets("Feuil3").range("A2").value = Sheets("Feuil1").range("A2").value
Sheets("Feuil3").range("A3").value = Sheets("Feuil1").range("A3").value
Else
end if
end if
end sub

quelle rapidité je te remercie !! ca ressemble fortement a ce que je veux ! Et c'est possible de modifier cette partie :

Sheets("Feuil2").range("A2").value = Sheets("Feuil1").range("A2").value
Sheets("Feuil2").range("A3").value = Sheets("Feuil1").range("A3").value

pour que les valeurs de A2 et A3 de la Feuil 1 se rangent sur le derniere ligne nn vide ? a la suit en fait, du coup A2 serait sur la derniere ligne nn vide colonne A et A3 sur la derniere ligne nn vide colonne B de la feuil 2

Merci en tt cas

possible de joindre le fichier? ce serait plus simple pour comprendre ^^

www.cjoint.com

je pourrai le déposer seulement ce soir.... mais voilà en faite l'idée c'est que je fais avoir sur le Feuil1 plusieurs case a remplir et seulon le contenu de la cellule A1 de la feuil1, tout ce que j'aurais rempli ira s'incrémenter dans un onglet sous fome d'une nouvelle ligne dans un tableau à la suite.

Bon alors voila ce que je peux proposer, pour faire simple ajoute sur les feuilles 2 et 3 une case (je vais prendre D1 dans l'exemple) avec dedans : =nbval(A:A)

Si on résume, tu entre 3 valeurs en feuille 1
La première est une référence qui se trouve en A1 des deux autres feuilles
les deux autres sont des valeurs qui doivent se retrouver en AX et BX de la feuille 2 ou 3 en fonction de la référence saisie en A1

assure toi bien que sur toutes les feuilles il y est des valeurs sur les premières lignes de la colonne A ! si il faut, ajoute des "a"(ou autre, ça n'a pas d'importance, l'important c'est qu'il y ait une valeur) que tu met en blanc par la suite

sub copie
dim nbval2 as integer
dim nbval3 as integer

nbval2 = sheets("feuil2").range("D1").value + 1
nbval3 = sheets("feuil3").range("D1").value + 1

If Sheets("Feuil1").range("A1").value = Sheets("Feuil2").range("A1").value then
Sheets("Feuil2").Cells(nbval2, 1).value = Sheets("Feuil1").range("A2").value
Sheets("Feuil2").Cells(nbval2, 2).value = Sheets("Feuil1").range("A3").value
Else
If Sheets("Feuil1").range("A1").value = Sheets("Feuil3").range("A1").value then
Sheets("Feuil3").Cells(nbval3, 1).value = Sheets("Feuil1").range("A2").value
Sheets("Feuil3").Cells(nbval3, 2).value = Sheets("Feuil1").range("A3").value
Else
end if
end if
end sub