Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ajout automatique de checkbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion DRANAC
  • 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 !

S'inscrire
D

DRANAC

Guest
Bonjour,

Bonjour,
J'aimerais ajouter automatiquement des checkbox en fonction d'une feuille.
Je calle pour la,mise en page et pour la nomination.
Voila le code :


For i = 1 To 300
If Sheets("MAT").Cells(i, 6).Value = login.Label3 And Sheets("MAT").Cells(i, 5).Value = "" And Sheets("MAT").Cells(i, 1).Value = 1 Then

'CheckBox1.Caption = Sheets("MAT").Cells(i, 7)

For a = 1 To 5
Me.Controls.Add ("forms.checkbox." & a)
'Me.Controls("CheckBox" & a).Caption = Sheets("MAT").Cells(i, a + 6)
Next a
End If

Next i

Merci d'avance
 
Trier par date Trier par votes
Re : Ajout automatique de checkbox

Salut,DRANAC

une ébauche j'espere qu'elle te conviens :

Code: 
Sub ajout()
Dim t, l, i
  ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
                  DisplayAsIcon:=False, Left:=80, Top:=80, Width:=10, Height:=10 _
                  ).Select
 i = 1
      Do While Cells(i, 1).Value <> ""
           Workbooks("classeur1").Activate
          Sheets(1).Activate
           Cells(i, 5).Select
           t = ActiveCell.Top
           l = ActiveCell.Left
           ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
                DisplayAsIcon:=False, Left:=l + 2, Top:=t + 2, Width:=10, Height:=10 _
                ).Select
           i = i + 1
      Loop
End Sub

Cordialement
 
Vote positif 0 Vote négatif
Re : Ajout automatique de checkbox

Bonsoir,
Un peu dans le brouillard tout ça
Ne serait ce pas un formulaire (login.label...)
Dans ce cas
Code: 
'...Code qui commence on ne sait où !
    With Sheets("MAT")
        For i = 1 To 300
            If .Cells(i, 6).Value = Login.Label3 And .Cells(i, 5).Value = "" _
            And .Cells(i, 1).Value = 1 Then
            CheckBox1.Caption = .Cells(i, 7)
                For j = 1 To 5  'j'aime pas les a
                    Set CkB = Controls.Add("forms.Checkbox.1")
                        CkB.Left = 10
                        CkB.Top = 50 * j  'au pifomètre
                        CkB.Caption = .Cells(i, j + 6)
                Next j
            End If
        Next i
    End With
'...Code qui finit on ne sait où !
Une autre solution, plutôt que de tâtonner pour placer les Checkbox, c'est de les placer et de ne les rendre visibles que si les critères sont validés.
A+
kjin
 
Vote positif 0 Vote négatif
Re : Ajout automatique de checkbox

Ça marche ... elle est vivante ...
Je m'emballe la !
Un grand merci à vous deux, bizz sur la fesse droite.
J'ai une larme à l'œil quand je vois les petits checkbox qui s'affichent comme des grands tout seul.
C'est énervant d'être nul.
Sur ce, vais continuer à déployer ma nullité.
 
Vote positif 0 Vote négatif
Re : Ajout automatique de checkbox

Donc voila mon code qui "fonctionne" pour l'ajout des checkbox et des CB :

Private Sub UserForm_Initialize()
Z = 1
a = 1
b = 1

For i = 1 To 300

If Sheets("MAT").Cells(i, 6).Value = login.Label3 And Sheets("MAT").Cells(i, 5).Value = "" Then
'on compte le nombre de ligne,
Z = Z + 1

Set CkB = Controls.Add("forms.Checkbox.1")
CkB.Left = 10
CkB.Top = 30 * Z
CkB.Name = b
CkB.Caption = Sheets("MAT").Cells(i, 7)
a = a + 1

For j = 1 To 10

If Sheets("MAT").Cells(i, j + 7) <> "" Then
Set CkB = Controls.Add("forms.Checkbox.1")
CkB.Left = 90 * j + 1
CkB.Top = 30 * Z
CkB.Caption = Sheets("MAT").Cells(i, j + 7)
CkB.Name = a
a = a + 1

End If

Next j

Set bt = Controls.Add("forms.CommandButton.1")
bt.Left = 500
bt.Top = 30 * Z
bt.Name = "cb" & b
bt.Caption = "Validé"

' on nomme les CkB et BT
a = a + 1
b = b + 1
End If

Next i

'on parametre la taille de l'userform en fonction des lignes
With matos_retour
.Width = 600
.Height = Z * 40

End With

End Sub

Comme dirait un pot informaticien " c'est moche, mal foutu, aussi rapide qu'une cafetière mais ça tourne". 😀

Il me reste une question :
Comment ajouter les commandes directement lors de la création du commandbuton ?

Merci d'avance
 
Vote positif 0 Vote négatif
Re : Ajout automatique de checkbox

Après une petite mais non moins profonde réflexion, je suis arrivé à au code suivant pour ajouter une commande vba à mon bouton :

Set bt = Controls.Add("forms.CommandButton.1")
bt.Left = 500
bt.Top = 30 * Z
bt.Caption = bt.Name

Dim code As String

code = "Private Sub " & bt & "_Click()" & vbCrLf
code = code & "MsgBox""coucou""" & vbCrLf
code = code & "End Sub"

Mais bien sur, ca ne va pas et je ne sais pas pourquoi
Comment doit on faire pour donné un code à un objet tel qu'un bouton ???
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
484
nabilexcel2007
N
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
935
n_turf
N
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
487
Electron24
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
917
TooFatBoy
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
793
lynyrd
F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
541
dysorthographie
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
140
Eric 888
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
373
Piment
P
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
789
job75
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
568
TooFatBoy
Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
284
Valtrase
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
246
treza88
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
738
kiki29
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
825
KRUG WOO
K
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
777
youguybass
Y
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
397
job75
  • Résolu(e)
Microsoft 365 Comment supprimer un espace entre deux chiffres ?
2
Réponses
18
Affichages
797
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…