Se connecter avec
S'enregistrer | Connectez-vous

incompatibilité de type

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte
Expert Programmation

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

Essaye ça pour voir où est l'incompatibilité :
  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

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

  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.  
  22. appli.Range("A1").Select
  23.  
  24.  
  25. Module2.macro1 wbfile, appli, c
  26.  
  27. Module2.Macro2 wbfile, appli, c
  28.  
  29. Module2.macro3 wbfile, appli, c
  30.  
  31. Module2.macro4 wbfile, appli, c, manquant

J'ai trouvé une solution

  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????
Lassé par la pub ? Créez un compte