cases à cocher, creation automatique

  • Initiateur de la discussion Initiateur de la discussion christ-94
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

christ-94

Guest
Bonjour

Comment crée des cases à cocher automatiquement en fonction d'une liste le resultat doit ce retouve dans dans une liste en fin de tableau


Merci de vos reponses
 
bonsoir Christ94 , bonsoir Pierre-Jean

j'espere que cet exemple pourra t'aider


Dim i As Integer, j As Integer
Dim Obj As OLEObject

i = Feuil1.Range('D65536').End(xlUp).Row

For j = 2 To i

Set Obj = Feuil1.OLEObjects.Add('Forms.CheckBox.1')
With Obj
.Left = Feuil1.Cells(j + 1, 10).Left
.Top = Feuil1.Cells(j + 1, 10).Top
.Width = Feuil1.Cells(j + 1, 10).Width
.Height = Feuil1.Cells(j + 1, 10).Height
.Object.Caption = 'L' & j - 1
.LinkedCell = Feuil1.Cells(j, 5).Address
End With

Next j




bonne soiree
MichelXld
 
bonsoir et merci a vous

Super avec quelques adaptations plus de problème par contre je ne peux pas les bouges, car en faite cette structure de macro doit servir a la création d'une feuille de transfert donc a les déplacés
 
Re : cases à cocher, creation automatique

Bonjour a tous,

Suite à ce topic, qui m'a bien aidé, j'ai quand meme une question qui reste en suspens:

Je souhaite donc, de la meme manière, créer des checkbox de la ligne 2 à la ligne i (étant la dernière ligne utilisée). Ca, c'est OK.

Néanmoins, je souhaite également éditer le code correspondant à chaque checkbox (le code étant le meme pour toutes les checkbox, en gros si on la coche la linkedcell vaut 1, sinon elle vaut 0)

Quelqu'un peut-il m'aider?

Merci

Div.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
206
Réponses
10
Affichages
248
Réponses
15
Affichages
286
Réponses
1
Affichages
160
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
338
Réponses
18
Affichages
1 K
Retour