Discussion :

[titi36]

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 !!!!!

[casefayere]

Bonjour,
essayes comme ça,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub essai()
Dim SD As Double
Dim i As Integer
For i = 4 To 200
  If IsNumeric(Cells(i, 5)) And Not IsEmpty(Cells(i, 5)) Then
    SD = 1.645 * (6 * Cells(i, 5))
    Cells(i, 15) = SD
    Cells(i, 15).NumberFormat = "0.00E+00"
  End If
Next i
 
End Sub

[titi36]

bonjour casefayere,

ça ne change rien, il faut en fait que dès que la cellule soit vide ou pleine de lettres alors on incrémente j, de manière à ne copier dans la colonne 15 que des nombres à la suite.

[casefayere]

Ok, je n'avais pas compris, et ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai()
Dim SD As Double
Dim i As Integer, j As Integer
j = 4
For i = 4 To 200
  If IsNumeric(Cells(i, 5)) And Not IsEmpty(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
 
End Sub

[titi36]

Bon j'avance,

j'ai viré la partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsNumeric(cells(i, 5).value) then exit for

et j'ai ajouté comme vous me disiez dans une des solutions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

And Not IsEmpty(cells(i, 5).value)

et finalement ça fonctionne comme je voulais

Merci à vous !!!

[redstoff]

En Modif!!!!

Bonjour,

testes comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim SD As Double
Dim i, j As Integer
 
For i= 4 to 200
If IsNumeric(cells(i, 5) then
SD = 1.645 * (6 * cells(i, 5))
cells(j, 15) = SD
Cells(j, 15).NumberFormat = "0.00E+00"
End If
Next i