Discussion :

[goupil9]

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

[SfJ5Rpw8]

Comment ce manifeste ton bug ??


sinon ton code gagnerait en stabilité si tu supprimer tous ces select, activecell, Selection qui sont des sources de problèmes...

[Philippe Tulliez]

Bonsoir,

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

Tu parles d'un bug. Quel bug, as-tu un message d'erreur si oui quel est son n° ?
As-tu essayé le débogage ?
Quelle est la valeur de la variable rowt ?
Le programme entre-t-il dans la boucle Do Until ActiveCell.Row > rowpere ?
De plus mais cela n'a rien à voir avec ton bug cette syntaxe est meilleure. La méthode Select n'a aucune raison d'être et ralenti le programme.

Code :

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

Rows(rowt).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[goupil9]

Merci pour vos promptes reponses,

alors l erreur en question est :

run time error 1004
cannot shift objuect off sheet

le debug mode m amene sur cette ligne :

Code :

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

Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Quand je passe le curseur sur le code :
xlFormatFromLeftOrAbove = 0
xlDown = -4121

la bonne ligne est bien selectionné, mais l instruction pour insérer ce bloque
Merci d avance,

pour ce qui est du "with" vous avez certainement raison, j ai juste utilisé un enregistrement macro ... je vais faire cette modif