Vba Erreur De Compilation
pepsi XLDnaute Occasionnel #1 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. VB: Sub type () If (Worksheets("feuil"). [A1"] = 1 And Worksheets("feuil"). [B1"] = 1) Then. [D6:E76] = True ("E29, E30, E45, E62:65, F33:34") = False End If end sub #2 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 @+ #3 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] = True ("E29, E30, E45, E62:65, F33:34") = True Dernière édition: 12 Avril 2011 #4 Bonjour à tous,. [D6:E76] = True ( "E29, E30, E45, E62:65, F33:34") = True Ne manquerait-il pas un With quelque part???? Erreur de compilation vba. à+ Philippe #5 Bonjour à tous, Je dirais plutôt qu'il manque un "With" #6 je ne sais pas, ce qu'est un width #7 je le mets ou le with??
Vba Erreur De Compilation
Code: '-------------------------------------------------------------------------------------------------------------------- 'Information sur le nombre d'assuré 'pour PREVI AVENIR Workbooks ( ""). Worksheets ( "PREVI"). Cells ( 103, 3). Value = Workbooks ( "STATISTIQUES "). Worksheets ( "06 2009"). Cells ( 8, 2). Value If Err. Number = 0 Then ' Pas d'erreur lors de la copie ts. Write "copie de cellule(103, 3)nombre d'assuré, PREVI AVENIR ok" & vbCrLf Else ts. Write "copie de cellule(103, 3)nombre d'assuré, PREVI AVENIR échec" & vbCrLf End If Err. Clear 'remettre à 0 la valeur de l'erreur 'pour PREVI MUTUEL Workbooks ( ""). Cells ( 105, 3). Cells ( 9, 2). Write "copie de cellule(105, 3)nombre d'assuré, PREVI MUTUEL ok" & vbCrLf Else ts. Vba erreur de compilations. Write "copie de cellule(105, 3)nombre d'assuré, PREVI MUTUEL échec" & vbCrLf End If Err. Clear 'remettre à 0 la valeur de l'erreur 'pour ATLANTIQUE AVENIR Workbooks ( ""). Cells ( 104, 3). Cells ( 10, 2). Write "copie de cellule(104, 3)nombre d'assuré, ATLANTIQUE AVENIR ok" & vbCrLf Else ts.
Write "copie de cellule(98, 3)produit PAA, CMB, nombre d'assuré pay échec" & vbCrLf End If Err. Clear 'remettre à 0 la valeur de l'erreur 'concernant les capitaux sous risque Workbooks ( ""). Cells ( 13, 2). Write "copie de cellule(103, 3)produit PAA, CMB, capitaux sous risque ok" & vbCrLf Else ts. Write "copie de cellule(103, 3)produit PAA, CMB, capitaux sous risque échec" & vbCrLf End If Err. Clear 'remettre à 0 la valeur de l'erreur 'concernant les sinitres Workbooks ( ""). Cells ( 80, 3). Visual Basic - Erreur de compilation: Membre de méthode ou de données introuvable [Résolu]. Cells ( 14, 2). Write "copie de cellule(80, 3)produit PAA, CMB, concernant les sinitres ok" & vbCrLf Else ts. Write "copie de cellule(80, 3)produit PAA, CMB, concernant les sinitres échec" & vbCrLf End If Err. Clear 'remettre à 0 la valeur de l'erreur 'concernant le nom des sinistrés en commentaire 'Workbooks(""). Worksheets("PAA")(80, 3) = Workbooks(""). Worksheets("CMB")(15, 2) If Err. Write "copie de cellule(80, 3) ok" & vbCrLf Else ts. Write "copie de cellule (80, 3) échec" & vbCrLf End If Err.