Tableau evolutif

[anber]

Bonjour le forum,

Je recherche le code pour rendre un tableau évolutif :
Si j'ajoute une colonne (ou supprime) dans une feuille à un position déterminée, je renvoie les données modifiées dans une autre feuille

Merci

 

[anber]

Bonjour le forum,

Apparement ma pièce joint n'est pas passée.
Je la met de nouveau.
Sinon je me suis trouvé une réponse pour le numero de colonne (c'est ce qui me bloquait)

Dim col As Integer
Dim cptcol As Integer
For cptcol = 1 To 20
If Cells(1, cptcol) = 'autres' Then
Cells(1, cptcol).Select
col = Selection.Column - 1
End If
Next


Merci

 

[anber]

Rebonjour,

Ma piece jointe ne passe toujours ....

zip de 8ko (test.zip)

Y-t-il un pb sur le forum ?

Merci [file name=test_20060311131936.zip size=4753]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060311131936.zip[/file]

 

[anber]

Cette fois c'est ok