Selection.Characters.Text = ""

Question

Sub Ajout_checkbox()
Dim i As Integer
Dim horizontal As Double
Dim vertical As Double

horizontal = Sheets("Table Excel").Columns("a").Width 'Position horizontale = colonne C

i = Sheets("Table Excel").UsedRange.Rows.Count 'compte le nombre de lignes dans la feuille

For Each sh In Sheets("Table Excel").Shapes
    If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox Then
            sh.Delete
        End If
    End If
Next sh

For J = 3 To i 'boucle sur chaque ligne
vertical = Sheets("Table Excel").Rows("1:" & J - 1).Height 'Fixe la hauteur de la ligne j
Sheets("Table Excel").CheckBoxes.Add(horizontal, vertical, 15, 15).Select 'position et taille de la checkbox

Selection.Characters.Text = ""  'pas de texte dans la checkbox

Selection.Name = "CheckBox" & J 'Nomme la checkbox pour pouvoir travailler dessus par après
Next J

End Sub

Bonjour le forum,

Mon probleme est le suivant,

En fait j'ai un fichier qui contient trois feuilles : quand je lance cette macro de ma feuille " Table Excel" ça marche nickel chrome par contre quand je la lance d'une autre feuille la j'ai du text à coté de mes cases à cocher créées je pense que le probleme est à ce niveau la :

Selection.Characters.Text = "" 'pas de texte dans la checkbox

Comment dire à la machine qu'il s'agit bien de la feuille "Table Excel" ??

Merci d'avance

Amicalement

eriiic · Answer

Ca ne serait pas plutôt .Caption pour un Textbox ? eric...

eriiic · Answer

Oui, checkbox je voulais dire.

Tu cherches à le mettre où ton texte ?

Si c'est dans le checkbox c'est ton_checkbox.caption=""

Si c'est dans une cellule on utilise plutôt range(ta_cellule)="". On utilise .Characters.Text qu'on on veut modifier une partie de la chaine.

Quoiqu'il en soit Selection a plutôt l'air d'être la cellule sélectionnée de la feuille active que ton checkbox.

eric