incompatibilité de type
Dernière réponse : dans Programmation
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
Si quelqu'un peut m'expliquer ce qui ne va pas merci d'avance
wbfile.Sheets("R_analyse_croisée").Columns("I:I").Delete Shift:=xlToLeft
Autres pages sur : incompatibilite type
Lassé par la pub ? Créez un compte
Pourait-il y avoir u probleme avec le code qui suit c'est le code qui précède mon erreur
'Ajout des libéllé
wbfile.Sheets("R_analyse_croisée").Range("I4:J4").NumberFormat = "General"
wbfile.Sheets("R_analyse_croisée").Range("I4").FormulaR1C1 = md & "/10/" & "20" & a
wbfile.Sheets("R_analyse_croisée").Columns("I:I").ColumnWidth = 11.71
'Lors de l'absence des CA supression des 0
If manquant Then
With wbfile.Sheets("R_analyse_croisée")
.Range("I8:I9").ClearContents
.Range("I13:I14").ClearContents
.Range("I16:I17").ClearContents
.Range("I22:I23").ClearContents
.Range("I27:I28").ClearContents
.Range("I30:I31").ClearContents
.Range("I33:I34").ClearContents
.Range("I49:I50").ClearContents
End With
End If
appli.Range("A1").Select
Module2.macro1 wbfile, appli, c
Module2.Macro2 wbfile, appli, c
Module2.macro3 wbfile, appli, c
Module2.macro4 wbfile, appli, c, manquant
Lassé par la pub ? Créez un compte
Je vais chercher une corde et je vais me pendre.