Discussion :

[epaminondas]

Bonjour,
Sous VBA Excel, j'ai crée un tableau avec des items variant de 0 à 30 (le tableau peut être vide ou avoir jusqu'à 30 items). J'ai disposé une check box sur chaque item et un bouton pour valider les choix d'items.
Mon problème est de traiter la feuille de calcul comme une userform, c'est-à-dire de l'afficher et d'avoir la main jusqu'à la validation.
Merci de m'aider.

[ouskel'n'or]

Oui, et quelle est question ?
Je suppose que tu veux connaître la position Vrai/faux de tes CheckBox...
Tu as ça dans la FAQ VBA-Excel au chapitre Comment boucler sur les cases à cocher ?
Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub BoucleCheckBox_V01()
    Dim Obj As OLEObject
    For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.CheckBox Then _
            MsgBox Obj.Name & ": " & Obj.Object.Value
    Next Obj
End Sub

Précise ta demande

[epaminondas]

Bonjour ouskel'n'or,
Ma question est sans doute basique. Quand j'ai mon tableau sur la feuille de calcul(en l'occurence feuil3), si je veux regarder le résultat il faut que je fasse un stop sur mon programme pour le visualiser manuellement.Ensuite, je voudrais cocher certains chekbox pour faire un traitement. La boucle de vérification des chekbox, je l'ai.
Ce que je ne sais pas faire, c'est dans le cours du programme, passer à la visualisation de la feuille de calcul et, comme pour les userforms, que le programme attende la validation.
J'espère que je suis plus clair.
Merci d'avance pour ta réponse.

[ouskel'n'or]

A moins d'utiliser un userform ShowModal = false, je ne connais pas de méthode permettant d'intervenir sur une feuille de calculs en cours d'exécution de macro. Quoi que... Si tu souhaites modifier le contenu d'une cellule, non l'état d'un Checkbox, si tu es l'utilisateur de l'appli, si.... un bricolage pourrait peut-être te convenir mais il implique une gestion d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
On error resume next
     Result = Application.InputBox("Rien du tout", Type:=8)
     'pendant que tu es dans la feuille, tu modifies la cellule en te plaçant dans la barre de formule et quand tu sélectionnes ok, la procédure se poursuit
On error goto 0

A tout hasard et en fonction de ton besoin

[epaminondas]

C'est sioux mais ça ne convient pas.
Peut être faut-il que je te dise exactement ce que je veux faire.
Le tableau qui constitue la feuille de calcul est obtenu en allant chercher sur une base de données (sur intranet) des individus correspondant à certains critères. Quand on a ce tableau, on peut faire un choix sur les résultats et utiliser les résultats pour un traitement. Mais il faut avoir le tableau sur les yeux, et il peut faire 5 pages. C'est pourquoi je ne l'ai pas fait sortir sur un userform. Ce que je ne comprends pas, c'est à quoi sert de pouvoir mettre des contrôles sur une feuilles de calcul, si on ne peut pas s'en servir (on line)?
Il y a peut êtr une façon d'arriver à faire ce que je veux.
Aurais-tu des lumières ?
Merci

[ouskel'n'or]

Pourquoi n'affiches-tu pas le contenu des tes feuilles de calculs dans une liste box multi-colonnes si nécessaire et n'interviens-tu pas sur une sélection dans la listbox ?
J'explique :
Un Userform + 1 listbox + Autant de textbox que de colonnes renseignées dans les feuilles + 1 bouton et quelques bricoles qu'on verra après.

Tu renseignes ta liste avec ta plage de données.
Quand tu sélectionnes un nom ou un critère dans cette liste, tous les champs correspondant à ta feuille de calculs s'affichent dans tes textbox.

Besoin de modifier quelque chose ?
Tu le modifies dans le/les Textbox et un bouton Validation colle la modif dans la feuille.

Si tu as un pb pour réaliser ça, tu demandes
A+