Erreur calcul cells

Le
PST
Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, message =

erreur, imcompatibilité de type

merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
poc
Le #5387451
"PST" 475471f4$0$5078$
Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, message
erreur, imcompatibilité de type

merci
LSteph
Le #5387441
Bonsoir,

C'est quoi dedans?
??...
Essaie avec evaluate

--
lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, message
erreur, imcompatibilité de type

merci


LSteph
Le #5387431
Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, chez
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, message
erreur, imcompatibilité de type

merci


PST
Le #5387371
Voila la macro complete
Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)

Ce ne sont que des chiffres


Sub Der_Colonne_vide()
For I = 1 To 10
For j = 1 To 1
Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value
Cells(I, 5) = 2577 - Cells(I, 3)
Next
Next
End Sub


Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, chez
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, messa ge
erreur, imcompatibilité de type

merci




LSteph
Le #5387311
Bonjour,

Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)


Il parait vraisemblable que la Cellule I de la colonne 3 ou celle de
la colonne 5 qui ne contienne pas une valeur numérique mais pour peu
qu'une valeur y soit apparente, probablement celle-ci convertie en texte.

--
lSteph

Voila la macro complete
Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)

Ce ne sont que des chiffres


Sub Der_Colonne_vide()
For I = 1 To 10
For j = 1 To 1
Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value
Cells(I, 5) = 2577 - Cells(I, 3)
Next
Next
End Sub


Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, chez
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas,
message erreur, imcompatibilité de type

merci







FFO
Le #5387261
Salut à toi
Vérification faite ta ligne de commande ne fonctionne que si Cells(I,3) est
un nombre
Or compte tenu de ton code Cells(I,3) est déterminé par l'instruction qui
précède :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Au message d'erreur opère un débugage
passe ta souris sur Cells(I, 3) au niveau de la ligne surligné en jaune :

Cells(I, 5) = 2577 - Cells(I, 3)

pour en connaître sa valeur

Il est fort à parier qu'elle ne soit pas apparentée à un nombre

donc en trouver l'origine au niveau de la ligne de commande :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Pour corriger l'anomalie

A ta dispo pour t'aider à cette fin




Voila la macro complete
Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)

Ce ne sont que des chiffres


Sub Der_Colonne_vide()
For I = 1 To 10
For j = 1 To 1
Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value
Cells(I, 5) = 2577 - Cells(I, 3)
Next
Next
End Sub


Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, chez
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, message
erreur, imcompatibilité de type

merci








PST
Le #5386671
Merci au pluriel

problème réglé

Astuce débugage toujours bienvenues


Salut à toi
Vérification faite ta ligne de commande ne fonctionne que si Cells (I,3) est
un nombre
Or compte tenu de ton code Cells(I,3) est déterminé par l'ins truction qui
précède :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Au message d'erreur opère un débugage
passe ta souris sur Cells(I, 3) au niveau de la ligne surligné en jaune :

Cells(I, 5) = 2577 - Cells(I, 3)

pour en connaître sa valeur

Il est fort à parier qu'elle ne soit pas apparentée à un nombre

donc en trouver l'origine au niveau de la ligne de commande :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Pour corriger l'anomalie

A ta dispo pour t'aider à cette fin




Voila la macro complete
Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)

Ce ne sont que des chiffres


Sub Der_Colonne_vide()
For I = 1 To 10
For j = 1 To 1
Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value
Cells(I, 5) = 2577 - Cells(I, 3)
Next
Next
End Sub


Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, che z
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, mes sage
erreur, imcompatibilité de type

merci









PST
Le #5386661
Merci au pluriel
Astuces toujours bienvenues
problème réglé

Salut à toi
Vérification faite ta ligne de commande ne fonctionne que si Cells (I,3) est
un nombre
Or compte tenu de ton code Cells(I,3) est déterminé par l'ins truction qui
précède :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Au message d'erreur opère un débugage
passe ta souris sur Cells(I, 3) au niveau de la ligne surligné en jaune :

Cells(I, 5) = 2577 - Cells(I, 3)

pour en connaître sa valeur

Il est fort à parier qu'elle ne soit pas apparentée à un nombre

donc en trouver l'origine au niveau de la ligne de commande :

Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value

Pour corriger l'anomalie

A ta dispo pour t'aider à cette fin




Voila la macro complete
Elle bloque sur la ligne Cells(I, 5) = 2577 - Cells(I, 3)

Ce ne sont que des chiffres


Sub Der_Colonne_vide()
For I = 1 To 10
For j = 1 To 1
Cells(I, 3).Value = Cells(I, 256).End(xlToLeft).Value
Cells(I, 5) = 2577 - Cells(I, 3)
Next
Next
End Sub


Encore que...

Si je mets des chiffres dans ces cellules et fixe la valeur de I, che z
moi tout cela fonctionne!

--

lSteph

Bonjour

Pourquoi :

Cells(I, 6) = Cells(I, 1) + Cells(I, 2) >> fonctionne


Cells(I, 5) = 2577 - Cells(I, 3) >> ne fonctionne pas, mes sage
erreur, imcompatibilité de type

merci









Publicité
Poster une réponse
Anonyme