Vba et recherchev

[Vilain]

Bonjour,
Je rencontre un problème sur un fichier professionnel.
Je m'explique
Au début de ma macro, j'ai une inputbox. La valeur saisi est ma variable. Je crée un onglet avec le nom saisi dans la box. Comment faire une recherchev dans cette onglet (sans le "nommer" puisque le nom change a chaque fois)?
Merci pour votre aide

 

[Robert]

Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Tu crées un onglet avec le nom saisi dans la box. Donc tu peux ensuite le nommer en utilisant la variable non ? Sans voir ton fichier ou ta macro difficile de t'aider davantage...

 

[Vilain]

Re : Vba et recherchev

Ma formule est la suivante :
=vlookup(RC[-1], 'CM9'!R2C6:R24C11,6,False))
Comment changer le 'CM9' en utilisant ma variable ?
CM9 est la valeur de ma variable définit grâce a la box.
Merci d'avance

 

[Robert]

Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Essai comme ça (tu adapteras) :

Dim ong As String 'déclare la variable ong
ong = InputBox("Tapez le nom de l'onglet.", "ONGLET") 'définit la boîte d'entrée ong
'place la formule
Range("ta_cellule").FormulaR1C1 = "=VLOOKUP(RC[-1]," & ong & "!RC[-1]:R[1]C,2,FALSE)"

 

[Vilain]

Re : Vba et recherchev

Merci beaucoup, c'est ce que je cherchais depuis 2 jours !

 

[Robert]

Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Un petit test de vérification peu s'avérer efficace... Je te propose de modifier le code comme ça :

Dim ong As String 'déclare la variable ong (ONGlet)
Dim x As Byte 'déclare la variable x (incrément d'onglet)
 
début: 'étiquette
ong = InputBox("Tapez le nom de l'onglet.", "ONGLET") 'définit la boîte d'entrée ong
For x = 1 To Sheets.Count 'boucles sur tous les onglets du classeur
    If Sheets(x).Name = ong Then GoTo suite 'si le nom de l'onglet correspond à ong, va à l'étiquette "suite"
Next x 'prochain onglet de la boucle
MsgBox "Il n'existe pas d'onglet correspondant ! Veuillez recommencer." 'message
GoTo début 'va à l'étiquette "début"
 
suite: 'étiquette
'place la formule
Range("ta_cellule").FormulaR1C1 = "=VLOOKUP(RC[-1]," & ong & "!RC[-1]:R[1]C,2,FALSE)"

 

[Robert]

Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Ooops une version corrigée...

Dim ong As String 'déclare la variable ong (ONGlet)
Dim x As Byte 'déclare la variable x (incrément d'onglet)
début: 'étiquette
ong = InputBox("Tapez le nom de l'onglet.", "ONGLET") 'définit la boîte d'entrée ong
If ong = "" Then Exit Sub 'si boîte d'entrée non renseignée, sort de la procédure
For x = 1 To Sheets.Count 'boucles sur tous les onglets du classeur
    If Sheets(x).Name = ong Then GoTo suite 'si le nom de l'onglet correspond à la ong, va à l'étiquette "suite"
Next x 'prochain onglet de la boucle
MsgBox "Il n'existe pas d'onglet correspondant ! Veuillez recommencer." 'message
GoTo début 'va à l'étiquette "début"
suite: 'étiquette
'place la formule
Range("ta_cellule").FormulaR1C1 = "=VLOOKUP(RC[-1]," & ong & "!RC[-1]:R[1]C,2,FALSE)"