Code vba - insertion box invisible si ligne vide

[imadeus]

Voilà j'ai réalisé un ajout automatique de checkbox sur un ensemble de ligne.

Cependant je cale sur une bêtise, je n'arrive pas à faire en sorte que si la Ligne "x" de la colonne "A" est vide, alors on rajoute une checkbox invisible

Sub AjoutCheckBoxD()
    Dim cell As Range
    Dim j As Integer
    Dim DernLigne As Long
    Dim Obj As OLEObject
 
    DernLigne = Range("A" & Rows.count).End(xlUp).Row

    j = 3 ' ma première ligne à considérer est la 3éme
    For Each cell In Range("D" & j & ":D" & DernLigne)
        Set Obj = ActiveSheet.OLEObjects.Add("Forms.CheckBox.1")
        With Obj
        .Left = Range("D" & j).Left + 7 'position horizontale
        .Top = Range("D" & j).Top + 3 'position verticale
        .Width = 7 'largeur
        .Height = 7 'hauteur
    End With
        j = j + 1
    Next
  End Sub

pourriez-vous m'aider ? Je suppose que c'est une bêtise mais je sèche ...

 

[Paf]

Re : Code vba - insertion box invisible si ligne vide

Bonjour

entre With et End With rajouter:

If cell.Value = "" Then
       .Visible = False
End If

Bonne suite

 

[imadeus]

Re : Code vba - insertion box invisible si ligne vide

Merci Paf. Je devais être fatigué car j'ai fini par trouver aussi.
Merci aussi pour ta réponse.