Insérer plage jusqu'à une valeur donnée

[jerico]

Bonjour tout le monde,

Je débute dans VBA et je souhaite insérer une colonne dans un tableau de 14 lignes.
La solution trouvé: Range("E4:E18").Insert Shift:=xlToRight
Mon souci est que cela ne fonctionne plus si j'ajoute une ligne à mon tableau par la suite car mon tableau commence ligne 4 et finit ligne 19...

Comment puis je faire une sélection ou ma plage à insérer serait variable ?

J'ai pensé inscrire "stop" dans la dernière cellule de mon tableau et sélectionner jusqu'à la cellule où est écrit "stop" mais je ne sais pas comment l'écrire??

Merci pour votre aide

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Bonjour,

essaye ceci :

Range("E4", Range("E65536").end(xlup)).Insert Shift:=xlToRight

bon après midi
@+

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

Merci pour la réponse, je viens de tester mais j'insère une colonne sur toute ma page et comme j'ai un autre tableau en dessous ça met le bazar...
Comment pourrais je arrêter la plage insérée à une cellule ou est inscrit "stop" ou autre??

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

tu as aussi ceci :

Columns(5).Insert

sinon reviens peut être avec un tout petit fichier, montrant ce que tu as au départ et le résultat attendu...

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

En gros la première image c'est ce que j'ai.
La deuxième c'est ce que je veux pourvoir faire.
Il faut donc que j'insère une colonne dans le tableau des chaussettes mais comme le nombre de lignes peut varier et ne dois pas empiéter sur le tableau d'en dessous, je peux pas utiliser column(5).Insert...

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

pas top de travailler sur des images....

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

bas je débute, fais comme je peux
C'est pas claire mon truc??

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

C'est pas claire mon truc??

bah... pas trop, en l'état vois pas trop pourquoi l'insertion d'une colonne ne fonctionne pas... quelque chose doit m'échapper...

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

bas en fait j'ai deux tableaux qui se superposent dans ma feuille mais je veux insérer une colonne dans le premier tableau mais pas dans le deuxième tableau.
Mais je veux pouvoir ajouter des lignes au premier tableau également.

C'est pour cela que les solutions Columns(5).Insert ou Range("XX:XX").Insert Shift:=xlToRight ne marchent pas...

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

avec un petit fichier représentant le problème posé, ce serait plus facile pour t'aider...

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

Voila, un aperçus de ma page.
SI j'ajoute une ville je crée aussi une colonne dans le tableau du dessous. Ce qui n'est pas bon.
Ce que je veux c'est pouvoir ajouter des lignes dans le tableau de la base de données et lorsque j'ajoute une ville, la colonne ajoutée est le même nombre de lignes que le tableau de la base de données.

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

essaye ce code, utilise une plage nommée, pour la créer sous 2003 => barre de menu => insertion => Nom => définir, tu devrais retrouver l'equivalent sous 2010

With Range("maplage")
    .Columns(1).Insert Shift:=xlToRight
    .Offset(, -1).Resize(.Rows.Count, .Columns.Count + 1).Name = "maplage"
End With

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

Grand merci Pierrot,
ça marche impeccable.

 

[jerico]

Re : Insérer plage jusqu'à une valeur donnée

Pour info, ça marche aussi si tu mets

With Range("maplage").Insert

End With

Plus léger comme code
Merci encore

 

[Pierrot93]

Re : Insérer plage jusqu'à une valeur donnée

Re,

Pour info, ça marche aussi si tu mets

With Range("maplage").Insert

End With

Plus léger comme code
Merci encore

si la plage nommée comporte plusieurs colonnes, l'insertion se fera d'autant