Votre question

Incompatibilité de type en VisualBasic pour une macro excel

Tags :
  • Microsoft Excel
  • Logiciels
Dernière réponse : dans Logiciels
28 Novembre 2006 17:00:24

bonjour, est ce que vous pouvez m'aider à résoudre cette "incompatibilité de type" dans la boucle If. x = F14 (F14 est une cellule):

Sub test ()

DIM F, x As String
DIM i As Integer

For i = 14 To 74
x = "F" & i
If (x < 1) Then
Rows("i").RowHeight = 0
Else
Return
End If
Next
End Sub

Merci d'avance !!!

Autres pages sur : incompatibilite type visualbasic macro excel

28 Novembre 2006 17:34:11

effectue ta macro puis utilise le deboggeur pour trouver d'ou viens l erreur

copies nou ici la ligne d ou viens l erreur
28 Novembre 2006 17:53:56

If (x < 1) Then
l'erreur est a cette ligne...
Contenus similaires
28 Novembre 2006 18:18:20

Bonjour ,
si je n'ai rien compris...
x As String
puis IF (x<1) ===> c'est bien du numerique ?
donc
différence de type

A+

28 Novembre 2006 18:37:08

If (x < 1) enleve les parentheses

garde juste ca If x < 1
28 Novembre 2006 18:46:07

Non ca ne change rien
x est du type string
I et de type integer
donc
si X= "F"& i tu ajoute des pommes et des patates (string+ numerique)
après tu testes si string est inféreur a1 (if X<1 ou if (x<1) )
tu n'ais pas cohérents dans le type de données , cest bien ca ton message d'erreur

A+
29 Novembre 2006 10:05:32

c'est une macro excel. F14 correspond a une cellule.

F14 < 1 sa fonctionne mais en remplacant par X = F14 ca fonctionne plus.

Merci pour vos réponses mais elle ne resolvent pas mon probleme actuel.

:) 

29 Novembre 2006 14:10:59

remplace

x = "F" & i
If (x < 1) Then

par

Cells(f,i) = "x"
If x < 1 Then
4 Décembre 2006 11:23:20

Sub test ()

DIM i As Integer

For i = 14 To 74
Cells(f,i) = "x"
If (x < 1) Then
Rows("i" ).RowHeight = 0
Else
Return
End If
Next
End Sub


Cells(f,i) = "x" : Erreur défini par l'application ou par l'objet
5 Décembre 2006 09:16:10

Si vous avez d'autres idées, n'hésitez pas.... :) 
13 Décembre 2006 16:30:23

un petit message pour relancer ma demande d'aide..... si vous avez une petite idée n'hésitez pas à la noter !!! merci
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS