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
Je vous remercie par avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager