Incompatibilité de type
Bonjour après avoir cherché (peut être mal) sur le forum je ne trouve pas la réponse à ma question.
Je vous expose donc mon problème.
Je veux remplir la colonne 7 avec des valeurs (calculé à partir d'autre cellules). sachant que j'ai environ 12 000 lignes sur le classeur.
J'ai fais le code suivant mais une incompatibilité de type apparait
Pouvez vous m'aider ?
merci bien à vous .
Voici le code
Sub DTG()
Dim i As Long
Dim k, l, m, n As Integer
i = 32
While Cells(i, 1).Value = Cells(i + 1, 1).Value - 1
k = Cells(i + 30, 6).Value
l = Cells(i - 30, 6).Value
m = Cells(i - 30, 2).Value
n = Cells(i + 30, 2).Value
Cells(i, 7) = (k - l) / (n - m)
i = i + 1
Wend
End Sub
j'ai oublié de préciser que dans ma colonne 1 j'ai des temps en seconde ainsi la boucle while me permet de rentrer des valeurs jusqu'à ce que la ligne d'après sois vide.
Bonjour
le mieux est de fournir un fichier de test avec quelques lignes seulement... pas besoin des 12000
Fred
Bonjour à tous,
Tu aurais pu indiquer la ligne en erreur non ?
Dim k, l, m, n As IntegerDéjà tu ne types que la dernière variable n, les autres sont Variant.
Il faut toutes les typer une par une.
Regarde la valeur de la cellule lue lors de l'erreur.
Ca doit être du texte pour n (ou la ligne du While), ou une valeur d'erreur.
eric
Bonjour à tous,
Tu aurais pu indiquer la ligne en erreur non ?
Dim k, l, m, n As IntegerDéjà tu ne types que la dernière variable n, les autres sont Variant.
Il faut toutes les typer une par une.
Regarde la valeur de la cellule lue lors de l'erreur.
Ca doit être du texte pour n (ou la ligne du While), ou une valeur d'erreur.
eric
Bonjour désolé du temps de réponse j'étais en vacances, en effet en nommant bien mes variables et en commençant à 32 et non 33 celà fonctionne.
Je vous remercie
Bonne journée