Etirer une formule sur la droite Macro

Bonjour,

Je reviens vers vous pour adapter une ligne de code formidable qui permet d'intégrer dans une colonne n'importe quelle formule (ici, recherche V sur colonne B) jusqu'à la dernière cellule de la colonne d'une base de données.

Code:

---

Range("B5:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-1],STRUCT,6,FALSE)"

---

Mon problème est que je voudrais faire la même chose mais sur la 1ere ligne de ma base de donnée. l'objectif étant d'étirer ma formule de la cellule B1 à la dernière cellule de la ligne 1 de la base de données. Je tente d'adapter le code mais ça bug systématiquement (remplacement de: End(x1up) par End(x1to left), de Row par Column, de "B5:B" par "B1:1"..........

Si quelqu'un avait une idée pour adapter ce code ?...

M75

Citation:

---

Envoyé par morgan75

Mon problème est que je voudrais faire la même chose mais sur la 1ere ligne de ma base de donnée. l'objectif étant d'étirer ma formule de la cellule B1 à la dernière cellule de la ligne 1 de la base de données.

---

Ce sera relativement facile à faire lorsque tu auras répondu à la question suivante :
Qu'est-ce qui indique la limite à droite de ta base de données ?

Par exemple, pour ta première macro, la limite de ta base de données vers le bas était la dernière cellule non vide de la colonne A.
Il faudrait une balise équivalente pour la limite à droite.

A la main c'est tout aussi rapide.

Je sélectionne de la cellule A1 à Z1 par exemple. Ensuite Ctrl + d et la formule en A1 est copiée jusque Z1 (attention aux $ dans la formule)
Ça marche aussi avec plusieurs lignes. Exemple avec A1:Z10 la formule en A1 est copiée de A1 à Z1, celle en A2 l'est de A2 à Z2, ect.

PS : le raccourcis Ctrl + b est identique mais vers le bas

Bonjour Menhir,

Le problème est donc le bornage de la BD. Je dirais que la limite de la base de données correspond à la dernière cellule non vide des lignes qui sont en dessous de la 1ère ligne. J'accompagne mon explication nébuleuse d'une impression d'ecran de mon état, surligné en vert la zone ou le script macro doit copier la formule. Dans le cas présent, la dernière valeur de la base de données s'observe sur la cellule K19 donc la macro doit générer des formules jusqu'à K1. Sachant que cette base est variable ( 365 valeurs max par ligne).

Pièce jointe 283801

Je n'ouvre pas les pièces jointes.
En supposant que la ligne de référence pour la limite des colonnes soit la ligne 19 :

Code:

---

Range("B1", Cells(19, Columns.Count).End(xlToLeft).Row).FormulaR1C1 = ... formule ...

---

J'ai rencontré un problème avec la formule que tu m'as envoyé Menhir

Code:

---

Range("B1", Cells(19, Columns.Count).End(xlToLeft).Row).FormulaR1C1 = "=R[1]C"

---

il s'agit de l'erreur d'execution 1004 ...la méthode Range de l'objet-Global a échoué

D'autre part en indiquant que la formule doit s'arrêter à la ligne 19, ca rend le script trop peu flexible vu que la base de donnée chargée est de taille variable.

Citation:

---

Envoyé par morgan75

J'ai rencontré un problème avec la formule que tu m'as envoyé Menhir
Range("B1", Cells(19, Columns.Count).End(xlToLeft).Row).FormulaR1C1 = "=R[1]C"
il s'agit de l'erreur d'execution 1004 ...la méthode Range de l'objet-Global a échoué

---

J'avais oublié un niveau de Cells

Code:

---

Range("B1", Cells(1, Cells(19, Columns.Count).End(xlToLeft).Row)).FormulaR1C1 = "=R[1]C"

---

Citation:

---

D'autre part en indiquant que la formule doit s'arrêter à la ligne 19, ca rend le script trop peu flexible vu que la base de donnée chargée est de taille variable.

---

Je n'ai pas dit que ça s'arrêtait à la ligne 19 mais que ça ne recherchait la limite que sur le ligne 19.
Si ce n'est pas ce que tu souhaites, écris une règle plus claire que celle de ton message #4.

Merci Menhir, la formule marche parfaitement dans le cas particulier ou la base de données enregistre ça dernière valeur dans la colonne S (19 ème colonne), mais l'utilisateur peut charger une nouvelle base de données pour laquelle la dernière valeur peut être enregistrée sur une cellule de n'importe quelle colonne.

Cette plasticité existait (mais verticalement) avec le script:

Code:

---

Range("B5:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-1],STRUCT,6,FALSE)"

---

J'espère avoir pu clarifier ma recherche.

Citation:

---

Envoyé par morgan75

Merci Menhir, la formule marche parfaitement dans le cas particulier ou la base de données enregistre ça dernière valeur dans la colonne S (19 ème colonne),

---

Dans la formule que j'ai donnée, c'est la 19è LIGNE qui est scrutée pour établir la colonne limite et non pas la 19è LIGNE.

Citation:

---

mais l'utilisateur peut charger une nouvelle base de données pour laquelle la dernière valeur peut être enregistrée sur une cellule de n'importe quelle colonne.

---

Dans ce cas, au lieux d'utiliser la propriété End (qui ne s'applique qu'à une ligne ou une colonne), il faut que tu utilises UsedRange.Rows.Count.
https://msdn.microsoft.com/fr-fr/lib.../ff840732.aspx

Citation:

---

Cette plasticité existait (mais verticalement) avec le script: Range("B5:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-1],STRUCT,6,FALSE)"

---

Non, il n'y a pas plus de "plasticité" dans cette formule que dans la mienne.
La limite est fixée par la colonne A et elle seule.
Si, par exemple, tu effaces les dernières valeurs de la colonne A (d'où le Range("A"...) ou que tu ralonges la colonne C, tu verras que ta formule de s'adaptera pas à la colonne C (ou autre), elle continuera de prendre A en référence.

Merci Menhir pour l'adaptation du code. J'ai intégré un test logique dans la formule pour déterminer si la colonne contenait ou non des valeurs ce qui conditionne la valeur des cellules de la ligne 1 après il suffit juste d'utiliser la fonction remplacer pour redimensionner le tableau "current région".

Encore merci