FORUM Tom's Hardware » Programmation » VB / VBA / VBS » incompatibilité de type
 

incompatibilité de type

Il y a 471 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : incompatibilité de type
 
Plus d'informations

Bonjour en vouant effacé une colonne j'ai une erreur d'incompatibilité de type
Si quelqu'un peut m'expliquer ce qui ne va pas merci d'avance

Code :
  1. wbfile.Sheets("R_analyse_croisée" ).Columns("I:I" ).Delete Shift:=xlToLeft

zeb
Profil : Modérateur libre
Plus d'informations

Sheets / WorkSheets ?


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Que ca soit l'un ou l'autre j'ai la meme errreur
Incompatibilité de type
Wbfile est un Excel.workbook


Message édité par darkspoilt le 06-08-2007 à 14:58:17
zeb
Profil : Modérateur libre
Plus d'informations

Aucune idée. Tu pourras t'en vanter, tiens.

Essaye ça pour voir où est l'incompatibilité :

Code :
  1. MsgBox wbfile.Name
  2. MsgBox wbfile.Sheets("R_analyse_croisée" ).Name
  3. MsgBox wbfile.Sheets("R_analyse_croisée" ).Columns("I:I" ).Address


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

Cela me donne
1.le nom du fichier
2.le nom de la feuille
3. Erreur Incompatibilité de type
j'ai le droit a la meme erreur qu'avant sauf que la il s'agit d'un msgbox
Je comprends pas pourquoi ca ne fonctionne pas

Plus d'informations

Pourait-il y avoir u probleme avec le code qui suit c'est le code qui précède mon erreur

Code :
  1. 'Ajout des libéllé
  2.     wbfile.Sheets("R_analyse_croisée" ).Range("I4:J4" ).NumberFormat = "General"
  3.     wbfile.Sheets("R_analyse_croisée" ).Range("I4" ).FormulaR1C1 = md & "/10/" & "20" & a
  4.     wbfile.Sheets("R_analyse_croisée" ).Columns("I:I" ).ColumnWidth = 11.71
  5.    
  6.         'Lors de l'absence des CA supression des 0
  7.         If manquant Then
  8.         With wbfile.Sheets("R_analyse_croisée" )
  9.         .Range("I8:I9" ).ClearContents
  10.         .Range("I13:I14" ).ClearContents
  11.         .Range("I16:I17" ).ClearContents
  12.         .Range("I22:I23" ).ClearContents
  13.         .Range("I27:I28" ).ClearContents
  14.         .Range("I30:I31" ).ClearContents
  15.         .Range("I33:I34" ).ClearContents
  16.         .Range("I49:I50" ).ClearContents
  17.         End With
  18.         End If
  19.    
  20.    
  21.     appli.Range("A1" ).Select
  22.    
  23.     Module2.macro1 wbfile, appli, c
  24.     Module2.Macro2 wbfile, appli, c
  25.     Module2.macro3 wbfile, appli, c
  26.     Module2.macro4 wbfile, appli, c, manquant

Plus d'informations

J'ai trouvé une solution

Code :
  1. wbfile.Sheets("R_analyse_croisée" ).Select
  2. wbfile.Sheets("R_analyse_croisée" ).Columns("I:I" ).Delete



Je dois faire un select alors que je précise bien ma feuille ensuite, c'est vraiment du n'importe quoi!! vous etes pas d'accord????


Message édité par darkspoilt le 06-08-2007 à 15:42:23
zeb
Profil : Modérateur libre
Plus d'informations

:pfff: Je vais chercher une corde et je vais me pendre.
Adieu....


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
zeb
Profil : Modérateur libre
Plus d'informations

J'utilise Excel 2002 SP3.
Je n'ai pas ce problème.


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
Plus d'informations

bah ne fait je manipule une feuille grqphique juste avant mais ce n'est pas une raison pour nous obliger a faire un select surtout que ensuite tu précise la feuille. C'est trop bizarre


Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » incompatibilité de type
 

Annonces Google
Publicité