Discussion :

[saoui]

Bonjours à toutes et à tous.

J'aimerai réaliser une macro pour :
si la cellule I3 de la feuille 6 + i soit égale à "Viandes bovine et veau" alors on selectionne M3 de la feuille 6 + i et on la copie dans la feuille "formulaire" de la colonne AZ et ligne (6+ i), sinon la cellule AZ et ligne (6 + i) de la feuille "formulaire" est vide.
Voici ma macro :

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
    Dim i As Integer
    Dim total As Double
 
For i = 1 To 3
        With ThisWorkbook.Worksheets("feuil" & i)
            If .Range("M3") = "Viandes bovine et veau" Then
                total = .Range("I3")
            End If
        End With
        ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = total
        total = 0
        If total = 0 Then
            ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = ""
            Else
         ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = total
        End If
 
    Next i

Le problème, c'est que toute ma colonne est vide après. Je n'ai aucune valeur..

Pouvez vous m'aider ?

Merci d'avance

Maxime

[Miistik]

Bonjour,

Tu mets ta variable total à 0.

Donc tu rentres toujours dans ton if.

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
Dim i As Integer
Dim total As Double

For i = 1 To 3
 With ThisWorkbook.Worksheets("feuil" & i)
  If .Range("M3") = "Viances bovine et veau" Then
   total = .Range("I3")
  End If
 End With

ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = total

total = 0

If total = 0 Then
 ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = ""
Else
 ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = total
End If

Next i

J

[Daniel.C]

Bonjour,

Est-ce que tu n'as pas inversé les colonnes I et M :

si la cellule I3 de la feuille 6 + i soit égale à "fruit, légume, plantes" alors on selectionne M3 de la feuille 6 + i

Code :

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

1
2
If .Range("M3") = "Viances bovine et veau" Then
total = .Range("I3")

de plus :

Code :

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

1
2
3
4
5
6
total = 0
If total = 0 Then
ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = ""
Else
ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = total
End If

Comme "total" est = à 0, tu effaces la cellule de la colonne AZ.

[saoui]

J'ai inversé en recopiant, mais j'ai édité pour plus de compréhension. Désolé de cette étourderis.

Je ne comprend pas trop vos réponses.
Si je met :
If total = 0 Then
ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = ""
Else
ThisWorkbook.Worksheets("Formulaire").Range("BA" & 6 + i) = total

En gros, si total = 0 alors tu remplace par rien sinon tu met le total.. je vois pas où ait mon erreur..

[Daniel.C]

Parce que la ligne au dessus de :

Code :

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

If total = 0 Then

tu as :

Code :

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

total = 0

[saoui]

D'accord merci.
j'ai donc enlevé le total = 0 et le "Else" voici ce que ca me donne :

Dim i As Integer
Dim total As Double

For i = 1 To 3
With ThisWorkbook.Worksheets("feuil" & i)
If .Range("M3") = "Fruit, légume, plantes" Then
total = .Range("I3")

End If
End With
ThisWorkbook.Worksheets("Formulaire").Range("AY" & 6 + i) = total

If total = 0 Then
ThisWorkbook.Worksheets("Formulaire").Range("AZ" & 6 + i) = ""

End If

Next i


Mais maintenant, la cellule "I3" de la feuille 1 est copié sur toute la colonne AZ &6+i

[gFZT82]

Si tu pouvais éviter d'ouvrir plusieurs discussions sur le même sujet, ce serait plus facile pour les intervenants .

Cordialement.

[saoui]

Si tu pouvais éviter d'ouvrir plusieurs discussions sur le même sujet, ce serait plus facile pour les intervenants .

Cordialement.

Je voulais supprimer mon ancien post, mais j'ai pas trouvé comment faire (ou pas assez cherché ).

Cordialement, Maxime