Discussion :

[kayl83]

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.
redimRange.zip

[jfontaine]

Bonjour,

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

Code :

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

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

[kayl83]

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).

[jfontaine]

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 :

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

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

[kayl83]

Merci de ton aide.

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

[Philippe Tulliez]

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.