VBA ACCESS - Affichage conditionnel objet

Fermé

romain220687 - 30 avril 2009 à 10:44
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 30 avril 2009 à 11:03

Bonjour,

Dans mon formulaire Access, j'ai un menu déroulant NbBornes ou on peut choisir le nombre de bornes de tranches d'âges à choisir (1 à 5).
En fonction du nombre choisi dans NbBornes j'affiche le même nombre de menus déroulants qui délimiteront les âges des bornes. Les menus déroulants où l'on choisira les bornes sont nommées Borne1, Borne2, ... Borne5

Mais le problème, c'est que je souhaiterais faire quelque chose qui ressemblerai à cette logique :

dim i as integer
dim nomborne as string
For i=1 To Forms!PTranchesAgeBassin!NbBornes
nomborne="Borne"&Forms!PTranchesAgeBassin!NbBornes
nomborne.visible=true
Next

Dans le but de pouvoir déclarer visible chaque borne en fonction du nombre de bornes choisies (ex si on a choisit 3 à NbBornes, on affichera Borne1, Borne2 et Borne3
Seulement, il ne semble pas possible de faire Borne(i).visible ni de concaténer donc je ne vois pas comment je pourrais faire ^o)

Merci d'avance
Romain

A voir également:

VBA ACCESS - Affichage conditionnel objet
Vente objet occasion entre particulier - Guide
Affichage conditionnel excel - Guide
Affichage double ecran - Guide
Windows 11 affichage classique - Guide
Acer quick access - Forum Logiciels

1 réponse

Réponse 1 / 1

LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
30 avril 2009 à 11:03

Puisque tu utilises un compteur, pourquoi écris-tu

nomborne="Borne"&Forms!PTranchesAgeBassin!NbBornes

et non pas
nomborne="Borne"&i

Discussions similaires

"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...

manon

C'est quoi le runtime Access ?

adele