Code avec si et sinon si
Fermé
kgigant
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
-
11 juin 2013 à 09:58
NeoTsu Messages postés 58 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 19 juin 2013 - 11 juin 2013 à 11:38
NeoTsu Messages postés 58 Date d'inscription jeudi 6 juin 2013 Statut Membre Dernière intervention 19 juin 2013 - 11 juin 2013 à 11:38
A voir également:
- Code avec si et sinon si
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code blocks free - Télécharger - Langages
- Code assistance ss06 - Forum Snapchat
5 réponses
NeoTsu
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
11 juin 2013 à 10:08
11 juin 2013 à 10:08
Bonjour,
sur VBA ça donne:
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
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
9
11 juin 2013 à 10:13
11 juin 2013 à 10:13
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
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
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
11 juin 2013 à 10:27
11 juin 2013 à 10:27
possible de joindre le fichier? ce serait plus simple pour comprendre ^^
www.cjoint.com
www.cjoint.com
kgigant
Messages postés
202
Date d'inscription
lundi 21 mars 2011
Statut
Membre
Dernière intervention
8 janvier 2014
9
11 juin 2013 à 11:14
11 juin 2013 à 11:14
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
NeoTsu
Messages postés
58
Date d'inscription
jeudi 6 juin 2013
Statut
Membre
Dernière intervention
19 juin 2013
3
Modifié par NeoTsu le 11/06/2013 à 11:39
Modifié par NeoTsu le 11/06/2013 à 11:39
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
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
