Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

RÉSOLU: Modifier macro de userfrom pour plusieurs feuilles

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Gen Rose
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Gen Rose

XLDnaute Impliqué
Supporter XLD
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
Code: 
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
Code: 
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
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
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😱
 
Vote positif 0 Vote négatif
Re : Modifier macro de userfrom pour plusieurs feuilles

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

Code: 
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
 
Vote positif 0 Vote négatif
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
Code: 
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?🙄
 
Vote positif 0 Vote négatif
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

Code: 
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😱
 
Vote positif 0 Vote négatif
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! 😱
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
744
un internaute
U
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
492
Dranreb
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
621
anthoYS
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
682
Phil69970
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
874
escudo
E
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
606
snoopy07
S
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
P
  • Question Question
XL 2016 Compteur avec incrémentation de la ligne suivante
Réponses
11
Affichages
502
Pascal THIDET
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…