Discussion :

[lajojo6]

Bonjour,

Je ne connais pas grand choses sur les Macros.

J'aimerais savoir comment :
1 - Rechercher dans une plage de données (Feuille 1) des valeurs biens précises selon les colonnes et les lignes
2- Par la suite les copier
3 - Et en fin les coller dans un tableau déjà près (Feuille2)

Merci d'avance de votre réponse.
Cordialement.

[RyuAutodidacte]

Bonjour,
Une demande récente a été faite dans ce sens, donc faire une recherche,
De plus lorsque l'on débute, il est conseillé de passer par l'enregistreur de macro : voir ici
Cela permet d'obtenir une base de code près à l'emploi et que l'on peut présenter au forum afin de rectifier/améliorer les défauts ou problématiques
Pour mettre un code dans un post voir ma signature

[lajojo6]

Merci.

D'accord je vais essayer de faire un code qui marche et si j'ai des bugs je vous transmettrais.

Cordialement.

[lajojo6]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil7").Range("B10", "J16").FormulaLocal = "=INDEX(import!$B$6:$ZZ$65000;EQUIV($A10;import!$A$6:$A$65000;0);EQUIV(B$9;import!$B$5:$ZZ$5;0))"

Voilà le code que j'ai fais.
J'ai placé les deux feuilles de calcul (import et Feuil7) sur le même classeur. Mais quand j'exécute la macro, la formule est surligné en jaune. C'est qu'il y a alors une erreur que je ne vois pas !

Merci d'avance de votre réponse.

[RyuAutodidacte]

Bonjour,

si tu veux utiliser une formule en macro, il faut remplacer les ";" par des ","
afin d'éviter des erreurs d'écritures, tu peux mettre correctement ta formule sur la 1ère cellule concernée et une fois OK
tu sélectionne ta cellule contenant ladite formule, puis dans l'onglet "Développeur", fais apparaître la "fenêtre d'exécution" et écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Selection.FormulaLocal

Valide avec la touche "Retour" afin de récupérer ta formule prête pour VBA, MAIS … il est plutôt conseillé de mettre sa formule en anglais, donc tu écriras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Selection.Formula