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

[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.

[Caps corp]

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

[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]

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

[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

[ouskel'n'or]

Je vais essayer de reformuler pour voir si j'ai bien tout compris
Première feuille : En en-tête colonne A (?) : Nom client
Colonne suivantes : "Famille produit" -> Une colonne par famille ?
Pas de colonne date ?

Une seconde feuille "Recap", douze lignes, une par mois

colonne A= date (mois /année)

Tu la prends où, la date ?
A+

[Caps corp]

oui c'est ça.
en fait le nom client commence en B
pas de date OUI ! = dans la première feuille la qté est un volume annuel. Ce que je souhaite faire dans la 2eme feuille c'est repartir cette quantité unique en 12 quantité par mois (mutliplié par le poids de chaque mois = données fixes en ligne 87)
Je joins un tableau

[ouskel'n'or]

Déjà, on va simplifier

Code :

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

1
2
3
4
5
For Each Cell In Plage
    If not IsEmpty(Cell) Then
         If Not IsEmpty(Range("B" & Cell.Row)) Then
            r = Cell.Row
            c = Cell.Column

Après, je ne comprends pas ce que tu fais

Edit
Ok, j'ai lu ta réponse et je pense comprendre à peu près ce que tu fais.
Alors ton exit for est à supprimer sinon, à la première donnée trouvée, tu sors de la boucle for each.

Qu'as-tu dans la colonne 87 ? Pas vu dans ton fichier, le résultat donc zéro (0) dans la colonne D

[Caps corp]

en fait c'est en ligne 87 de A87 à L87 = poids en % de chaque mois
la formule est :
Janv 2008 = Qté x A87
Fev 2008 = Qté x B87
etc..
Qté etant la valeur trouver dans Cell de la 1er feuille

je pense que ce code n'est pas bon

Code :

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

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

il bugue là-dessus

[Godzestla]

je pense que ce code n'est pas bon
Code :

If Not IsEmpty(Range("B" & Cell.Row)) Then
il bugue là-dessus

Et qu'en dit le "dit bugueur" ?
A mon avis, le Range est de trop ! (because range de row de range... !!!)

Essaie ceci

Code :

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

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

[ouskel'n'or]

L'a pas reûfléchi, c'est bien

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

Déclare Cell et Plage as range, sinon, ça marche jamais

Code :

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

Dim Cell as range

et comme tu as de multiples erreurs, je mets ça

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
Sub prevision()
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim m As Integer
Dim cell As Range
Dim Plage As Range
i = 2
 
Set Plage = Sheets("unités").Range("C5:G12")
For Each cell In Plage
    If Not IsEmpty(cell) Then
        If Not IsEmpty(Range("B" & cell.Row)) Then
            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

La ligne suivante, tu mets un N° de ligne qui est un N° de colonne (la variable c)
Vérifie-tout. J'ai corrigé la ligne de la date mais vérifie aussi
A+

[Caps corp]

OK je n'ai plus d'erreur.
Reste que pour la date il incrémente le jour et pas le mois
variable m dans :

Code :

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

"1/" & m & "/08"

au final il me sort :
1/01/08
2/01/08
3/01/08
...



je recolle le code complet corrigé

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

merci

[Caps corp]

ok j'avais oublié que vba c'est pour les anglosaxon
format de date en vba c'est mm/jj/aa

merci pour votre aide !!