problème sous VBA

[rafspain77]

bonjour à tous et à toutes,

je suis actuellement entrain de réaliser un projet comprenant du vba sous excel, je suis un débutant mais commence à avoir quelques bases.

J'ai réalisé déjà une bonne partie de mon code mais il y a un bug, et je ne sais pas pourquoi. Je vous joins le code de toute ma page:

Private Sub Chart_Activate()

Worksheets("Calculs").Range("BA4:BA200").Clear  'nettoye la colonne de l'avancement
Worksheets("Calculs").Range("Bc4:Bc200").Clear  'nettoye la colonne des déblais
Worksheets("Calculs").Range("Bd4:Bd200").Clear  'nettoye la colonne des déblais théoriques

Dim cel As Range
Dim cel2 As Range
Dim cel3 As Range

'la première partie concerne l'avancement
For Each cel In Worksheets("Données Modif").Range("c6:c156")
    If cel <> "" Then
        Worksheets("Calculs").Range("BA" & cel.Row - 3) = cel.Offset(0, 2).Value
    End If
Next cel

'la deuxième partie concerne les déblais
For Each cel2 In Worksheets("Données Modif").Range("u6:u156")
    If cel2 <> "" Then
        Worksheets("Calculs").Range("Bc" & cel2.Row - 3) = cel2.Value
    End If
Next cel2

'la troisième partie concerne les déblais théoriques
For Each cel3 In Worksheets("Données Modif").Range("x6:x156")
   If cel3.Offset(-1, 0).Value <> cel3.Value Then
          Worksheets("Calculs").Range("Bd" & cel3.Row - 3) = cel3.Value
   End If
Next cel3

With ActiveChart
         

            .Axes(xlValue).MinimumScale = 0

            .Axes(xlValue).MaximumScale = Feuil6.Range("bm5").Value

            .Axes(xlCategory).MinimumScale = 0

            .Axes(xlCategory).MaximumScale = Feuil6.Range("bk5").Value
            

    End With
End Sub

Dans ma troisième partie, vba s'arrete sur ma ligne de condition et met en erreur: Incompatibilité de type

Je ne sais pas à quoi c'est dû et comment le résoudre.

Merci par avance de l'aide que vous me fournirez.

 

[MJ13]

Re : problème sous VBA

Bonjour Raspain

Avec un fichier, ça irait mieux 😕

 

[rafspain77]

Re : problème sous VBA

voila mon fichier,

Le problème sur le code du graphique des déblais.
Le fichier est un peu lourd, mais c'est parce que je débute et donc alourdi parfois les formules et les codes.

Merci pour la rapidité.

 

[rafspain77]

Re : problème sous VBA

Bonjour,

Juste un petit Help!

merci par avance.

 

[MJ13]

Re : problème sous VBA

Re

J'ai ouvert et c'est difficile sur un fichier dont on ne comprend pas grand chose 😱.

Il faut debugger ton code en mettant un stop par exemple dans le code et analyser tes variables (F8 pour aller en pas à pas et ctrl+shift+F8 pour continuer) pour comprendre comment elle sont gérées par Excel et modifier en conséquence 🙂.

 

[rafspain77]

Re : problème sous VBA

Re,

Je savais que ca allait être difficile de comprendre le fichier.

C'est un fichier de suivi de chantier.

mais ce qui me chagrinne c'est que des codes semblables s'éxécutent parfaitement sur d'autres garphique mais pas sur celui-ci.

Ps: quand fait débug le code il surligne la ligne: If cel3 <> "" then

et me note incompatibilité de type????!!!

Pourquoi??

 

[eriiic]

Re : problème sous VBA

Bonjour,

Déjà moi j'ai planté ailleurs :

'la troisième partie concerne le calcul de la cadence totale
For Each cel3 In Worksheets("Calculs").Range("bs4:bs200")
    If cel3 <> 0 Then
        Worksheets("Calculs").Range("bw" & cel3.Row) = cel3.Value / Worksheets("Données Modif").Range("i" & cel3.Row)
        
    End If
Next cel3

cel3.Row = 4 et Worksheets("Données Modif").Range("i" & cel3.Row) est égal à "Nombre Heures travaillées", pas facile la division...

Cette erreur doit se répéter ailleurs je pense
eric