Problème de boucle if

Résolu
seblg29 -  
seblg29 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je me remets à vba et j'ai quelques problèmes sur ma boucle if.

Je souhaiterais que si la valeur contenu dans ma cellule est inférieure à 0.05, dans ce cas, il est ajouté une courbe de tendance d'ordre 2 (condition déjà écrite).

Cependant, il m'est renvoyé le message d'erreur : end if sans boucle if....

Pourriez vous m'aider sur cette condition qui doit être pourtant si simple à résoudre...

Sub Macro1()
'
' Macro1 Macro
'
 Workbooks("feuille.xlsm").Activate

    If Worksheets("fdg").Cells(39, 7).Value < 0.05 Then
        ActiveSheet.ChartObjects("Chart 7").Activate
        ActiveChart.Axes(xlValue).MajorGridlines.Select
        ActiveChart.SeriesCollection(2).Select
        ActiveChart.SeriesCollection(2).Trendlines.Add
        ActiveChart.SeriesCollection(2).Trendlines(2).Select
        With Selection
        .Type = xlPolynomial
        .Order = 2
        
    End If
End Sub


D'avance merci,

Sébastien

1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,
Tu as un With .. sans end.

0
seblg29 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
Oupsss...
0