Test de cellules vides

[Fab]

Bonjour,
Il doit aller en C4.
Si la cellule est vide, alors il rempli la conditions (écriture de données).
Si la cellule est déjà remplie, il teste D4, ...

Avec le code ci-dessous, il plante.
Quelqu'un aurait-il une idée ?
Merci d'avance.


j = 4
For j = 4 To 15
If Range("C" & j) <> "" Then
Range("C" & j).Select
Range("C" & j).Value = HeureAriveeMoyenne
Range("D" & j).Select
Range("D" & j).Value = DebutPauseMoyenne
Range("E" & j).Select
Range("E" & j).Value = FinPauseMoyenne
Range("F" & j).Select
Range("F" & j).Value = HeureDepartMoyenne
Else
Next j
End If

 

[Ludwig]

Bonjour Fab,

Tente de mettre Next j aprés End if

Ludwig

 

[Fab]

Il y a une faute dans mon code.
La 3ème ligne est :

If Range("C" & j) = "" Then

Sinon, il lui faut une cellule pleine pour remplir la condition.

Merci Ludwig, mais en faisant ainsi, il me rempli toutes les lignes vides. Alors que je souhaiterais qu'il ne remplisse que la première ligne vide qu'il rencontre.

 

[Pascal76]

Salut

Finis ton code ainsi

Else
exit for
End If
Next j

Bon courage

Pascal

 

[Fab]

Salut Pascal,
Après essais, en finissant mon code comme tu me l'indiques, si dans la ligne 4, la cellule C n'est pas vide, il sort de la boucle et ne teste pas la ligne 5.
Par contre si la ligne 4 est vide, il inscrit les mêmes données dans les lignes 4 à 19.
As-tu une autre proposition stp.
Merci

j = 4
For j = 4 To 15
If Range("C" & j) = "" Then
Range("C" & j).Select
Range("C" & j).Value = HeureAriveeMoyenne
Range("D" & j).Select
Range("D" & j).Value = DebutPauseMoyenne
Range("E" & j).Select
Range("E" & j).Value = FinPauseMoyenne
Range("F" & j).Select
Range("F" & j).Value = HeureDepartMoyenne
Else
Exit For
End If
Next j

 

[Pascal76]

Excuse je me suis planté

ce serait plutot ceci :

j = 4
For j = 4 To 15
If Range("C" & j) = "" Then
Range("C" & j).Select
Range("C" & j).Value = HeureAriveeMoyenne
Range("D" & j).Select
Range("D" & j).Value = DebutPauseMoyenne
Range("E" & j).Select
Range("E" & j).Value = FinPauseMoyenne
Range("F" & j).Select
Range("F" & j).Value = HeureDepartMoyenne
Exit For
End If
Next j

Pascal

 

[yvon51]

bonjour Fab,
bonjour le forum,
bonjour pascal76,

Pascal, as tu des nouvelles au sujet de mon problème STP?

merci
yvon51

 

[Fab]

Merci, ça marche tip top