RÉSOLU: Modifier macro de userfrom pour plusieurs feuilles

[Gen Rose]

Bonjour,

Youki a été assez aimable pour m'aider à intégrer un userform de recherche https://www.excel-downloads.com/threads/resolu-macro-pour-recherche-msgbox.181658/ dans mon document et comme je ne veux pas éterniser mon fil précédent et le monopoliser, je pose cette question au forum; comment adapter cette formule à une autre feuille et faire en sorte que le textbox fasse la recherche sur la fenêtre active?

Voici le code original qui fonctionne parfaitement sur la feuille1

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
If Len(TextBox1.Text) = 7 Then
On Error Resume Next
lig = Feuil1.[A2:A1000].Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
Cells(lig, 4).Select
If Err > 0 Then
lig = Feuil1.[A2:A1000].Find(Left(TextBox1, 3), LookIn:=xlValues, LookAt:=xlWhole).Row
Cells(lig, 4).Select
End If
End If
End Sub

J'ai tenté un début de solution mais je bloque

Private C As Worksheet
Private M As Worksheet
Private tabC As Variant
Private tabM As Variant

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
If Len(TextBox1.Text) = 7 Then
On Error Resume Next
Set C = Sheets("Personnes")
Set M = Sheets("Entreprise")
    tabC = C.Range("A2:A1000" & C.Range("A65536").End(xlUp).Row).Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
    Cells(lig, 4).Select
    If Err > 0 Then
    tabC = C.Range("A2:A1000" & M.Range("A65536").End(xlUp).Row).Find(Left(TextBox1, 3), LookIn:=xlValues, LookAt:=xlWhole).Row
    Cells(lig, 4).Select
End If
    tabM = M.Range("A2:A1000" & C.Range("A65536").End(xlUp).Row).Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
    Cells(lig, 4).Select
    If Err > 0 Then
    tabM = M.Range("A2:A1000" & M.Range("A65536").End(xlUp).Row).Find(Left(TextBox1, 3), LookIn:=xlValues, LookAt:=xlWhole).Row
    Cells(lig, 4).Select
End If
End If

End Sub

Je ne reçois aucune indication d'erreur; la recherche ne fonctionne tout simplement plus.
Merci pour votre aide

 

[Paritec]

Re : Modifier macro de userfrom pour plusieurs feuilles

Bonjour Geneviève78 le forum
pour travailler sur ta feuille active tu remplaces feuil1 par activesheet et le tour est joué
a+
papou😱

 

[Paritec]

Re : Modifier macro de userfrom pour plusieurs feuilles

Re geneviève78 le forum
il uy a deux feuil1
a+
papou😱

Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1)
If Len(TextBox1.Text) = 7 Then
On Error Resume Next
lig = activesheet.[A2:A1000].Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole).Row
Cells(lig, 4).Select
If Err > 0 Then
lig = activesheet.[A2:A1000].Find(Left(TextBox1, 3), LookIn:=xlValues, LookAt:=xlWhole).Row
Cells(lig, 4).Select
End If
End If
End Sub

 

[Gen Rose]

Re : Modifier macro de userfrom pour plusieurs feuilles

Oh-mon-dieu! 😱 Ok: trop simple.
Merci beaucoup Paritec! 😱 Ça fonctionne comme un charme maintenant!

 

[Paritec]

Re : Modifier macro de userfrom pour plusieurs feuilles

Re Geneviève le forum
content de te voir contente
a+
papou😱

 

[Gen Rose]

Re : Modifier macro de userfrom pour plusieurs feuilles

Dis-moi papou, pendant que je t'ai, je me permet une mini-question 🙂

J'ai cette formule que Youki m'a donné pour empêcher que les gens ferment le textbox

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Formule ne s'active pas.
Cancel = False
End Sub

Elle est sous la même macro du textbox mais elle ne s'active pas...une idée du bout qu'il me manque?🙄

 

[Paritec]

Re : Modifier macro de userfrom pour plusieurs feuilles

Re Geneviève78 le forum
bon alors déjà c'est la procédure pour la fermeture de l'userform et non du textbox c'est bien cela que tu souhaites?? si oui

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
Cancel = true
End Sub

cela empêche de fermer l'userform avec la croix de fermeture
a+
papou😱

 

[Gen Rose]

Re : Modifier macro de userfrom pour plusieurs feuilles

Splendide! 😀

C'est plus-que-parfait maintenant...mille mercis papou, tu es too much! 😱

 

[Paritec]

Re : Modifier macro de userfrom pour plusieurs feuilles

Re geneviève78 le forum
mon anglais étant ce qu'il est je vais essayé de traduire Too much !!! ( je blague)
a+
papou😱

 

[Gen Rose]

Re : Modifier macro de userfrom pour plusieurs feuilles

hihihi! Un peu plus je te répondais!
Ici à Montréal, c'est quasi un pré-requis le bilinguisme!

Une très belle journée à toi et encore merci pour ton aide et ta contagieuse bonne humeur! 😱