Discussion :

[jonathanoudelet]

Bonjour à tous,

Voila, je souhaite chercher une valeur dans un classeur multi-onglet à la colonne C, et si elle existe, afficher la cellule.
J'ai pour le moment concocter quelquechose qui me dit si la valeur existe ou pas, mais je n'arrive pas à récupérer la valeur de la cellule pour l'afficher...
suis-je bien clair ?...

Voila mon 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
 
Private Sub CommandButton1_Click()
a = TextBox1.Value
For Each sh In Workbooks("Suivi Dénonciations7.xls").Worksheets
Set rng = sh.Range("C1:C65536").Find(a, sh.[C1], xlValues, xlWhole, xlByRows, xlPrevious)
If Not rng Is Nothing Then
rng.Offset(0, 3).Copy ActiveCell.Offset(0, 3)
Entire.Row.Activate
'c'est là qu'il faut que je rajoute mon code pour afficher la cellule trouvée...
MsgBox "le dossier existe"
Exit Sub
End If
Next
MsgBox "le dossier n'existe pas"
End Sub

Voila, en espérant avoir été clair...

Merci par avance.

John

[ilcocodrillo]

perso je ferai comme ça :

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
Private Sub CommandButton1_Click()
Dim a As String
Dim sh As Object
a = "MaValeur"
 
On Error GoTo GestionErreur
 
 
    For Each sh In Workbooks("Classeur1.xls").Worksheets
    sh.Columns(3).Find(a).Select
    MsgBox "le dossier existe " & sh.Name & " " & ActiveCell.Address & " " & ActiveCell.Value
    Exit Sub
    Next
 
GestionErreur:
 
    Select Case Err
        Case 91
        MsgBox "le dossier n'existe pas dans la feuille " & sh.Name
        Exit Sub
    End Select
 
End Sub

[jonathanoudelet]

C'est pas tout a fait cela mais ca se rapproche.
Je m'apercois que je me suis mal exprimé...

Donc, ce que je cherche à faire est;

J'ai une userform avec un textbox pour rentrer la valeur à rechercher,
En validant, ca va rechercher si la valeur est présente dans mon classeur,
puis afficher celle-ci.

par exemple; je cherche "AAA",
si "AAA" est dans l'onglet 3, il va m'afficher l'onglet 3 avec la cellule selectionnée sur "AAA"...
si "AAA" n'existe pas, alors il affiche une msgbox avec un ptit messaeg du style "couillon, il n'existe pas..."

Voila.

En tout cas je vous remerci pour votre aide

[ilcocodrillo]

ha beb si c'est que ça alors :

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
Private Sub CommandButton1_Click()
Dim a As String
Dim sh As Variant
a = "MaValeur"
'a = TextBox1.Value
For Each sh In Workbooks("classeur1.xls").Worksheets
Set rng = sh.Range("C1:C65536").Find(a, sh.[C1], xlValues, xlWhole, xlByRows, xlPrevious)
If Not rng Is Nothing Then
rng.Offset(0, 3).Copy ActiveCell.Offset(0, 3)
'Entire.Row.Activate
sh.Select
Columns(3).Find(a).Select
'c'est là qu'il faut que je rajoute mon code pour afficher la cellule trouvée...
MsgBox "le dossier existe"
Exit Sub
End If
Next
MsgBox "le dossier n'existe pas"
End Sub

[jonathanoudelet]

C'est génial, ca marche nikel.
Je te remercie beaucoup


ps: ce qui ce conçoit bien s'énonce clairement...ca vaut pour moi

[guillaumewmvba]

Bonjour,

je recherche à faire une action en vba bien similaire à jonathanoudelet :

->Dans mon fichier joint<-

J'aimerais que lors du clic sur la cellule A11 du folio "SOURCE" ( Valeur 3 ) on recherche cette même valeur 3 dans l'onglet "ITR" et quelle soit sélectionnée.

Merci par avance à celui ou celle qui prendra le temps de me répondre.