Redimmensioner Range en fonction d'une variable.

Bonjour,

je recherche une macro qui permet d'ajouter des lignes à mon tableau en fonction de la valeur d'une cellule.

Si mon Range=Tableau340 comprend 1 idée et que mon Tableau d'import en comprend 10, alors la macro doit agrandir le Range de 9 lignes.

Je me perd avec Redim preserv.

Ci-joint un exemple.

Merci de votre aide.
Pièce jointe 88518

Bonjour,

Une solution pour ajouter 9 lignes (Valeur de la variable LngAjout) à l'objet Range

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim rg As Range Dim LngAjout As Long   LngAjout = 9   Set rg = Range("B6:E7")   Set rg = Range("B" & rg.Row & ":E" & (rg.Row + rg.Rows.Count - 1) + LngAjout)   MsgBox rg.Address

---

J'ai dejà essayé mais ca ne correspond pas à mon problème car au prochain import mon Range ne sera plus ("B6:E7") mais ("B6:E16").

En gros à chaque Mise à jour mon Range sera modifié en fonction de mon tableau d'import (rajout de 1, 2, 3,..... éléments supplémentaires).

Dans ce cas, déclare la variable Rg en public dans un module, et instancie la au démarrage.
Tu pourras ensuite agrandir sa taille avec le code proposé

Code:

---

1 2	Set rg = Range("B" & rg.Row & ":E" & (rg.Row + rg.Rows.Count - 1) + 9)

---

Merci de ton aide.

J'ai abandonné. Trop compliqué pour moi j'aggrandi mes tableaux manuellement.

Bonjour,
Sans macro, tu peux aussi définir un tableau dynamique en nommant la plage et à l'aide des fonctions NBVAL et DECALER adapter la référence à cette plage.
Exemple :
Imaginons une plage $A$1:$C$5 que l'on nomme monTableau
Dans le gestionnaire des noms, sélectionner monTableau et remplacer fait référence à $A$1:$C$5 par =DECALER($A$1;0;0;nbval($A:$A);nbval($1:$1))
Il y aussi moyen de rendre un tableau dynamique en convertissant la plage en tableau.

Bonjour,

et merci, ca fonctionne manuellement lorsque j'écris du texte sous la dernière ligne, mais ca ne le fait pas automatiquement après mon import.

Il faut peut-être rajouter dans la formule le nbre de ligne attendu (nbr de ligne à importer-nbre de ligne du tableau)?