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
pourriez-vous m'aider ? Je suppose que c'est une bêtise mais je sèche ...
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 ...