Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Vba et recherchev

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Vilain
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Vilain

XLDnaute Accro
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
 
Trier par date Trier par votes
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...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Essai comme ça (tu adapteras) :
Code: 
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)"
 
Vote positif 0 Vote négatif
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 :
Code: 
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)"
 
Vote positif 0 Vote négatif
Re : Vba et recherchev

Bonjour Gillus, bonjour le forum,

Ooops une version corrigée...
Code: 
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)"
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
Microsoft 365 Récapituler comptes dettes
Réponses
3
Affichages
233
Seydina
S
  • Question Question
Microsoft 365 Macro vba envoi par mail
Réponses
9
Affichages
305
Nain porte quoi
R
  • Résolu(e)
XL pour MAC Créer un sous groupe à partir d'un groupe
2 3 4
Réponses
48
Affichages
2 K
rtlv17
R
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
521
sousou
C
  • Question Question
XL 2021 Formule rechercheV
Réponses
6
Affichages
247
CED_PEY
C
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
352
job75
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
438
gbinforme
G
M
  • Question Question
Autres remplir auto. l'objet de l'email avec nom PJ dans Outlook (et si pas de pj alors aucun objet)
2
Réponses
29
Affichages
1 K
TooFatBoy
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
599
TooFatBoy
B
  • Question Question
XL 2021 Base de données
Réponses
5
Affichages
701
Cousinhub
P
  • Résolu(e)
Microsoft 365 Grouper des données en fonction d'un mapping
Réponses
4
Affichages
157
patricko-13
P
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
687
Jaykerz
J
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
583
Gégé-45550
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
208
berru76
B
D
  • Question Question
XL 2021 Création automatique de lien hypertexte
Réponses
4
Affichages
213
Dimitry
D
  • Résolu(e)
XL 2019 Variables à utiliser dans 2 fichiers séparés
Réponses
14
Affichages
708
Titof06
C
  • Résolu(e)
XL 2016 Macro permettant d'automatiser le tri d'un tableau Excel et de différencier les lignes
Réponses
5
Affichages
252
Chris1263
C
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
314
Bodin44
B
S
  • Question Question
XL 2016 Conserver la police et couleur
Réponses
4
Affichages
225
SVI
S
D
  • Résolu(e)
XL 2016 Classeur en page web
2
Réponses
15
Affichages
644
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…