code avec si et sinon si Fermé

Question

Bonjour, 


Je cherche un code simple pour répondre à cette problematiqe :

Si la cellule A1 de le Feuil1 égale la cellule A1 de la Feuil2
 alors copier coller des cellules A2 et A3 Feuil1 vers les cellules A2 et A3 Feuil 2
Sinon si la cellule A1 de le Feuil1 égale la cellule A1 de la Feuil3
alors copier coller des cellules A2 et A3 Feuil1 vers les cellules A2 et A3 Feuil 3


Voilà si quelq'un à une idée simple, parce que je m'embrouille en le créant !!! 
Merci d'avance

KG

NeoTsu · Answer

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

kgigant · Answer

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

NeoTsu · Answer

possible de joindre le fichier? ce serait plus simple pour comprendre ^^

www.cjoint.com

kgigant · Answer

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.

NeoTsu · Answer

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

Code avec si et sinon si

5 réponses

Discussions similaires