Discussion :

[Kanetsugu]

Bonjour,

Mon problème est le suivant:
J'ai une macro qui fonctionne parfaitement lorsque je l'exécute depuis l'éditeur de macro. Mais lorsque je la lance depuis un bouton sur une feuille excel, elle ne fonctionne pas. Pourtant, avec des breakpoint je constate que toutes les lignes de codes sont exécutées.

Quelqu'un aurait-il une solution ?
Merci d'avance

la macro en question :

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
 
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
 
    With Sheets("Feuil1")
        Dim premiereLigne As Range
        Set premiereLigne = .Range("_PlanningPremiereLigne ")
 
        For Each Cell In premiereLigne
            Cell.formula = "=IF(RC41<>"""",RC21,0)" 'la formule est une version tronquée de l'originale
            Cell.Locked = True
        Next
 
    End With
 
    Range("AP7:MQ7").AutoFill Destination:=Range("AP7:MQ2150"), Type:=xlFillDefault
 
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

[ZebreLoup]

Ca ne peut pas être qu'elle a marché correctement une première fois, mais que ça ne fonctionne pas la deuxième fois parce que tu as protégé ta cellule entre temps.

Quand tu dis que toutes les lignes du code sont exécutées, c'est à dire que si tu mets un breakpoint, il s'y arrête bien quand tu appuies sur le bouton ? Dans ce cas pourquoi dis-tu que ça se passe mal ? Que manque-t-il ?

[Kanetsugu]

La macro ajoute une formule dans des cellules, au départ, toutes les cellules sont vide.

En lançant la macro depuis l'editeur, je constate après que toutes les cellules contiennent bien une formule.
En lançant la macro par un bouton, seulement une partie a été effectuée (les cellules traitées dans le For each)

[ZebreLoup]

Et le bouton il est sur quelle feuille ? Car tu utilises bien Sheets("Feuil1") pour ton For Each, mais pas pour ton AutoFill

[Kanetsugu]

Ah oui ... c'était ça l'erreur, la feuille n'était pas sélectionnée.

Merci pour ton aide !