UserForm VBA possible de le rendre dynamique?

Résolu/Fermé

PacoE Messages postés 36 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 23 août 2011 - 6 mai 2008 à 12:30
PacoE Messages postés 36 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 23 août 2011 - 2 juil. 2008 à 22:58

Bonjour,

Je suis en train de construire un UserForm avec excel et vba. J'aimerais en fait que les intitulés de mes Checkbox prennent pour valeur les noms des feuilles de mon classeur (ou une liste de valeurs contenu dans le classeur peu importe) et que lorsque j'ajoute, supprime ou renomme une feuille (ou que je modifie ma liste) mon userform s'adapte à ces paramètres quand j'execute mon programme.

J'espère que j'ai été clair, j'en suis pas sûr du tout.
en gros : est-il possible de paramétrer un UserForm de façon dynamique. Si oui comment? HELP!!!

Un grand merci d'avance (très grand le merci)

A voir également:

UserForm VBA possible de le rendre dynamique?
Tableau croisé dynamique - Guide
Liste déroulante dynamique excel - Guide
Comment rendre un fichier moins lourd - Guide
Le nom du champ de tableau croisé dynamique n'est pas valide - Forum Excel
Tableau Croisé Dynamique ✓ - Forum Excel

2 réponses

Réponse 1 / 2

HardyPetit
2 juil. 2008 à 10:18

Bonjour,

Creer un userform avec 3 ComboBox nommées
CB_1; CB_2; CB_3
Ce petit code montre comment parametrer un controlbox (ComboBox)
Private Sub UserForm_Initialize()
Dim i as integer
For i = 1 To 3
If Me.Controls("CB_" & i).Text = "" Then Me.Controls("CB_" & i).Visible = False
Next i
End Sub

Réponse 2 / 2

PacoE Messages postés 36 Date d'inscription jeudi 17 janvier 2008 Statut Membre Dernière intervention 23 août 2011 3
2 juil. 2008 à 22:58

En quasiment deux mois j'ai réussit me débrouiller autrement, mais bon, mieux vaut tard que jamais, ca me servira surement une autre fois. En tout cas Merci!

++

Discussions similaires

Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport

Bonjour,
tous les mois je fais des indicateurs sécurité et ce mois ci j'ai un problème : je mets à jour ma base de donnée et ensuite je mets à jour les tableaux croisés dynamiques
celà fonctionne pour presque tous mes tableaux sauf pour 2 où la réponse est la suivante :
impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant
je n'arrive pas à trouver l'erreur que j'ai pu commetre
merci de votre aide

Nom de champs du tableau croisé dynamique non valide

Bonjour à tous,

Je suis en train d'analyser les réponses reçues à un questionnaire sur Excel en en faisant un tableau croisé dynamique ; seulement, au moment de cliquer sur ok, Excel m'affiche le fameux "le nom du champ du tableau croisé dynamique n'est pas valide. Pour créer un rapport de tableau croisé dynamique, vous devez utiliser les données sous forme de liste avec des étiquettes de colonnes. Si vous changez le nom d'un talbeau croisé dynamique, vous devez taper un nouveau nom pour le champs".

Sauf que j'ai déjà nommé toutes les colonnes, nommé le champs (le tableau entier), enlevé toutes les cases vides (en cherchant sur les forums j'ai constaté qu'en gé...

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Erreur "Le nom du champ du tableau croisé dynamique n'est pas valide"

Bonjour à tous,

Tous les mois je mets à jour un tableau de suivi qui est lié à des TCD cependant ce mois-ci je ne parviens pas à mettre à jour tous mes TCD.
En effet, quand je clique sur 'Actualiser tout", le message d'erreur (cf intitulé) apparaît.
J'ai essayé toutes les astuces trouvées sur les forums (intitulé en doublons, colonne ou ligne vide, formule dans les entêtes, fusions, ...) mais rien ne fonctionne.

Voici les caractéristiques de mon tableau (que je ne peux pas communiquer pour cause de confidentialité) :

- Ligne 1 : TITRE avec des fusions
- Ligne 2 : SOUS-TITRE avec des fusions
- Les autres lignes comporten...