VBA : IsEmpty

[FreeKc]

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 :

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
    Next

J'ai également essayé le = IsEmpty () = True et le = "" mais sans résultat non plus

Je vous remercie d'avance,
FreeKc

 

[gosselien]

Re : VBA : IsEmpty

Bonsoir,

comme souvent ici, il est préférable de mettre un petit fichier d'exemple (via "aller en mode avancé")

P.

 

[FreeKc]

Re : VBA : IsEmpty

Bonsoir,

Tout à fait d'accord. J'avais juste pas la possibilité de préparer un fichier pour ce petit bout de code.

J'ai posté juste la partie qui me dérange en pensant que c'était pas quelque chose de très compliqué.

Je joindrai un fichier demain matin.

Merci de votre réponse.

Freekc

 

[FreeKc]

Re : VBA : IsEmpty

Bonjour,

En créant le fichier à joindre, j'ai résolu le problème ... l'offset devait pointer sur la deuxième et non la troisième cellule.

Bonne journée.
FreeKc