Transférer des données d'une feuille de calcul dans une autre
Résolu/Fermé
A voir également:
- Transférer des données d'une feuille de calcul dans une autre
- Supprimer une feuille word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Formule de calcul excel - Guide
- Transferer photo android vers pc - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
2 réponses
Elisoux
Messages postés
2
Date d'inscription
mardi 23 juillet 2013
Statut
Membre
Dernière intervention
23 juillet 2013
23 juil. 2013 à 14:18
23 juil. 2013 à 14:18
Merci beaucoup beaucoup ! il marche à la perfection
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
153
23 juil. 2013 à 13:08
23 juil. 2013 à 13:08
Bonjour,
je vais te donner le code mais faudra que tu adaptes en fonction de ton tableau.
Je pars de l'hypothèse que to tableau est comme ca dans la feuille 1 :
colonne A : article
colonne B : description
colonne C : quantité
colonne D : commande
Tu veux copier ca dans la feuille 2 si la commande est >=1, voici le code
sub copiercoller ()
i=2 'commence à regarder la ligne 2
j = 2 'pour copier dans la feuille 2
sheets("Feuil1").select 'sélectionne la feuille 1
do while cells(i,1) <> "" 'la macro s'exécutera tant que dans la cellule de la ligne i et colonne 1 il y aura une valeur
if cells(i,4) >= 1 'si la cellule de la ligne i colonne 4 est supérieure ou égale à 1 alors
sheets("Feuille 2").cells(j,1 ) = sheets("Feuille 1").cells(i,1) ' la cellule de la ligne j colonne 1 de la feuille 2 est égal à la cellule de laligne i colonne 1 de la feuille 1 (soit l'article)
sheets("Feuille 2").cells(j,2) = sheets("Feuille 1").cells(i,2) ' la cellule de la ligne j colonne 2 de la feuille 2 est égal à la cellule de laligne i colonne 2 de la feuille 1 (soit la description)
sheets("Feuille 2").cells(j,4) = sheets("Feuille 1").cells(i,4) ' la cellule de la ligne j colonne 4 de la feuille 2 est égal à la cellule de laligne i colonne 4 de la feuille 1 (soit la commande)
j=j+1
end if 'fin du if
i=i+1
loop 'retourne au do while
end sub
je vais te donner le code mais faudra que tu adaptes en fonction de ton tableau.
Je pars de l'hypothèse que to tableau est comme ca dans la feuille 1 :
colonne A : article
colonne B : description
colonne C : quantité
colonne D : commande
Tu veux copier ca dans la feuille 2 si la commande est >=1, voici le code
sub copiercoller ()
i=2 'commence à regarder la ligne 2
j = 2 'pour copier dans la feuille 2
sheets("Feuil1").select 'sélectionne la feuille 1
do while cells(i,1) <> "" 'la macro s'exécutera tant que dans la cellule de la ligne i et colonne 1 il y aura une valeur
if cells(i,4) >= 1 'si la cellule de la ligne i colonne 4 est supérieure ou égale à 1 alors
sheets("Feuille 2").cells(j,1 ) = sheets("Feuille 1").cells(i,1) ' la cellule de la ligne j colonne 1 de la feuille 2 est égal à la cellule de laligne i colonne 1 de la feuille 1 (soit l'article)
sheets("Feuille 2").cells(j,2) = sheets("Feuille 1").cells(i,2) ' la cellule de la ligne j colonne 2 de la feuille 2 est égal à la cellule de laligne i colonne 2 de la feuille 1 (soit la description)
sheets("Feuille 2").cells(j,4) = sheets("Feuille 1").cells(i,4) ' la cellule de la ligne j colonne 4 de la feuille 2 est égal à la cellule de laligne i colonne 4 de la feuille 1 (soit la commande)
j=j+1
end if 'fin du if
i=i+1
loop 'retourne au do while
end sub
