Checkbox

Bonjour,

Je suis en train de réaliser une checkbox afin qu'a chaque fois que je clique sur un bouton celà me rajoute une autre check box. J'arrive à ajouter des check box mais je n'arrive pas à mettre au point la selection de la derniére céllule non vide.

Celà bloque au niveau du j qui affiche dans le debugueur "true".

Sub CréerCase()

Dim Cellule As Range

Dim i 'Dernière case pleine

Dim j 'dernière case non vide

j = Columns("G:G").Find("*", , , , , xlPrevious).Select

For Each Cellule In Range("G10:j")

With Cellule

.Select

ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select

End With

Next Cellule

End Sub

Merci,

Damien

Bonjour

Un petit fichier en expliquant ce que tu veux serait un plus

Supposition par rapport à ton code

Sub CréerCase()
Dim Cellule As Range
Dim i 'Dernière case pleine
Dim j 'dernière case non vide
  j = Columns("G:G").Find("*", , , , , xlPrevious).Row          '.Select
  For Each Cellule In Range("G10:G" & j)
    With Cellule
      '.Select
      ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
    End With
  Next Cellule
End Sub

Bonjour,

Je vous remercie pour votre réponse.

J'ai un bouton clique qui remplit un tableau et j'aimerais avoir un module qui me permette d'ajouter une check box dans la colonne G. Mais je n'arrive pas à uincrémenter les checkbox une en dessous des autres.

Bonjour

Un fichier vide n'aide pas beaucoup à la compréhension du problème

Pour commencer