Problème de boucle if

Résolu/Fermé
seblg29 - Modifié le 27 déc. 2017 à 15:19
seblg29 Messages postés 19 Date d'inscription lundi 9 mars 2015 Statut Membre Dernière intervention 31 janvier 2019 - 27 déc. 2017 à 16:52
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 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
27 déc. 2017 à 16:25
Bonjour,
Tu as un With .. sans end.

0
seblg29 Messages postés 19 Date d'inscription lundi 9 mars 2015 Statut Membre Dernière intervention 31 janvier 2019
27 déc. 2017 à 16:52
Oupsss...
0