> Tous les forums > Forum Bureautique
 Excel 2016 rechercheV en VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TJA435
  Posté le 28/09/2023 @ 13:48 
Aller en bas de la page 
Astucien
Bonjour,

Dans une macro avec Excel 2016, sur une feuille, je voudrais récupérer des informations qui sont sur une autre feuille de mon classeur.

Je fais appel à la fonction RECHERCHEV mais je n’ arrive pas à la faire fonctionner.

Voici la macro :

'Cells(ligne, 12).FormulaLocal = "=RECHERCHEV(h2;sections!a:c;3;FALSE)"

Ligne = numéro de ligne qui peut varier de 2 à x

section = autre feuille (infos dans a2 :c13) dans laquelle je vais chercher les informations désirées qui sont dans la colonne 3 de cette feuille.

Je veux remplir Cells(ligne, 12) de la feuille en cours à partir de « h2 » de cette même feuille, que je n’ arrive pas à faire varier. (12 = colonne L)

A la place de « h2 » je voudrais mettre 'Cells(ligne, 8), mais ça ne marche pas. (8=colonne H)

Merci pour votre aide

Publicité
Boogie Palace
 Posté le 29/09/2023 à 12:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

salut TJA435

vu que tu saisies ta formule en français (FormulaLocal), tu dois mettre FAUX et non FALSE dans le dernier argument.
tu peux aussi mettre le chiffre 0 à la place, ça évite le problème de langue.

en procédant ainsi, la formule est saisie dans ta cellule, mais si tu souhaites uniquement y afficher le résultat, tu peux aussi faire :

Cells(ligne,12) = Application.VLookup([H2], Sheets("sections").[A:C], 3, 0)

à la place de Application, tu peux aussi mettre WorksheetFunction.
je crois que Application est plus pratique pour la gestion des erreurs.

TJA435
 Posté le 29/09/2023 à 13:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Boogle Palace,

Merci pour ta réponse.

Je voudrais faire évoluer "H2" en "H ligne" sinon pour toutes les lignes j' ai la valeur correspondante à H2.

Comment peut-on écrire en VBA "H ligne" ? si je mets Cells(ligne, 8), ça ne marche pas.

Merci pour ton aide.

Boogie Palace
 Posté le 29/09/2023 à 15:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

ah j'avais compris que "ligne" était une variable à laquelle tu avais déjà attribué une valeur.
en fait, tu voudrais récupérer une série de valeur sur plusieurs lignes ?
du coup (si j'ai bien compris) faudrait partir sur une boucle :

X = 'ici tu indiques la ligne de départ de ta zone de résultats
Y = 'ici tu indiques la dernière ligne de ta zone de résultats
For ligne = X to Y
Cells(ligne,12) = Application.VLookup(Range("H"&ligne), Sheets("sections").[A:C], 3, 0)
Next ligne

attention, ça suppose que ta zone de résultats commence sur la même ligne que ta zone de recherche.
faut peut-être adapter, là je le fais à l'aveugle, sans voir le fichier.
mais l'idée est là, faire une boucle où la variable est le numéro de la ligne.

TJA435
 Posté le 30/09/2023 à 18:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour Boogle Palace,

Impeccable.

Merci beaucoup.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Mini PC Beelink S13 Office (Intel Alder Lake N150, 16 Go RAM, SSD 500 Go, WiFi6/BT 5.2, Windows 11 Pro)
189 € 259 € -27%
@Amazon
Mini PC ACEMAGICIAN Vista V1 (Twin Lake N150, 16 Go RAM, SSD 512 Go, Windows 11)
179,55 € 249 € -28%
@Amazon
Ecran 27 pouces Arzopa (QHD, IPS, 180 Hz)
132,76 € 119 € --12%
@Amazon
Crêpière Crep’party Tefal
38,00 € 69,99 € -46%
@Amazon
Lot de 6 déodorants Homme L'Oréal Men Expert Hydra Energetic Extreme
13,94 € 25 € -44%
@Amazon
Distributeur pour ruban adhésif Scotch Clip & Twist
6,75 € 9,99 € -32%
@Amazon

Sujets relatifs
Excel 2016 vba objet range
Excel 2016 forçage de zone en fonction d'une date
Sauvegarde avec excel en vba
Ecriture cellule excel en vba
Excel 2016 vba fonction Range
Excel 2016 erreur 1004 dans vba
Excel 2016 impression en pdf
Excel 2016 convertir zones "textes" en numérique
Excel 2016 en-tête et pied de page
Excel 2016 fonction RECHERCHEV
Plus de sujets relatifs à Excel 2016 rechercheV en VBA
 > Tous les forums > Forum Bureautique