Recopier deux colonnes sous condition

[pipof]

Bonjour
J ai 8 colonnes et 1045 lignes sur une feuille.
si le chiffre qui se trouve dans la olonne 8(H)est supérieur a zéro
Je veux que les informations ( pas les formules) des colonnes G (7) et H (8) de cette page apparraisent dans une autre feuille en haut et sans ligne vierge
Merci pour votre réponse

[Daniel.C]

si le chiffre qui se trouve dans la olonne 8(H)est supérieur a zéro

Pour chaque ligne ?

[mercatog]

Une proposition utilisant un filtre automatique

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub TransfertPositifs()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Source")                                            'Adapte le nom de la feuille source
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "G").End(xlUp).Row
    .Range("G1:H" & LastLig).AutoFilter field:=2, Criteria1:=">0"
    .Range("G1:H" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("Destination").Range("A1").PasteSpecial Paste:=xlValues 'Adapte le nom de la feuille Destination
    Application.CutCopyMode = False
    .AutoFilterMode = False
End With
End Sub

[pipof]

Bonjour
C est ma première sur un forum
Je ne sais pas si c est la bonne façon de répondre
J ai essayer la formule mais j ai un message d erreur m indiquant erreur d exécution l indice n appartient pas a la sélection
Je précise que l idée est de faire apparaitre sur une autre feuille uniquement les lignes dont le le chiffre de la colonne H est sup. a 0

[mercatog]

Relis les commentaires dans le code et adapte les noms des feuilles par rapport à ton classeur.
J'ai mis Source et Destination, à toi d'adapter à ton classeur

[pipof]

Merci beaucoup pour ta réponse,
Ça fonctionne mais je m aperçois qu il me manque une colonne (F) de la source que j aimerais faire apparaitre Dans la troisième colonne de la feuille de destination. Est ce possible

[Daniel.C]

En adaptant le code de mercatog et en espérant n'avoir rien cassé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TransfertPositifs()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("Source")                                            'Adapte le nom de la feuille source
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "F").End(xlUp).Row
    .Range("F1:H" & LastLig).AutoFilter field:=3, Criteria1:=">0"
    .Range("G1:H" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("Destination").Range("A1").PasteSpecial Paste:=xlValues 'Adapte le nom de la feuille Destination
    .Range("F1:F" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("Destination").Range("C1").PasteSpecial Paste:=xlValues 'Adapte le nom de la feuille Destination
    Application.CutCopyMode = False
    .AutoFilterMode = False
End With
End Sub

[pipof]

C est magique ( pour moi).ça marche
Si je peux abuser , est il possible de trier dans la feuille de destination la colonne A ( c est des noms de fruits et légumes ) : si dans cette colonne il y a plusieurs noms identiques alors les regrouper sur une seule ligne et additionner les chiffres de la colonne B dans la mesure ou l unité de mesure se trouvant dans la colonne C est la même.
Je crois que je suis en train de monter une 'usine a gaz'

[mercatog]

Fais un tableau croisé dynamique pour le regroupement.

[Fred.dz]

Tu peux utiliser une collection pour récupérer toutes les possibilités de valeurs dans ta colonne (sans doublons). Ensuite "copier" ta collection dans une nouvelle feuille et faire un somme.si (soit tu le fait en te "créant" une fontion "somme si" en progammant ta boucle en VBA, soit tu le fait direct dans Excel, soit tu fais remplir tes cases par des "=somme.si(...)" via VBA)

[Daniel.C]

@ Fred.dz :

Bonjour,

Pas exactement. Comme je le comprends, tu peux avoir plusieurs fois le même produit puisque tu peux avoir plusieurs valeurs différentes en colonne C pour ce même produit. L'alternative au TCD est un tri et une boucle sur les données.

[pipof]

Je ne suis vraiment pas expert et le tableau dynamique croise tout comme la boucle ne me parle pas plus. Quelle est la solution la plus simple pour un novice ?
Merci pour l intérêt que vous portez a mon questionnement

[mercatog]

Je ne suis vraiment pas expert et le tableau dynamique

C'est l'occasion
C'est l'outil d'Excel le plus adapté pour l'analyse et synthèse et c'est simple d'utilisation.

[Daniel.C]

Tu as un tutoriel ici :

http://www.6ma.fr/tuto/excel+tableau...e+dynamique-55

[pipof]

Merci pour vos réponses, je potasse le tutoriel et vous tiens au courrant.
Cordialement pipof

[pipof]

Après avoir consulter le tutoriel? Je m aperçois qu il serait utile que je rajoute une colonne dans la premiere feuille "plat" et lorsque j écris un mot dans une cellule il doit apparaitre dans la feuille " liste" première colonne. Est ce possible?
Actuellement j ai trois feuilles la première nommèe "plat" la seconde feuille nommèe calcul (source) et la troisiemme nommèe liste (destination).

[pipof]

pas de réponse au dernier message, c est que je ne doit pas être très clair.
j ai une autre question qui me permettrais d'avancer :
est il possible d’écrire un mot ou groupe de mots dans une cellule de la colonne C ou D d'une feuille "x" et qui soit reconnu dans une liste de mots ou groupe de mots qui se trouvent dans une colonne d'une feuille "y"
Faut il ouvrir une autre discussion car je m'eloigne du premier sujet?

[Daniel.C]

Oui, je n'ai pas répondu à ton avant-dernier post. Excuse-moi. C'est le nom de tes feuilles qui m'a déconcerté. Peux-tu poster la macro que tu utilises ?

Pour la dernière question, oui, ouvre un nouveau fil car en ce moment, je sature un peu.

[pipof]

voici celle que j'utilise

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ingredients()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets("calcul")
    .AutoFilterMode = False
    LastLig = .Cells(.Rows.Count, "F").End(xlUp).Row
    .Range("F1:H" & LastLig).AutoFilter field:=3, Criteria1:=">0"
    .Range("G1:H" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("liste").Range("A1").PasteSpecial Paste:=xlValues
    .Range("F1:F" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("liste").Range("C1").PasteSpecial Paste:=xlValues
    .Range("D1:D" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("liste").Range("D1").PasteSpecial Paste:=xlValues
      .Range("C1:C" & LastLig).SpecialCells(xlCellTypeVisible).Copy
    Worksheets("liste").Range("E1").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    .AutoFilterMode = False
End With
End Sub

merci pour ton aide
pipof

[Daniel.C]

Tu devrais entourer ton code avec les balises code (mets le texte en surbrillance et appuie sur l'icône dièse (#). Ceci dit , tu parles d'une feuille "plat". Jusqu'ici, il n'y a que deux feuilles : calcul et liste. Peux-tu expliciter ce que tu veux ?