Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pipof]

voici celle que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pipof]

**Effectivement j ai rajoutè une feuille pour me simplifier l accès des donnès de la feuille calcul: je m explique
* J ai une feuille appelée "calcul" dans cette feuille 8 colonnes et 1045 lignes * * *Je fait le calcul des ingrédients nécessaires pour réaliser un plat cuisinè.
J ai crèè une feuille appelée "plats" dans cette feuille 3 colonnes et 150 lignes*
Dans cette feuille je peux noter un jour de la semaine dans des cellules de la colonne A, dans la deuxième colonne B j inscris des chiffres qui agissent sur la "feuille calcul" , dans la troisième colonne le noms des plats*
La troisième feuille est appelée "liste" c 'est dans cette *feuille q une macro doit être réalisée pour faire apparaitre les informations de la colonne A de la feuille appelée "plats" ainsi que les informations des colonnes ''E" "G" et "H" de la feuille "calcul" si le montant qui apparait dans la colone "H" de la feuille "calcul" est supérieur a zéro.
Je dois obtenir 5*colonnes avec*des données que j aimerai traiter dans un tableau dynamique
Pipof

[Daniel.C]

OK. Le mieux serait que tu mettes en PJ un petit classeur exemple. Quelse sont les champs que tu veux voir figurer sur le tableau croisé dynamique (TCD) ?

[pipof]

voici une partie du fichier
merci
pipof