Code avec si et sinon si

[Fermé]
Signaler
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
-
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
-
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

5 réponses

Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
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
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
10
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
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
possible de joindre le fichier? ce serait plus simple pour comprendre ^^

www.cjoint.com
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
10
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.
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
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