supprimer les ligne ayant comme valeur 0 depuis bouton

[azemer]

bonjour a tous
je doit créer un menu pour un traiteur a envoyer par mail aux clients, le client fais son choix sur la feuille de calcul avec un X, les choix effectuer sont résumer sur la méme feuille de calcul par des renvoi
Exemple

Type
Tarte
Tarte pomme /Recette1 X
Tarte fraise /Recette2
Tarte citron / Recette3 X

Crème
Crème brûlée /Recette1
Crème chocolat /Recette2 X

etc

Mon probleme est lorsque le client fait sont choix par exemple Tarte pommes, Tarte citron, cela doit creer une ligne avec le type choisi et la recette. Si 2 choix du meme type cela devra ce présenter de ce type

résume

Tarte
Tarte pomme /Recette1
Tarte citron / Recette3

Crème
Crème chocolat /Recette1

pour le renvoie d une cellule aucun problème, mon souci et le suivant
renvois dans les cellules en respectant type (Tarte) + désignation (tarte pomme) + recette
quand X pressent il faut que la ligne avec le s ajoute a la suite dans la partie reumé
étant un novice sur excel je vous demande un petit coup de main
en espérant être assez claire et précis dans mon explication et en vous remerciant par avance

 

[azemer]

voila ou j en suis rendu :

-2 feuilles avec le même tableau

-pour chaque catégorie de la feuille choix client un noms données exemple pour Appétitif (C10-C37) = X_1 représenter par du bleu a 2 case sur la droite sur mon classeur

- sur la feuille devis j ai fait une sélection de (C10-C37) au quel je renvois X_1 afin de repporter le choix client ce qui fonctionne bien soit X pour le choix et 0 si pas choisi
reste encore quel que modif a faire mais c est pas mal

ce que je voudrais :
depuis le bouton valider en bas du document, une foi les choix effectuer, je clic sur le bouton afin de me supprimer les ligne ayant comme valeur 0 sur la colonne C sur la feuille devis,

la question est quel commande je doit mettre dans mon bouton afin de réaliser mon action et est ce une bonne idée?
ci joint mon classeur

 

[cathodique]

Tu as 2 solutions sur ce fil

 

[PMO2]

Bonjour,
Une piste avec le code suivant à copier dans un module standard

Sub SupprimeLignesAvec0()
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim FirstLig&
Dim NbLig&
Dim i&
'---
ActiveSheet.Copy After:=Sheets(ActiveSheet.Name)
Set S = ActiveSheet
Set R = S.UsedRange
R.Copy
R.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
               SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'---
FirstLig& = R.Cells(1, 1).Row
NbLig& = R.Rows.Count
Application.ScreenUpdating = False
For i& = FirstLig& + NbLig& To FirstLig& Step -1
  Set C = R.Cells(i&, 3)
  If Not IsError(C) Then
    If Not IsEmpty(C) And C = 0 Then
      S.Rows(C.Row).Delete
    End If
  End If
Next i&
R.Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub

Activez la feuille à traiter puis lancez la macro SupprimeLignesAvec0
Le résultat est affiché dans une nouvelle feuille.