Discussion :

[CapsMatto]

Bonjour tout le monde,

Débutant dans le monde de la programmation VBA, j'essaie de m'exercer en créant des fichiers utiles au quotidien pour ma copine et moi-même.
Je suis actuellement dans un cas que je n'arrive pas à résoudre.

Explication du problème:

Ma base de données n'est autre que différentes recettes dans les colonnes et les ingrédients nécessaires à ces recettes en ligne.
L'objectif de ce fichier Excel est que, en fonction des choix de recettes que je veux réaliser dans la semaine, le fichier "puisse me créer automatiquement" une liste de course.

Choix	Oui	Oui	Non
	Recette1	Recette2	Recette3
Ingrédient A	3	2	2
Ingrédient B	3	3
Ingrédient C	1	1	11

Pour tous CHOIX = "Oui" de la ligne CHOIX
Retranscrire, dans une nouvelle feuille, toutes les valeurs non nulle hors titre de la colonne ainsi que les titres des lignes correspondantes et additionner toutes les valeurs de cette ligne où le choix est "oui" pour ainsi obtenir

COL A	COL B
Ingrédient A	5
Ingrédient B	3
Ingrédient C	2
...

Merci de bien vouloir m'aider !!

[BENNASR]

Bonjour
A tester

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub testttt()
Application.ScreenUpdating = False
' *****************nétoyer feuille 2
With Sheets("feuil2")
.Cells.Clear
End With
 
'*******************Nommer les titres des colonnes
    Sheets("feuil2").Cells(1, 1).Resize(1, 2) = Array("Ingrédient", "Quantité")
'********************copier
 
'copier
Dim i As Long
Dim k As Integer
k = 2
X = 0
Dim derlig As Long
With Sheets("Feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
 A = .Cells(1, Cells.Columns.Count).End(xlToLeft).Column
   For i = 3 To derlig
     For C = 2 To A
     If .Cells(2, C) = "OUI" Then
      X = X + .Cells(i, C)
    End If
    Next C
    Sheets("feuil2").Range("A" & k).Value = .Cells(i, 1)
    Sheets("feuil2").Range("B" & k).Value = X
   k = k + 1
   X = 0
Next i
End With
Application.ScreenUpdating = True
Sheets("feuil2").Select
End Sub

[CapsMatto]

Bennasr, je te remercie c'est exactement ce que je souhaitais !!
En me penchant sur le code, j'arrive à comprendre la logique qu'il y a derrière et je pense être en capacité par la suite de pouvoir réutiliser ce que j'ai vu dedans !

Encore un grand merci, pour avoir pris le temps de me répondre