Bonjour a ts,

J'aurais besoin d aide pour "réparer" une de mes macro,

c est vraiment bizarre, parfois elle marche nickel d autre fois j ai un bug, pour passer outre le bug certaine fois je ferme excel et re ouvre et ca remarche, d autre fois rien a faire

Bon le code parle plus que ma tentative d explication : je veux inserer une nouvelle ligne sur certain critère
QPY QPM PricingT sont de variable
le pb est ici

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
                    Rows(rowt).Select 
                    Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Si vous avez une idée n hesitez pas car je n en ai aucune
merci d avance et bonne journée
( je fais du vba le dimanche alors je dis ca pour vous )

'
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
Do Until ActiveCell.Row > rowpere 
rowt = ActiveCell.Row 
 
        If ActiveCell.Value = "SuMonth" Then 
 
                    If ActiveCell.Offset(0, -6).Value = QPY _ 
                    And ActiveCell.Offset(0, -7).Value = QPM _ 
                    And ActiveCell.Offset(0, -8).Value = pricingT Then 
 
                    Rows(rowt).Select 
                    Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
 
                                                    With Selection.Interior 
                                                    .Pattern = xlSolid 
                                                    .PatternColorIndex = xlAutomatic 
                                                    .ThemeColor = xlThemeColorDark1 
                                                    .TintAndShade = 0 
                                                    .PatternTintAndShade = 0 
                                                    End With