Recherche valeur dans Onglet.

[TheProdigy]

Je voudrais rechercher une valeur d'un libellé selon la date qui représente le nom de l'onglet en question.
Prière de bien vouloir consulter mon fichier ci-joint.

Cijoint.fr - Service gratuit de dépôt de fichiers

Cordialement

 

[Paritec]

Re : Recherche valeur dans Onglet.

Bonsoir adilprodigy,
je viens de lire ton fichier, et tes explications sont ?? §§§ !!!!!
comment dire ?
Tu demandes de trouver un nom par rapport à une date et cela dans un onglet mais si on cherche, le 02 tu as cash je ne sais plus quoi et de 08 aussi alors tes explications sont à revoir je pense pour devenir compréhensible ensuite on pourra t'aider, enfin moi j'ai pas compris peut-être que d'autre comprendrons.
a+
Papou

 

[BOISGONTIER]

Re : Recherche valeur dans Onglet.

Bonsoir,

=RECHERCHEV($A2;INDIRECT("'"&DROITE(B$1;10)&"'!A3:B1150");2;FAUX)

JB

 

[Robert]

Re : Recherche valeur dans Onglet.

Bonsoir Adil, bonsoir le forum,


Ton fichier modifié en pèce jointe avec un bouton de commande Rechercher et le code ci-desous :

Private Sub CommandButton1_Click() 'bouton "Rechercher"
Dim oc As Worksheet 'déclare la variable oc (Onglet Cible)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
 
ActiveCell.Select 'enlève le focus au bouton
On Error Resume Next 'gestion des erreurs (si l'onglet n'existe pas)
Set oc = Sheets(Right(Sheets("OPCVM").Range("B1"), 10)) 'définit l'Onglet Cible
If Err <> 0 Then 'condition : si une erreur est provoquée (l'onglet nexiste pas)
    MsgBox "Onglet inexistant !" 'message
    Exit Sub 'sort de la procédure
End If 'fin de la condition
On Error GoTo 0 'fin de la gestion des errreurs
 
With Sheets("OPCVM") 'prend en compte l'onglet "OPCVM"
    For Each cel In .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellules de la colonne A (en partant de A2)
        Set r = oc.Columns(1).Find(cel, , xlValues, xlWhole) 'définit la Recherche r
        'si il existe au moint une occurrence de r dans la colonne A de l'Onglet Cible, récupère la valeur de la colonne B
        If Not r Is Nothing Then cel.Offset(0, 1).Value = r.Offset(0, 1).Value
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "OPCVM"
End Sub

Édition :

Oooops on s'est croisés... Bonsoir Papou, JB

 

[kjin]

Re : Recherche valeur dans Onglet.

Bonsoir,
Met les cellules B1 et C1 au format

"VL au "@

et entre directement
en B1:
08.04.2010
et en C1:
02.04.2011
Ensuite en B2

=INDEX(INDIRECT("'"&B$1&"'!B:B");EQUIV($A2;INDIRECT("'"&B$1&"'!A:A");0))

puis tire la formule vers le bas et vers la droite
A+
kjin

 

[TheProdigy]

Re : Recherche valeur dans Onglet.

Ohhh,

Merci à tous sans exception vos explications et réponses sont excellentes. J'opterai pour la solution de BOISGONTIER qui est très simple merci à tous.

Je suis très content.

Bonne journée!