Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Msg d'erreur "Erreur d'excution 13'

Msg d'erreur "Erreur d'excution 13'

4 réponses
Avatar
Sylvain
Bonjour,

Je re=E7ois le message d'erreur suivant :"Erreur d'excution=20
13' incompatibilit=E9 de type sur l'instruction .cells
(L,C).value.

Ou est situ=E9 le probl=E8me ? (Alors que cela a d=E9j=E0=20
fonctionner auparavant)

With Worksheets("donn=E9es")
For lignE =3D ligne_deb To NbLigneS
For ColonnE =3D col_deb To NbColonneS
.Cells(lignE, ColonnE).FormulaR1C1 =3D "=3D'" & chemin=20
& "\[" & NomFic & "]donnees'!RC"
Application.StatusBar =3D "L" & lignE & "C" & ColonnE=20
& ": " & .Cells(lignE, ColonnE).Value
Next ColonnE
Next lignE
End With

Merci par avance
Sylvain
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Sylvain,

cette macro fonctionne bien, vérifie la valeur de tes variables, c'est
peu être là le problème.

isabelle


Bonjour,

Je reçois le message d'erreur suivant :"Erreur d'excution
13' incompatibilité de type sur l'instruction .cells
(L,C).value.

Ou est situé le problème ? (Alors que cela a déjà
fonctionner auparavant)

With Worksheets("données")
For lignE = ligne_deb To NbLigneS
For ColonnE = col_deb To NbColonneS
.Cells(lignE, ColonnE).FormulaR1C1 = "='" & chemin
& "[" & NomFic & "]donnees'!RC"
Application.StatusBar = "L" & lignE & "C" & ColonnE
& ": " & .Cells(lignE, ColonnE).Value
Next ColonnE
Next lignE
End With

Merci par avance
Sylvain


Avatar
Sylvain
Bonjour Isabelle,

Les valeurs de mes variables sont à priori OK (Integer) et
en mode débug les valerus sont ok.

Merci
Sylvain
-----Message d'origine-----
bonjour Sylvain,

cette macro fonctionne bien, vérifie la valeur de tes
variables, c'est

peu être là le problème.

isabelle


Bonjour,

Je reçois le message d'erreur suivant :"Erreur
d'excution


13' incompatibilité de type sur l'instruction .cells
(L,C).value.

Ou est situé le problème ? (Alors que cela a déjà
fonctionner auparavant)

With Worksheets("données")
For lignE = ligne_deb To NbLigneS
For ColonnE = col_deb To NbColonneS
.Cells(lignE, ColonnE).FormulaR1C1 = "='" & chemin
& "[" & NomFic & "]donnees'!RC"
Application.StatusBar = "L" & lignE & "C" & ColonnE
& ": " & .Cells(lignE, ColonnE).Value
Next ColonnE
Next lignE
End With

Merci par avance
Sylvain
.





Avatar
Michel Gaboly
Bonjour,

Le problème n vient pas des variables, mais proba-
blement du contenu d'une des cellules :

À quoi est égal .Cells(lignE, ColonnE).Value lors du
plantage ?

PS - Tu peux te contenter de .Cells(lignE, ColonnE),
Value étant la propriété par défaut.



Bonjour Isabelle,

Les valeurs de mes variables sont à priori OK (Integer) et
en mode débug les valerus sont ok.

Merci
Sylvain
-----Message d'origine-----
bonjour Sylvain,

cette macro fonctionne bien, vérifie la valeur de tes
variables, c'est

peu être là le problème.

isabelle


Bonjour,

Je reçois le message d'erreur suivant :"Erreur
d'excution


13' incompatibilité de type sur l'instruction .cells
(L,C).value.

Ou est situé le problème ? (Alors que cela a déjà
fonctionner auparavant)

With Worksheets("données")
For lignE = ligne_deb To NbLigneS
For ColonnE = col_deb To NbColonneS
.Cells(lignE, ColonnE).FormulaR1C1 = "='" & chemin
& "[" & NomFic & "]donnees'!RC"
Application.StatusBar = "L" & lignE & "C" & ColonnE
& ": " & .Cells(lignE, ColonnE).Value
Next ColonnE
Next lignE
End With

Merci par avance
Sylvain
.





--
Cordialement,

Michel Gaboly
http://www.gaboly.com



Avatar
isabelle
et la feuille "donnees" de :

.Cells(lignE, ColonnE).FormulaR1C1 = "='" & chemin
& "[" & NomFic & "]donnees'!RC"


existe bien ?

isabelle


Bonjour Isabelle,

Les valeurs de mes variables sont à priori OK (Integer) et
en mode débug les valerus sont ok.

Merci
Sylvain
-----Message d'origine-----
bonjour Sylvain,

cette macro fonctionne bien, vérifie la valeur de tes
variables, c'est

peu être là le problème.

isabelle


Bonjour,

Je reçois le message d'erreur suivant :"Erreur
d'excution


13' incompatibilité de type sur l'instruction .cells
(L,C).value.

Ou est situé le problème ? (Alors que cela a déjà
fonctionner auparavant)

With Worksheets("données")
For lignE = ligne_deb To NbLigneS
For ColonnE = col_deb To NbColonneS
.Cells(lignE, ColonnE).FormulaR1C1 = "='" & chemin
& "[" & NomFic & "]donnees'!RC"
Application.StatusBar = "L" & lignE & "C" & ColonnE
& ": " & .Cells(lignE, ColonnE).Value
Next ColonnE
Next lignE
End With

Merci par avance
Sylvain
.