Pb de fonction

[borisdu59]

Bonjour ter tous,

Je me tourne vers vous car je rencontre une petite difficulté avec une partie d'un gros "programme" fait sur excel. En fait, pour faire bref, il s'agit d'un fichier permettant l'édition de bulletin dans le supérieur.

Le problème qui se pose sont les options des différents étudiants. Pour cela j'avais imaginer utiliser des cases à cocher. Mais les effectif sont susceptible de bouger et pour simplifier le travail de l'utilisateur final (qui n'est pas moi), je penser paramétrer une 100 de cases pour chaque option et les faire apparaître lorsqu'un nom ce trouve dans la case à coté.

Bref je pensait m'en sortir mais ça ne marche pas et je ne comprend pas très bien pourquoi.

Je tient à préciser que j'ai des bases de programmation mais je peut être considéré comme un novice ++!

Merci à tout ce qui prendrons le temps de lire ce message et peut-être d'y répondre!

Très cordialement,
Moi

 

[C@thy]

Re : Pb de fonction

bonjour boris,
une piste : essaie shapes à la place de controls

C@thy

 

[C@thy]

Re : Pb de fonction

par exemple :

Private Sub cb_test_Click()
Dim nom_bouton As Integer
nom_bouton = 1
    For Each Cell In Worksheets(1).Range("A10:A100")
        If Cell.Value = "" Then
            Shapes("cb_option_économie_tec1_" & nom_bouton).Visible = False
            Shapes("cb_option_biologie_tec1_" & nom_bouton).Visible = False
        Else
            Shapes("cb_option_économie_tec1_" & nom_bouton).Visible = True
            Shapes("cb_option_biologie_tec1_" & nom_bouton).Visible = True
        End If
        nom_bouton = nom_bouton + 1
    Next Cell
End Sub

C@thy

 

[Banzai64]

Re : Pb de fonction

Bonjour

A voir

 

[borisdu59]

Re : Pb de fonction

Merci, ça marche nickel.

Merci pour cette épine en moins dans mes petits petons!