tri simple

[champomy11]

bonjour

j'ai un petit fichier ,style liste de course, et j'aimerai une fois mes quantités saises dans une colone face aux articles ,que seul les articles avec quantités reste.

 

[mromain]

Re : tri simple

Bonjour champomy11.

si j'ai bien compris ton PB, il suffit de filtrer ta colonne "Quantité" avec "(non vide)".

A+

 

[Dull]

Re : tri simple

Salut Champomy11, le Forum
Salut mromain, adcd🙂

Puisque que j'y suis voila ce que j'ai compris 😛

Bonne Journée

 

[abcd]

Re : tri simple

Bonjour,

Je ne vois pas bien ce que tu veux faire.

Cacher la colonne des prix : sélectionner la colonne et masquer
Cacher les prix : MFC et police police de couleur blanche
Supprimer la colonne des prix : macro

abcd

 

[champomy11]

Re : tri simple

en faites il faudrais qu'il me reste que les lignes qui ont des quantités , avec les prix à coté ( la formules quantité prix ,ca je gere 🙂 ) et le total prix .

 

[champomy11]

Re : tri simple

bonjour Dull
ta solution m'interesse ,mais j'aimerai la comprendre ,
Je n 'arrive pas a voir la macro elle est proteger?.

bonne journée

 

[Dull]

Re : tri simple

Re le Fil

As tu regarder mon Fichier?

je le remet avec non masquage de la colonne C et plage nommée qui peut être évolutive

Bonne Journée

 

[Dull]

Re : tri simple

Oups Champomy

désolé nos messages se sont croisés

Je n 'arrive pas a voir la macro elle est proteger?.

Pas du tout
Click Droit sur l'onglet Feuil1 et Visualiser le Code ou Alt + F11 et tu verra le code
qui dit à peu près ceci

Private Sub ToggleButton1_Click()
Dim C As Range [COLOR=seagreen]' Déclare la Variable C[/COLOR]
Application.ScreenUpdating = False[COLOR=seagreen] ' Fige l'ecran[/COLOR]
If ToggleButton1 = True Then [COLOR=seagreen]'Si le Bouton est cliquer condition 1[/COLOR]
ToggleButton1.Caption = "Afficher" [COLOR=seagreen]' Bouton marqué Afficher[/COLOR]
For Each C In Range("Base") [COLOR=seagreen]' pour chaque cellule dans la Base[/COLOR]
    If C.Value = "" Then [COLOR=seagreen]' Si la cellule est vide condition 2[/COLOR]
        C.RowHeight = 0 [COLOR=seagreen]'Masque la ligne[/COLOR]
    End If [COLOR=seagreen]' Fin de Condition 2[/COLOR]
Next [COLOR=seagreen]' Prochaine Cellule[/COLOR]
'Columns("C:C").ColumnWidth = 0
Else[COLOR=seagreen] ' Si tu reclique sur le bouton[/COLOR]
ToggleButton1.Caption = "Masquer"[COLOR=seagreen] '[/COLOR][COLOR=seagreen] Bouton marqué Masquer[/COLOR]
For Each C In Range("Base") [COLOR=seagreen]' pour chaque cellule dans la Base[/COLOR]
        C.RowHeight = 12.75[COLOR=seagreen] ' Ligne à hauteur standard[/COLOR]
Next[COLOR=seagreen] ' Prochaine Cellule[/COLOR]
'Columns("C:C").ColumnWidth = 10.71
End If [COLOR=seagreen]' Fin de Condition 1[/COLOR]
Application.ScreenUpdating = True [COLOR=seagreen]'Defige l'écran[/COLOR]
End Sub

Voila
Bonne Journée

 

[champomy11]

Re : tri simple

Désolé les semaines passe trop vite.
Merci pour ton aide .Dans l'idéal plutot que de masquer les lignes sans quantités se serais de les suprimer , pour que mon total depenses soit egale aux quantités ,car la avec ou sans quantité mon total est le meme .
bonne journée

 

[JCGL]

Re : tri simple

Bonjour à tous,

Un essai avec une partie du code de Dull 🙂

A+

 

[champomy11]

Re : tri simple

merci ,merci