Bonjour,

J'ai un probleme avec une macro, elle ne focntionne pas, surement une erreur dans le code.

J'ai un onglet Surete avec une base de données, j'effectue des recherches dans celui-ci et je colle les informations dans un nouvel onglet Recap-2012 en cellule E34 puis E35 puis E36 etc...

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
vx = 0
 
derniereligne = Range("B1").SpecialCells(xlCellTypeLastCell).Row
 
For q = derniereligne To 3 Step -1
Nomvariable5 = Range("O" & q).Value   'prend le statut
Nomvariable6 = Range("X" & q).Value   'prend le delta date
 
If Nomvariable5 = "Ouvert" And Nomvariable6 > 10 Then
Worksheets("Surete").Range("K" & q, "AI" & q, "F" & q, "P" & q, "A" & q).Copy
u = Range("AO1").Value 'on recupere l'année de la cellule AO1
Sheets("Recap-" & u).Select
Range("E" & vx + 34).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
vx = vx + 1
Sheets("Surete").Select
End If
Next q
auriez vous une idée ?

merci