> 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
Graveuse laser SCULPFUN S9 Pro (10W, 0,01 mm, 400x410 mm) + support rotatif + lit laser + caisson ignifuge
325 € 500 € -35%
@Geekbuying
Lot de 2 panneau solaires flexibles ECO-WORTHY 130W
135,99 € 170 € -20%
@Geekbuying
Tablette 11 pouces Samsung Galaxy Tab A9+ (8 coeurs, 8 Go RAM, 128 Go stockage, WXGA+, Android 13, FR)
152,89 € 199 € -23%
@AliExpress
Mini PC TRIGKEY Key (Intel Alder Lake N150, 16 Go RAM, SSD 512 Go, WiFi 5/BT 5.0, Windows 11 Pro)
169 € 249 € -32%
@Amazon
Ecran PC incurvé 31.5 pouces Titan Army C32C1S (QHD, 1ms, 240 Hz)
289,99 € 400 € -28%
@Geekbuying
Ecran 24 pouces BenQ GW2490E (Full HD, IPS, 100 Hz)
89,00 € 119 € -25%
@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