Discussion :

[Caps corp]

Bonjour,
je ne trouve pas d'ou ça vient. Un p'tit coup de main ?

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
36
Sub prevision()
 
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim m As Integer
 
i = 2
 
Plage = Sheets("unités").Range("C5:G12")
 
 For Each Cell In Plage
    If (IsEmpty(Cell)) Then
    Next Cell
    Else
        If (IsEmpty(Range("B" & Cell.Row))) Then
        Next Cell
        Else
            r = Cell.Rows
            c = Cell.Column
            For m = 1 To 12
            'collage de la date
            Sheets("Feuil2").Range("A" & i).Value ("1/" & m & "/2008")
            'collage du nom client
            Sheets("Feuil2").Range("B" & i).Value = Sheets("unités").Range("B" & r).Value
            'collage de la famille
            Sheets("Feuil2").Range("C" & i).Value = Sheets("unités").Cell(c, 4).Value
            'collage de qté
            Sheets("Feuil2").Range("D" & i).Value = Sheets("unités").Cell.Value * Cell(m, 87).Value
            i = i + 1
            Next m
        End If
    End If
Next Cell        
 
End Sub

Merci

[ucfoutu]

Bonjour,

Une boucle For.... ne peut boucler que par un seul Next.

Regarde ton code : que sont donc tous ces "Next Cell" pour ta boucle "For each cell ?

[Caps corp]

c'est pour passer à la cell suivante quand la condition n'est pas remplie.
Mais je vois ce que tu veux dire.
Je modifie le code en condition "cellule n'est pas vide"

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
Sub prevision()
 
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim m As Integer
 
i = 2
 
Plage = Sheets("unités").Range("C5:G12")
 
 For Each Cell In Plage
    If Not (IsEmpty(Cell)) Then
       If Not (IsEmpty(Range("B" & Cell.Rows))) Then
            r = Cell.Rows
            c = Cell.Column
            For m = 1 To 12
            'collage de la date
            Sheets("Feuil2").Range("A" & i).Value ("1/" & m & "/2008")
            'collage du nom client
            Sheets("Feuil2").Range("B" & i).Value = Sheets("unités").Range("B" & r).Value
            'collage de la famille
            Sheets("Feuil2").Range("C" & i).Value = Sheets("unités").Cell(c, 4).Value
            'collage de qté
            Sheets("Feuil2").Range("D" & i).Value = Sheets("unités").Cell.Value * Cell(m, 87).Value
            i = i + 1
            Next m
           Exit For
        End If
    End If
  Next Cell
 
End Sub

mais maintenant j'ai une erreur ici :

Code :

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

If Not (IsEmpty(Range("B" & Cell.Rows))) Then

[ouskel'n'or]

Code :

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

If Not IsEmpty(Range("B" & Cell.Row)) Then

[Caps corp]

merci de l'aide
même sans les parenthèses ça bugue.

[Godzestla]

Bonjour,

c'est pour passer à la cell suivante quand la condition n'est pas remplie.

Ce cas tu le traitais déjà avec tes IF.

[ouskel'n'or]

Bonjour,
Ce cas tu le traitais déjà avec tes IF.

Quel if ? La plage de recherche concerne "C5:G12"

Plage = Sheets("unités").Range("C5:G12")

Donc, s'il a quelque chose dans une cellule de cette plage, il vérifie qu'il ait quelque chose dans une cellule de la même ligne de la colonne B... Ce qui n'est pas très logique, j'en conviens, puisque s'il a quelque chose dans plusieurs des colonnes de C à G et quelque chose dans la colonne B, il répétera plusieurs fois le même code qui suit...
Tiens, je vois une erreur ici

r = Cell.Rows

idem que ma réponse précédente, corrige par

Code :

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

r = Cell.Row

@Caps corp,
Dis-nous plutôt ce que tu veux faire
A+

[Caps corp]

Dis-nous plutôt ce que tu veux faire
A+

ouais mais ça va être dur !!
Je tente.

J'ai un tableau 2 entrées
en ligne : nom du client
en colonne = Famille produit
a l'intersection = qté

Je veux coller dans une autre feuille pour chaque Qté :
colonne A= date (mois /année)
colonne B = nom du client
colonne C = Famille
colonne D = qté x taux du mois correspond (le Cell( m,87) )

en fait pour chaque Qté rencontré dans le tableau, je veux créer 12 lignes (1 par mois) reprenant en debut la date (incrementer d'un mois) puis le nom du client (le meme 12 x ) puis la famille (la meme 12x) puis la qté pour le mois.

voila.

Rien !

???? je ne comprend pas.

tu suggères ceci

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
For Each Cell In Plage
    If IsEmpty(Cell) Then
    Else
    If IsEmpty(Range("B" & Cell.Row)) Then
    Else
            r = Cell.Row
            c = Cell.Column
            For m = 1 To 12
            'collage de la date
            Sheets("Feuil2").Range("A" & i).Value ("1/" & m & "/2008")
            'collage du nom client
            Sheets("Feuil2").Range("B" & i).Value = Sheets("unités").Range("B" & r).Value
            'collage de la famille
            Sheets("Feuil2").Range("C" & i).Value = Sheets("unités").Cell(c, 4).Value
            'collage de qté
            Sheets("Feuil2").Range("D" & i).Value = Sheets("unités").Cell.Value * Cell(m, 87).Value
            i = i + 1
            Next m
           Exit For
        End If
    End If
  Next Cell

j'ai encore une erreur sur

Code :

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

 If IsEmpty(Range("B" & Cell.Row)) Then

[Caps corp]

Bonjour,



Ce cas tu le traitais déjà avec tes IF.

oui mais que mettre aprés THEN si la cellule est vide ?
condition 1:
si la cell est vide on passe à la suivante
si la celle est pleine >> condition 2

[ouskel'n'or]

oui mais que mettre aprés THEN si la cellule est vide ?

Rien !

condition 1:
si la cell est vide on passe à la suivante