Microsoft 365 selectionner une cellule en fonction d'un texte d'une textbox

Créer une discussion
Répondre

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
F

florent@77

XLDnaute Junior
Bonjour à tous,

Je reviens vers vous après une longue absence mais je bloque depuis quelques jours sur une macro depuis que je suis passé en 365
j'ai un userform avec quelques Textbox qui fonctionne très bien

Maintenant je souhaite sélectionner la cellule qui corresponds à ma textbox4 mais malgré tout ce que j'ai pu voir sur le forum d'ici et d'ailleurs , je n'y arrive pas

Avez vous une idée de ce qui coince ?
Merci pour votre retour

VB: 
Private Sub CommandButton1_Click()

Dim rechcell As String
Dim x, y As Integer

Sheets("Ref UO").Select

rechcell = Me.TextBox4.Value

Cells.Find(rechcell, , xlValues, xlWhole).Activate

x = ActiveCell.Row

y = ActiveCell.Column

Cells(x, y + 1).Select

End Sub
 
Trier par date Trier par votes
florent@77 à dit:
Maintenant je souhaite sélectionner la cellule qui corresponds à ma textbox4 mais malgré tout ce que j'ai pu voir sur le forum d'ici et d'ailleurs , je n'y arrive pas

Avez vous une idée de ce qui coince ?
Merci pour votre retour

[
Cliquez pour agrandir...
Bonjour,
Essaye comme ceci
VB: 
Private Sub CommandButton1_Click()
    Dim rechcell As Object, Msg As String
    Sheets("Ref UO").Select
    Set rechcell = Cells.Find(Me.TextBox4, , xlValues, xlWhole)
    If rechcell Is Nothing Then Msg = Me.TextBox4 & " non présent."
    If Me.TextBox4 = "" Then Msg = "TextBox4 non renseigné."
    If Msg <> "" Then
        MsgBox Msg, , "Information"
    Else
        rechcell.Activate
        'ou  activer la cellule à droite
        'rechcell.Offset(, 1).Activate
    End If
End Sub
 
Vote positif 0 Vote négatif
Jacky67 à dit:
Bonjour,
Essaye comme ceci
VB: 
Private Sub CommandButton1_Click()
    Dim rechcell As Object, Msg As String
    Sheets("Ref UO").Select
    Set rechcell = Cells.Find(Me.TextBox4, , xlValues, xlWhole)
    If rechcell Is Nothing Then Msg = Me.TextBox4 & " non présent."
    If Me.TextBox4 = "" Then Msg = "TextBox4 non renseigné."
    If Msg <> "" Then
        MsgBox Msg, , "Information"
    Else
        rechcell.Activate
        'ou  activer la cellule à droite
        'rechcell.Offset(, 1).Activate
    End If
End Sub
Cliquez pour agrandir...
Bonjour Jacky,
merci pour ta solution mais ça ne fonctionne pas
cela me dit que le contenu de la textbox4 est non présente systématiquement
j'ai l'impression que cela ne prends pas en compte le texte dans la textbox4, qui est alimenté par une autre macro

cordialement
Florent
 
Vote positif 0 Vote négatif
florent@77 à dit:
Bonjour Jacky,
merci pour ta solution mais ça ne fonctionne pas
cela me dit que le contenu de la textbox4 est non présente systématiquement
j'ai l'impression que cela ne prends pas en compte le texte dans la textbox4, qui est alimenté par une autre macro

cordialement
Florent
Cliquez pour agrandir...
Re...
Sans le classeur, je dirais faire un test en début de macro

msgbox Me.TextBox4.value= ==>ici mettre en dur l'adresse de la cellule recherchée
exemple==> MsgBox Me.TextBox4.Text = Feuil1.[a1].Text
La comparaison devrait retourner Vrai ou Faux
 
Vote positif 0 Vote négatif
florent@77 à dit:
Jacky,

La comparaison me retourne Faux
Cliquez pour agrandir...
Re...
Toujours sans classeur.....😡
C'est que les deux textes ne sont pas strictement identique
Tester en début de macro, [a1] étant la cellule à comparer dans l'exemple(à adapter)
VB: 
MsgBox "Valeur textbox: " & Me.TextBox4.Text & " - Longueur: " & Len(Me.TextBox4.Text) & vbLf & "Valeur cellule:   " & [a1] & " - longueur : " & Len([a1])
 
Vote positif 0 Vote négatif
Jacky67 à dit:
Re...
Toujours sans classeur.....😡
C'est que les deux textes ne sont pas strictement identique
Tester en début de macro, [a1] étant la cellule à comparer dans l'exemple(à adapter)
VB: 
MsgBox "Valeur textbox: " & Me.TextBox4.Text & " - Longueur: " & Len(Me.TextBox4.Text) & vbLf & "Valeur cellule:   " & [a1] & " - longueur : " & Len([a1])
Cliquez pour agrandir...
Jacky,
j'ai fait classeur exemple car mon fichier d'origine est assez conséquent
et je viens de me rendre compte que ta macro fonctionne si je ne fais pas de "filtre' juste avant de remplir mes textboxs
par contre ça ne trouve rien si je filtre pour sélectionner ma ligne en fonction de mots clés
 

Pièces jointes

Vote positif 0 Vote négatif
florent@77 à dit:
Jacky,
j'ai fait classeur exemple car mon fichier d'origine est assez conséquent
et je viens de me rendre compte que ta macro fonctionne si je ne fais pas de "filtre' juste avant de remplir mes textboxs
par contre ça ne trouve rien si je filtre pour sélectionner ma ligne en fonction de mots clés
Cliquez pour agrandir...
et en effet les 2 textes ne sont pas identiques mais je ne vois pas pourquoi
encore merci de t'obstiner avec moi sur ce pb
 
Vote positif 0 Vote négatif
florent@77 à dit:
et en effet les 2 textes ne sont pas identiques mais je ne vois pas pourquoi
encore merci de t'obstiner avec moi sur ce pb
Cliquez pour agrandir...
Re..
Je n'éprouve aucune difficulté en ajoutant
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Il est évident que dans ce code la recherche se fait sur la feuille

Dans le code précèdent
VB: 
Private Sub CommandButton1_Click()
Dim rechcell As Object, Msg As String
    Sheets("feuil1").Select
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    Set rechcell = Cells.Find(UserForm1.TextBox4, , xlValues, xlWhole)
    If rechcell Is Nothing Then Msg = Me.TextBox4 & " non présent."
    If Me.TextBox4 = "" Then Msg = "TextBox4 non renseigné."
    If Msg <> "" Then
        MsgBox Msg, , "Information"
    Else
        rechcell.Activate
        'ou  activer la cellule à droite
        'rechcell.Offset(, 1).Activate
    End If
End Sub
 
Vote positif 0 Vote négatif
Jacky67 à dit:
Re..
Je n'éprouve aucune difficulté en ajoutant
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Il est évident que dans ce code la recherche se fait sur la feuille

Dans le code précèdent
VB: 
Private Sub CommandButton1_Click()
Dim rechcell As Object, Msg As String
    Sheets("feuil1").Select
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
    Set rechcell = Cells.Find(UserForm1.TextBox4, , xlValues, xlWhole)
    If rechcell Is Nothing Then Msg = Me.TextBox4 & " non présent."
    If Me.TextBox4 = "" Then Msg = "TextBox4 non renseigné."
    If Msg <> "" Then
        MsgBox Msg, , "Information"
    Else
        rechcell.Activate
        'ou  activer la cellule à droite
        'rechcell.Offset(, 1).Activate
    End If
End Sub
Cliquez pour agrandir...
Re..
le filtre se fait dans la listbox en fonction du texte que tu entre dans la textbox1 et non sur la feuille
ce qui fait qu'il ne trouve toujours pas la cellule
 
Vote positif 0 Vote négatif
florent@77 à dit:
Re..
le filtre se fait dans la listbox en fonction du texte que tu entre dans la textbox1 et non sur la feuille
ce qui fait qu'il ne trouve toujours pas la cellule
Cliquez pour agrandir...
RE..
Cela n'a aucune incidence sur la recherche dans la feuille
Avec le code du post #10
La cellule sélectionnée sur la feuille est bien celle qui à la valeur de la texbox4
Ce code ne fait rien d'autre
 
Vote positif 0 Vote négatif
Jacky67 à dit:
RE..
Cela n'a aucune incidence sur la recherche dans la feuille
Avec le code du post #10
La cellule sélectionnée sur la feuille est bien celle qui à la valeur de la texbox4
Ce code ne fait rien d'autre
Cliquez pour agrandir...
Re..
La recherche dans le userform me permet d'isoler la ligne pour pouvoir agir dessus
la selection du textbox4 permet de me situer sur la feuille et faire des corrections sur les 4 dernières cellules de ma ligne
mais même dans mon fichier Monexemple , qui est une version simplifié , cela ne fonctionne pas sur mon office 365 après isolation des lignes avec un mot clé dans la textbox1 recherche.
Pour que cela fonctionne , il faut que je supprime le mot clé.
j'aurais aimé que ça fonctionne malgré les mots clés

En tout cas merci pour votre aide, cela m'a permis d'avancer

bien cordialement
Florent
 
Vote positif 0 Vote négatif
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

piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
642
piga25
piga25
N
  • Résolu(e)
Microsoft 365 Format date d'une textbox vers une cellule
Réponses
8
Affichages
726
ChTi160
ChTi160
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
757
dadu35
D
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
688
Francky79
F
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
937
bérylion
B
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
769
escudo
E
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
656
crocrocro
C
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
584
AtTheOne
AtTheOne
N
  • Question Question
XL 2016 Chercher une valeur à partir d'une variable
Réponses
2
Affichages
401
ninos06
N
Dudu2
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
Dudu2
gh4
  • Question Question
XL 2010 conversion en nombre depuis vba
Réponses
2
Affichages
805
gh4
gh4
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
J
  • Question Question
XL 2016 Code VBA pour selectionner une ou plusieurs lignes en fonction du contenue (chaine de caractère) d'une cellule
Réponses
9
Affichages
3 K
Mika2705
M
CGU2022.
  • Résolu(e)
XL 2013 changer la valeur d'une plage en fonction du texte d'une cellule
Réponses
7
Affichages
833
Staple1600
Staple1600
R
  • Question Question
Microsoft 365 Debut d'une macro en fonction d'une cellule varible
Réponses
9
Affichages
846
Phil69970
Phil69970
Etoto
  • Résolu(e)
Microsoft 365 Code VBA qui renvoie une matrice à partir d'un liste à cocher au lieu d'une cellule
Réponses
5
Affichages
961
yal
Y
C
  • Question Question
XL 2013 Récupérer la valeur d'une cellule dans une Textbox
2
Réponses
18
Affichages
4 K
C-LAKATA
C
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
1 K
gaby.jvx
G
T
  • Résolu(e)
Microsoft 365 Conditionner l'accès à une page d'un multipage
2
Réponses
26
Affichages
3 K
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Effacer une même plage de cellule sélectionnée sur plusieurs feuille
Réponses
6
Affichages
1 K
ShrekL
S
Retour