Bonjour tout le monde,

alors voila j'ai un petit soucis sur un code qui ne fonctionne pas.
Il est censé repérer une cellule qui ne contient pas de contenu numérique et ainsi passer à la cellule suivante dans une meme colonne.
Seulement cela ne fonctionne pas et ça ne me donne pas d'erreur non plus ...

Je vous met le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim SD As Double
Dim i, j As Integer
 j=4
 For i= 4 to 200
   If not IsNumeric(cells(i, 5).value) then
   Exit For
   End If
   If IsNumeric(cells(i, 5) then
   SD = 1.645 * (6 * cells(i, 5))
   cells(j, 15) = SD
   Cells(j, 15).NumberFormat = "0.00E+00"
   j=j+1
   End If
Next i
Si vous avez une piste je suis preneur !!!!!