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
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Recherchev dans une autre feuille ✓ - Forum Excel
- Calculer une note sur 20 ✓ - Forum Bureautique
- Supprimer une feuille word - Guide
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