Insérer des colonnes à un emplacement différent à chaque execution de la macro selon un principe de récurrence

Bonjour,

J'aimerais créer une macro qui insère une colonne à un emplacement différent à chaque lancement.

Par exemple, lors de la première utilisation de la macro, je voudrais insérer une colonne en A C et E.

J'obtiens celà :

Code:

---

1 2 3 4 5 6

Columns("G:G").Select Selection.Insert Shift:=xlToRight Columns("M:M").Select Selection.Insert Shift:=xlToRight Columns("S:S").Select Selection.Insert Shift:=xlToRight

---

Lors de la deuxième utilisation, les emplacements devraient être G N et U puis G O W... (une structure G, M+1, S+2).

Pourriez vous me donner une indication pour modifier le code.

(Je suis désolé mais je débute, même un lien pouvant m'aiguille serait le bienvenu).

Salut,

les colonnes peuvent aussi être déterminées par leur numéro, par exemple (et en évitant les sélections) ta ligne:

Code:

---

1 2	Columns("G:G").Select Selection.Insert Shift:=xlToRight

---

Peut s'écrire:

Code:

---

columns(7).Insert Shift:=xlToRight

---

J'ai pas bien saisi la logique par rapport aux colonnes, mais tu peux aussi déterminer quelle est la dernière colonne remplie sur base de la ligne 1 avec ce genre de code:

Code:

---

1 2	Dim NbCol as long NbCol = sheets("Tafeuil").cells(1,rows(1).cells.count).end(xltoleft).column

---

Vois si le fait de trouver la dernière colonne remplie peut t'aider à monter l'algo qui permettra de définir où ajouter les colonne.

A+

Bonjour,

Tout à fait d'accord avec Fvandermeulen, c'est la question que j'allais vous poser : si on connaît la dernière colonne utilisée avant la première insertion et éventuellement la ligne obligatoirement renseignée dans les colonnes qui viendront s'ajouter, on pourra en déduire si vous en êtes au 1er, 2ème ou (n)ième traitement.

Merci pour ta réponse ;)

En ce qui concernait les colonnes, ma logique était la suivante :

Insérer une colonne à droite des colonnes x,y,z et t (1re exécution de la macro)
Insérer une colonne à droite des colonnes x,y+1,z+2,t+3 (2ème exécution de la macro)
Insérer une colonne à droite des colonnes x, y+1+1, z+2+2, t+3+3 (3ème éxecution de la macro)
...
Insérer une colonne à droite des colonnes x, y+n-1, z+2n-2, t+3n-3 (nième éxecution)

Désolé si je ne suis pas clair.

Bonjour,
une chose il ya plusieur bouton en bas d'une discution.
Le bouton citer que tu utilise pour répondre permet de citer quelqu'un (c'est écrit dessus comme le port salut) si tu souhaite juste répondre ne l'utilise pas un tout petit peu plus bas a gauche il y a un bouton répondre ;)

Pour ta question
il te suffit de faire

Code:

---

1 2 3 4 5

dim n as long n= Columns(7+n-1).Insert Shift:=xlToRight Columns(14+2n-2).Insert Shift:=xlToRight Columns(20+3n-3).Insert Shift:=xlToRight

---

j'ai mis les valeur initiale au hazard.

Le seul problème sera de connaitre n.
Alors soit ut as un moyen de le connaitre en regardant la dernière colonne

Code:

---

n=(dernierecolonne-dernierecolonneInitiale)/3

---

Soit a chaque ajout tu incrémente une cellule protégé de 1 mais a mon avis c'est une mauvaise idée

Merci, c'est exactement ce que je recherchais.:ccool:

Un vrai alsacien, direct et efficace:mrgreen: Je ne citerais plus inutilement.