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