Reconstruction d'une variable

Version imprimable

Bonjour

Après de nombreuses heures à faire des recherches sur les forums et moult essaie infructueux je Viens vous demander votre aide

j'essaie de reconstruire une variable dans une boucle For
je vous mais un bout de programme je pense que cela sera plus parlant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    For i = 1 To 10
        If Controls("CheckBox" & i) = True Then
            LigneRecherche = "LigneRecherche" & i
            LigneRecherche = Controls(LigneRecherche)
            CelluleNCalcul = "F" & LigneRecherche
            RecherchePatient.TextBoxNCalcul.Value = Sheets(1).Range(CelluleNCalcul).Value
            RecherchePatient.TextBoxNom.Value = Sheets(1).Range("G" & LigneRecherche).Value
            RecherchePatient.TextBoxPrenom.Value = Sheets(1).Range("H" & LigneRecherche).Value
            RecherchePatient.TextBoxDateDeNaissance.Value = Sheets(1).Range("I" & LigneRecherche).Value
            RecherchePatient.LabelLigne.Visible = True
            RecherchePatient.LabelLigne.Caption = "Ligne " & LigneRecherche
            RecherchePatient.CommandButtonImprimer.Visible = True
            ActiveWorkbook.Close 'Fermeture dee l'excel
            Me.Hide
            RecherchePatient.Show
        Else
        End If
    Next i

Je vous remercie par avance

30/08/2022, 22h42
licardentaistor

qu'est ce qui ne marche pas? que veux tu faire exactement ?
30/08/2022, 22h53
Leromu76

Se qui ne fonctionne pas c'est ma variable LigneRecherche
a la place d'avoir la valeur de la variable j'obtient "LigneRecherche"
j'ai même essayer avec la fonction decaler pour supprimer les guillemets mais en vain

Bonjour,

Quand on débogue il est très utile de multiplier les variables et de passer en mode pas à pas. Avec [Ctrl] + [F9] tu peux voir le contenu de tes variables au fur et à mesure
Code:

1 2 3 4 5 6 7 8 9 For i = 1 To 10 If Controls("CheckBox" & i) = True Then LigneRecherche = "LigneRecherche" & i LigneRecherche = Controls(LigneRecherche) CelluleNCalcul = "F" & LigneRecherche ... Else End If Next i
Si je lis ce que tu as écrit :
Quand i=1 (cela évoluera jusqu'à 10)
Tu mets dans LigneRecherche le texte "LigneRecherche1" ensuite
Tu mets dans LigneRecherche la valeur du control ("LigneRecherche1") ensuite
Tu mets dans la variable "CelluleNCalcul"... "F" et valeur du control ("LigneRecherche1")

Bon je ne sais pas ce que tu cherches à avoir comme valeur (ce serait bien que tu l'indiques), ni si tu as un control qui s'appelle : LigneRecherche1, LigneRecherche2, LigneRecherche3 ... LigneRecherche10, j'espère que oui et que nous diras ce que c'est comme contrôle

Je suppose que ta variable LigneRecherche est déclarée, tu nous dis comme quoi

31/08/2022, 10h30
Leromu76

excusez-moi si je n'ai mis assez de précision

j'ai une base de donné avec différents noms

je fais une recherche et je mets les lignes où c'est nom on était trouvé dans des variables déclarées en string

exemple :
- le premier nom "MARTIN" se trouve a la ligne 10 je mets la valeur dans Ligne Recherche1
- le deuxième nom "MARTIN" se trouve à la ligne 20 je mets la valeur dans Ligne Recherche2
Etc.

ensuite je les affiche dans un userform et je coche le checkbox correspondant a la personne que je recherche

puis dans la vien ma programmation en for qui ne fonctionne pas
pour afficher diverses valeurs correspondant à la personne sélectionner

j’espère être clair dans mes explication
01/09/2022, 14h09
Igloobel

Oui c'est plus clair mais encore des questions

Je reformule pour voir si j'ai bien compris

Il y a une Base données dans laquelle dans une colonne (quelque part : il me faudrait le nom de la colonne (A, B, C ...)) on a les noms des personnes.

Je suppose que tu saisis dans un userform ou un InputBOX le nom

Et tu veux faire apparaître tous les noms et les prénoms que tu auras trouvé dans ta base avec la possibilité de sélectionner le bon Nom

Dis-moi si j'ai bien tout pigé ou pas

Mes questions :

1°) ta base de données comporte combien de personnes et elle est présente dans quelle feuille (nom de la feuille)

2°) Peux-tu montrer (capture écran) la structure de ta Base de données, sans les informations juste la structure

3°) Ta Base de données Est-elle sous forme de tableau structuré

4°) Est-ce un problème d'ajouter une colonne à ta base de données (à la fin)

5°) J'avoue que même en faisant des efforts je ne comprends pas cette phrase

Citation:

Envoyé par Leromu76

puis dans la vien ma programmation en for qui ne fonctionne pas

En attendant ton retour
02/09/2022, 20h00
Valtrase

Citation:

Envoyé par Leromu76

excusez-moi si je n'ai mis assez de précision

j'ai une base de donné avec différents noms

je fais une recherche et je mets les lignes où c'est nom on était trouvé dans des variables déclarées en string

exemple :
- le premier nom "MARTIN" se trouve a la ligne 10 je mets la valeur dans Ligne Recherche1
- le deuxième nom "MARTIN" se trouve à la ligne 20 je mets la valeur dans Ligne Recherche2
Etc.

ensuite je les affiche dans un userform et je coche le checkbox correspondant a la personne que je recherche

puis dans la vien ma programmation en for qui ne fonctionne pas
pour afficher diverses valeurs correspondant à la personne sélectionner

j’espère être clair dans mes explication

Pour faire cela utilise plutôt une variable tableau
Donc cela donne :
exemple :
- le premier nom "MARTIN" se trouve a la ligne 10 je mets la valeur dans tabRecherche(1)
- le deuxième nom "MARTIN" se trouve à la ligne 20 je mets la valeur dans tabRecherche(2)
Etc.
06/09/2022, 09h50
Igloobel

1 pièce(s) jointe(s)

Bonjour,

En réflechissant à ton problème :

Citation:

Envoyé par Leromu76

exemple :
- le premier nom "MARTIN" se trouve à la ligne 10 je mets la valeur dans Ligne Recherche1
- le deuxième nom "MARTIN" se trouve à la ligne 20 je mets la valeur dans Ligne Recherche2
Etc.

ensuite je les affiche dans un userform et je coche le checkbox correspondant à la personne que je recherche

Je me suis dit que ton problème se résout par l'emploi d'une ListBox !

Pièce jointe 624936

Il te faudra, pour avoir un affichage comme montré ci-dessus, modifier les 2 paramètres entouré en rouge. Ensuite tu coches une ou deux ou plus personnes voulues

Bien évidemment dans ton cas tu chargeras la Listbox par additem dans une simple boucle for

Tu me dis si cela te convient ou pas.

A bientôt