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

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...

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

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...

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...

Jacky67 à dit:

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

Cliquez pour agrandir...

florent@77 à dit:

Jacky,

La comparaison me retourne Faux

Cliquez pour agrandir...

MsgBox "Valeur textbox: " & Me.TextBox4.Text & " - Longueur: " & Len(Me.TextBox4.Text) & vbLf & "Valeur cellule:   " & [a1] & " - longueur : " & Len([a1])

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...

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...

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...

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

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...

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...

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...