VBA - erreu de compiliation

[pepsi]

Bonjour le forum

Ce code devrait me permettre de passer à VRAI des cellules.

J'ai un message d'erreur de compilation

Référence incorrecte ou non qualifiée.

Je ne vois pas pourquoi. J'ai besoin d'un peu d'aide.

Sub type ()

 If (Worksheets("feuil").[A1"] = 1 And Worksheets("feuil").[B1"] = 1) Then
           .[D6:E76].Value = True
           .Range("E29, E30, E45, E62:65, F33:34").Value = False

    End If

end sub

 

[Pierrot93]

Re : VBA - erreu de compiliation

Bonjour,

Déjà, tu as des guillemets en trop... [B1] et non [B1"], même punition avec A1...

bon après midi
@+

 

[pepsi]

Re : VBA - erreu de compiliation

J'ai corrigé le code comme cela, mais j'ai toujours un message d'erreur :


Erreur de compiliation :
Référence incorrecte ou non qualifiée

If (Worksheets("feuil1").[A1] = 1 And Worksheets("feuil1").[B1] = 1) Then
           .[D6:E76].Value = True
           .Range("E29, E30, E45, E62:65, F33:34").Value = True
    End If

 

[phlaurent55]

Re : VBA - erreu de compiliation

Bonjour à tous,

.[D6:E76].Value = True
.Range("E29, E30, E45, E62:65, F33:34").Value = True

Ne manquerait-il pas un With quelque part ????

à+
Philippe

 

[Rep]

Re : VBA - erreu de compiliation

Bonjour à tous,

Je dirais plutôt qu'il manque un "With" 😉

 

[pepsi]

Re : VBA - erreu de compiliation

je ne sais pas, ce qu'est un width

 

[pepsi]

Re : VBA - erreu de compiliation

je le mets ou le with ??

 

[phlaurent55]

Re : VBA - erreu de compiliation

re,

alors, dans le doute (et sans With) fais précéder le point par le nom de la feuille concernée

à+
Philippe

 

[Pierrot93]

Re : VBA - erreu de compiliation

bonjour à tous,

je ne sais pas, ce qu'est un width

permet d'exécuter un ensemble d'instructions sur un même objet, exemple ci-dessous :

With Sheets("Feuil1")
    .Range("A1").Value = "xxx"
    .Range("B1").Value = "yyy"
End With

bon après midi
@+

 

[pepsi]

Re : VBA - erreu de compiliation

j'ai écrit

 If (Worksheets("feuil1").[A1] = 1 And Worksheets("Livrables").[B1] = 1) Then
        Worksheets("feuil1").[D6:E76].Value = True
        Worksheets("feuil1").Range("E29, E30, E45, E62:65, F33:34").Value = True
    End If

Mais j'ai encore une "erreur d’exécution '1004' erreur définie par l'application ou par l'objet"

 

[Rep]

Re : VBA - erreu de compiliation

Bonjour,

Ca ne viendrait pas de l'attribution du True?

 

[phlaurent55]

Re : VBA - erreu de compiliation

Re,

Bonjour à tous,

Je dirais plutôt qu'il manque un "With" 😉

Bien vu Rep
Ok, je corrige la fôte d'aurteaugraffe 😉

à+
Philippe

 

[Pierrot93]

Re : VBA - erreu de compiliation

Re,

ligne 65 et 34, manque la lettre de la colonne :

Worksheets("Feuil1").Range("E29, E30, E45, E62:65, F33:34").Value = True

 

[Rep]

Re : VBA - erreu de compiliation

Bien vu Pierrot 😉

 

[pepsi]

Re : VBA - erreu de compiliation

Excellent ..! Mais comment faites vous pour détecter tout ca ! 😀

Merci encore !