Bonjour,
J'essaie de faire une boucle qui détecte si la cellule est vide ou pas, mais elle ne semble pas fonctionner.
Je pense que c'est du à l'offset que j'ai essayé de retirer mais sans résultat positif
Le bout de code est :
J'ai également essayé le = IsEmpty () = True et le = "" mais sans résultat non plus
Je vous remercie d'avance,
FreeKc
J'essaie de faire une boucle qui détecte si la cellule est vide ou pas, mais elle ne semble pas fonctionner.
Je pense que c'est du à l'offset que j'ai essayé de retirer mais sans résultat positif
Le bout de code est :
Code:
Derligne = Sheets("Tampon").Range("g" & Rows.Count).End(xlUp).Row
Set Plage = Sheets("Tampon").Range("g1:g" & Derligne)
Dim cel2 As Range
For Each cel2 In Plage
If IsEmpty(cel2.Offset(0, 3)) Then
cel2.Offset(0, 11) = cel2.Offset(0, 0) & " ," & cel2.Offset(0, 1) & " ," & cel2.Offset(0, 3) & " , " & cel2.Offset(0, 4)
Else
cel2.Offset(0, 11) = cel2.Offset(0, 0) & " ," & cel2.Offset(0, 1) & " / " & cel2.Offset(0, 2) & " , " & cel2.Offset(0, 3) & " " & cel2.Offset(0, 4)
End If
NextJ'ai également essayé le = IsEmpty () = True et le = "" mais sans résultat non plus
Je vous remercie d'avance,
FreeKc
Dernière édition: