Discussion :

[Chernobyl123]

Bonjour,
J'ai un code vba d'un formulaire de recherche que j'aimerai modifie afin d’afficher le contenu au lieu du numéro de la cellule.
code pris de cette tuto vidéo :

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim lastrow As Long
Dim str As String
Dim rng As Range, rng2 As Range
Dim firstcell As String
 
Set ws = Sheets("source")
lastrow = ws.Range("A" & Rows.Count).End(xlUp).Row
str = TextBox1.Value
 
Set rng = ws.Range("A1:A" & lastrow).Find(What:=str, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
 
If Not rng Is Nothing Then
    ListBox1.AddItem rng.Address
    firstcell = rng.Address
    Set rng2 = rng
 
    Do
        Set rng2 = ws.Range("A1:A" & lastrow).FindNext(after:=rng2)
        If Not rng2 Is Nothing Then
            If rng2.Address = firstcell Then Exit Do
            ListBox1.AddItem rng2.Address
        Else
            Exit Do
        End If
    Loop
 
Else
    Exit Sub
End If
 
End Sub

etant debutant sur vba et excel en general je ne sais pas comment m'y prendre : J'ai change ''coulmnheads'' a ''true'' et ''coulmncount'' a ''4'',comment faut-il faire pour montrer les valeurs au lieu des numéro des cases ?
Grace a @joe.levrai que je remercie infiniment pour son aide précieuse je sais qu'il faut utilise la propriété .Value (valeur "standard" stockée en interne par excel) ou .Text (valeur affichée sur la feuille de calcul) ,mais je sais pas a quoi devra ressemble le code et je ne sais pas si il faut l’intégré au code du bouton ''rechercher'' ou dans celui de la listbox et comment bien l'assimiler sans crée des erreurs dans le formulaire.

j'ai trouve ce code mais jsp comment m'y prendre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim maVar As String 
maVar = Range("A1").Comment.Shape.OLEFormat.Object.Text
If Not Range("A1").Comment Is Nothing Then

Je vous remercie en avance pour votre aide !
fichier source : VBA - Copie.xlsm

[Menhir]

Es-tu au courant que tu pourrais mettre ça en place en moins de 10 s en utilisant un filtre ?

[Chernobyl123]

Es-tu au courant que tu pourrais mettre ça en place en moins de 10 s en utilisant un filtre ?

comment ça ?
J'ai deja essaye avec la formule =recherchev et ce n'est pas précis et en plus il faut que ça soit sur le tableau de bord dans un formulaire et non pas sur la feuille ''source'' sinon a quoi bon tt ca
je vous invite a consulter le fichier joint !
mais si vous pouvez développer votre suggestion je reste de toute ouïe !

[Menhir]

comment ça ?

Tu sélectionnes toutes tes colonnes > Ruban données > Icone Filtrer
De petits bouton apparaissent dans les cellules de ta ligne d'entête.
En cliquant sur un de ces boutons, tu peux ne faire afficher que les lignes correspondant au critère donné de la colonne concernée.
Et ça ouvre le champ à une quantité considérable de possibilité de recherche.

Au final, tu obtiens dans ta feuille l'équivalent de l'image du résultat souhaité de ta demande.

et en plus il faut que ça soit sur le tableau de bord dans un formulaire et non pas sur la feuille ''source'' sinon a quoi bon tt ca

Bin... c'est justement la question que je pose : pourquoi faire tout ça alors qu'il existe une méthode beaucoup plus simple pour obtenir un résultat correspondant directement dans la feuille.

je vous invite a consulter le fichier joint !

Je t'invite à consulter les règles du forum : https://www.developpez.net/forums/d8...s-discussions/

[Chernobyl123]

Tu sélectionnes toutes tes colonnes > Ruban données > Icone Filtrer
De petits bouton apparaissent dans les cellules de ta ligne d'entête.
En cliquant sur un de ces boutons, tu peux ne faire afficher que les lignes correspondant au critère donné de la colonne concernée.
Et ça ouvre le champ à une quantité considérable de possibilité de recherche.

Au final, tu obtiens dans ta feuille l'équivalent de l'image du résultat souhaité de ta demande.


Bin... c'est justement la question que je pose : pourquoi faire tout ça alors qu'il existe une méthode beaucoup plus simple pour obtenir un résultat correspondant directement dans la feuille.


Je t'invite à consulter les règles du forum : https://www.developpez.net/forums/d8...s-discussions/

pourquoi faire tout ça alors qu'il existe une méthode beaucoup plus simple pour obtenir un résultat correspondant directement dans la feuille ?
parceque j'essaye de cree un tableau de bord contenant que des formulaires vba.

[Chernobyl123]

Es-tu au courant que tu pourrais mettre ça en place en moins de 10 s en utilisant un filtre ?

comme ca?