Transférer des données d'une feuille de calcul dans une autre
Résolu
Elisa
-
hamzaue -
hamzaue -
A voir également:
- Transférer des données d'une feuille de calcul dans une autre
- Fuite données maif - Guide
- Bruler une feuille de laurier - Guide
- Comment supprimer une feuille sur word - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer en a5 sur une feuille a4 - Guide
2 réponses
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