Discussion :

[zenasmus]

bonjour aider moi a corriger cette erreur

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
20
Private Sub BtnRechercher_Click()
 
Dim Lign As Long
If TextSearch = "" Then Exit Sub
With Sheets("BDD")
                                     Lign = .Columns(2).Cells.Find(TextSearch).Row
 
Me.TextChambre = Cells(Lign, 1)
Me.TextNom = Cells(Lign, 2)
Me.TextPrenom = Cells(Lign, 3)
Me.TextMatricule = Cells(Lign, 4)
Me.TextFonction = Cells(Lign, 5)
Me.TextStructure = Cells(Lign, 6)
Me.TextDsejour = Cells(Lign, 7)
Me.TextFsejour = Cells(Lign, 8)
Me.CboStatut = Cells(Lign, 9)
 
End With
 
End Sub

merci
Gestion Hébergement.xlsm

[casefayere]

Bonjour,
je n'ai pas ouvert ton fichier, mais à la lecture

Code :

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

Lign = .Columns(2).Cells.Find(TextSearch).Row

, quand on utilise "Find" mieux vaut le faire avec une variable Object "Range" , soit

Code :

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

1
2
3
4
5
6
Dim Lign as Range
...
...
Set Lign =  .Columns(2).Find(TextSearch)
If Not Lign Is Nothing Then
......

ensuite, tu utilises un "With", si les cellules à remplir font partie de la feuille "Sheets("BDD")", il manque un "." avant "Cells"

Code :

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

1
2
3
4
Me.TextChambre = .Cells(Lign, 1)
Me.TextNom = .Cells(Lign, 2)
...
....

enfin, pour baliser ton code, dans le message, regardes ma signature, tu as un exemple, cliques sur "Anomaly"

[unparia]

Bonjour,
remarques :
- si aucune occurrence de la valeur de la variable TextSearch, Find retourne Nothing. Et la propriété Row de la cellule Nothing, ma foi ...
- je sais que VBA est très "permissif" et qu'il sait quand utiliser les propriétés par défaut, mais n'aime pas qu'on "joue" avec cette permissivité.
Toujours préciser expressément les propriétés concernées, qu'elles soient celles de textboxes ou de cellules est un comportement qui devrait être un réflexe.

[zenasmus]

bonjour mes amis j'ai essayer mais ça n'a pas marcher essayer d'ouvrir le fichier et voir ce qu'il faut faire merci pour votre aide

ps: je suis nouveau dans ce domaine et j’essaye d'apprendre merci pour votre compréhension.

[casefayere]

Bonjour,

j'ai essayer mais ça n'a pas marché

qu'est-ce qui ne "marche" pas,
de toute façon, ton fichier est impossible à ouvrir, montres les corrections que tu as essayées