Cases à cocher automatiques

[gbbtt]

Bonjour à tous,

Je débute dans l'utilisation de VBA pour Excel et des macros et j'ai d'ores et déjà quelque chose qui me semble complexe à réaliser.

Je souhaite qu'à l'ouverture de mon fichier automatiquement le premier onglet se remplisse de cases à cocher correspondants chacune à un fichier Excel annexes.
En pratique je souhaite que le fichier effectue une recherche de tous les classeurs commençant par "blabla" dans le dossier toto et crée la case à cocher correspondante.

Est-ce que cela vous parait faisable?
Si oui pourriez vous m'orienter sur les techniques à utiliser car je suis un peu perdu!

Merci d'avance

gbbtt

 

[CHALET53]

Re : Cases à cocher automatiques

bonjour,

Pour rechercher des fichiers dans un répertoire et les afficher dans une box
Tu remplaces la lettre D par ce que tu veux et les XXXXX et ZZZZZ par ton répertoire et sous répertoire
A adapter
Concernant les cases à cocher, je ne sais pas (c'est pour faire quoi ?)


Sub essai()
'
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\XXXX\ZZZZ")
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s

End Sub

 

[job75]

Re : Cases à cocher automatiques

Bonjour gbbtt, salut CHALET53,

Si les cases à cocher sont pour ouvrir les fichiers, il vaut mieux des liens hypertexte.

Alt+F11 pour aller dans VBA et double-clic en haut à gauche sur "ThisWorkbook".

Dans le code de ThisWorkbook, placez par exemple cette macro :

Private Sub Workbook_Open()
Dim chemin$, fichier$, lig&, fich$
Feuil1.Activate 'CodeName de la feuille à adapter
chemin = "C:\toto\" 'à adapter
fichier = "blabla*.xls*" 'à adapter
lig = 2 '1ère ligne à remplir, à adapter
[A2:A10000].Clear 'RAZ, à adapter
fich = Dir(chemin & fichier) '1er fichier du dossier
While fich <> ""
  Cells(lig, 1).Hyperlinks.Add Cells(lig, 1), chemin & fich, TextToDisplay:=fich
  lig = lig + 1
  fich = Dir
Wend
End Sub

A+

 

[gbbtt]

Re : Cases à cocher automatiques

Merci à tous les deux pour vos propositions.

J'avais entre-temps commencé quelque chose que j'ai terminé hier avant de voir vos messages.

Ca fonctionne bien sauf le workbook_open qui ne se lance pas donc je suis obligé de le faire à la main! Une explication

Private Sub Workbook_open()


Dim Fich As String, Ctr As Long
Dim Box As CheckBox


For Each Box In ActiveSheet.CheckBoxes
 Box.Delete
Next Box
    
    
    With Sheets(1)
        Ctr = 6
        Fich = Dir("d:\personal\guillaume.thiebaut\desktop\Projets annexes\converg*.xls")
        Do While Fich <> ""
            Ctr = Ctr + 2
            'Création de la case à cocher (largeur 100, hauteur 20, à 10 points du bord)
            Set cb = .CheckBoxes.Add(10, .Cells(Ctr, 1).Top, 150, 20)
                cb.Caption = Fich
                cb.Value = 0
                cb.LinkedCell = .Cells(Ctr, 3).Address
            Fich = Dir
        Loop
    End With
End Sub

gbbtt

 

[job75]

Re : Cases à cocher automatiques

Bonjour gbbtt,

Votre macro fonctionne très bien chez moi.

Bien sûr pour tester j'ai utilisé :

Fich = Dir(Me.Path & "\*.xls")

Et bien sûr la macro doit être placée dans ThisWorkbook.

PS : la variable "cb" n'est pas déclarée. Le mieux est de la remplacer par "Box" déjà utilisée.

A+

 

[chris]

Re : Cases à cocher automatiques

Bonjour
Coucou job75

Deux réponses dans le même sens
[XL-2003] Cases à cocher automatiques - Forum des professionnels en informatique

 

[Fo_rum]

Re : Cases à cocher automatiques

Bonjour,

ceux qui me connaissent savent que je suis allergique à la multiplication des boutons.
Non seulement il faut les supprimer pour les voir réapparaître mais ensuite il faut les gérer.
Je me rabats donc vers d'autres solutions comme celle proposée* dans le fichier ci-joint (avec un évènement doubleclic, par exemple, pour la gestion des données).

* du soft dirait job75 😉.

 

[job75]

Re : Cases à cocher automatiques

Re, salut chris, Fo_rum 🙂

@ chris : tu visites aussi developpez.net donc ?

Pourtant j'avais lourdement insisté hier (post #3) sur ThisWorkbook...

Et je parie ma chemise que gbbtt ne donnera plus signe de vie ici, classique malheureusement 😡

A+

 

[chris]

Re : Cases à cocher automatiques

Bonjour

Job75 : cela m'arrive. J'ai un bon copain qui anime la partie Access.

J'y croise parfois d'autres membres d'XLD...

Mais rien n'égale la convivialité d'XLD et je suis sincère.

 

[gbbtt]

Re : Cases à cocher automatiques

Bonjour à tous

job75
Tu me dois donc une chemise!
Effectivement j'avais lu trop rapidement ton post 3 pour aller directement au code ce qui m'a fait perdre finalement plus de temps!

Fo_rum
Ta proposition est intéressante et effectivement beaucoup plus simple a gérée, je vais réfléchir pour voir si je peux l'adapter à mes besoins.

Merci à tous ceux qui ont répondu!

gbbtt

 

[job75]

Re : Cases à cocher automatiques

Bonjour gbbtt, le fil,

job75
Tu me dois donc une chemise!

Vous êtes donc quelqu'un de bien, et je suis heureux de la perdre 🙂

A+