Code vba - insertion box invisible si ligne vide

imadeus

XLDnaute Nouveau
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

Code:
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 ...
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG