[RESOLU] Recherche valeur TextBox dans cellule

[maninwhite]

Bonjour à toutes et à tous.

J'ai une valeur 'texte" dans un TextBox et cette même valeur se trouve dans une feuille.

Comment puis je trouver la valeur de la TextBox dans la feulle et me placer dans la colonne correspondante à cette valeur?

Du type

If Textbox1.Value = valeur dans le tableau Then se placer dans la colonne correspondante à cette valeur

Merci

 

[fhoest]

Re : Recherche valeur TextBox dans cellule

Bonjour,
voici un petit exemple:
A+

 

[Banzai64]

Re : Recherche valeur TextBox dans cellule

Bonjour
Quelques modifications à ton code

Private Sub CommandButton1_Click()
'Cells.Select
On Error GoTo fin
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
MsgBox "la valeur se trouve dans la colonne: " & UCase(ActiveCell.Columns)
fin:
End Sub

 

[fhoest]

Re : Recherche valeur TextBox dans cellule

Bonjour,
merci pour la modif ,justement le select ne me plait pas dans le code;
Il faut également enlever le "S" de columns dans le msgbox.

😀
A+

 

[maninwhite]

Re : Recherche valeur TextBox dans cellule

Merci beaucoup à vous deux.

Ton code arche bien Banzai mais le soucis que j'ai c'est qu'il me sélectionne la cellule où se trouve le nom et non pas la colonne.

Pourquoi sélectionner la colonne?

J'ai une combobox dans laquelle s'affiche unb nom et je vais le chercher dans les colonnes d'une feuille
J'ai une combobox dans laquelle j'ai une date en format semaine et que je vais chercher dans les lignes de la feuille.

Au final le croisement de la recherche nom/n° de semaine me donnera la valeur de la cellule.

Merci

 

[Banzai64]

Re : Recherche valeur TextBox dans cellule

re
Une solution

Private Sub CommandButton1_Click()
'Cells.Select
On Error GoTo fin
Cells.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Columns.EntireColumn.Activate
MsgBox "la valeur se trouve dans la colonne: " & UCase(ActiveCell.Column)
fin:
End Sub

 

[maninwhite]

Re : Recherche valeur TextBox dans cellule

Non, ça me sélectionne toujours la cellule snif

 

[Banzai64]

Re : Recherche valeur TextBox dans cellule

re
Je persiste et signe

Chez-moi j'ai la colonne sélectionnée

 

[maninwhite]

Re : Recherche valeur TextBox dans cellule

Effectivement, petite erreur de manipulation de mon côté.

Encore un grand merci à toi

J'ai une autre question directement en accord avec ma première

J'ai donc réussi à trouver une colonne par rapport à une première combobox et essaye de faire la même chose avec une autre combobox mais trouver la ligne et ainsi trouver le croisement de la cologne et de la ligne des deux valeurs de la combobox.

Le but étant de remplir la cellule (croisement de la colonne et de la ligne des deux valeurs de la combobox.

J'ai donc utiliser ce code

'Cells.Select
On Error GoTo fin
Cells.Find(What:=TextBox_date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Columns.EntireColumn.Activate
UCase (ActiveCell.Column)

Cells.Find(What:=TextBox_date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Rows.EntireRow.Activate
UCase (ActiveCell.Row)
fin:

Mais cela ne marche pas, quelqu'un aurait une idée?
Merci

 

[Banzai64]

Re : Recherche valeur TextBox dans cellule

re
Comprends pas tout

peut-être

On Error GoTo fin
Cells.Find(What:=TextBox_Date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False) = "Valeur 1 + Valeur 2"

Remplace "Valeur 1 + Valeur 2" par l'opération que tu veux

 

[maninwhite]

Re : Recherche valeur TextBox dans cellule

Le premier code que tu m'as donné trouve parfaitement bien la valeur de ma combobox1 dans ma feuille (à savoir dans une colonne)

Je voudrais faire la même chose avec la valeur de ma combobox 2 mais cette fois ci la valeur est sur une ligne.

Au final la colonne et la ligne vont se croiser pour me donner la valeur d'une cellulle ex. b25

Et dans ce b25 je rentrerai une valeur

Au final le but c'est qu'à partir d'un formulaire rempli avec nom et date, je puisse mettre une crois dans la cellule pour dire que la personne était présente à telle ou telle date

Merci

 

[Banzai64]

Re : Recherche valeur TextBox dans cellule

Re

ceci devrait faire l'affaire

Private Sub CommandButton1_Click()
Dim Colonne As Integer
Dim Ligne As Integer

On Error GoTo fin
' recherche de la colonne

Colonne = Cells.Find(What:=TextBox_Date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Column


'recherche de la ligne

Ligne = Cells.Find(What:=TextBox_Date.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Row


MsgBox "intersection : " & Ligne & " / " & Colonne

fin:
End Sub

 

[Habitude]

Re : Recherche valeur TextBox dans cellule

Si j'ai bien compris, ceci devrait suffire

Private Sub CommandButton1_Click() 

with sheets("nomfeuille")
.cells(.Range(1:1).find(combobox1),.Range(A:A).find(combobox2)) = "X"
end with

End Sub

 

[maninwhite]

Re : Recherche valeur TextBox dans cellule

Banzai64

Merci pour ton code.
Dans la message box il m'indique la bonne valeur de la cellule mais j'aimerai me placer dedans et écrire X par exemple.

Habitude

Malheureusement ton code ne marche pas toute la partie

.cells(.Range(1:1).find(combobox1),.Range(A:A).find(combobox2)) = "X"

se met en rouge.

Merci à vous deux...

 

[Habitude]

Re : Recherche valeur TextBox dans cellule

Oui assez laborieux même

ca devrait être mieux

With Sheets("[COLOR="red"]Feuil1[/COLOR]")
.Cells(.Range("A:A").Find([COLOR="navy"]ComboBox2[/COLOR]).Row, .Range("1:1").Find([COLOR="navy"]ComboBox1[/COLOR]).Column) = "X"
End With

Attention tu dois modifier Feuil1

Aussi combobox2 et combobox1 à inverser au besoin.