macro select zone

[Bruce68]

Bonjour à tous
Pourquoi dans cette macro quand j'ajoute une colonne elle est prise en compte , mais quand je retranche une ou plusieurs colonnes cela reste dans sa position initiale, meme apres etre sorti d'excel. ( Variable j )
Excel 2003
Sub test()
j = Split(Cells.SpecialCells(xlLastCell).Address, "$")(1)
i = Cells(65535, 1).End(xlUp).Row
zimp = Range("B2:" & Cells(i, j).Address).Address
Range(zimp).Select
End Sub

Merci à tous

 

[porcinet82]

Re : macro select zone

Salut,

Ne connaissant pas la fonction Slit, je ne peux pas t'aider sur ton erreur, mais comme personne ne t'as apporté de reponse pour le moment, je me permet de t'apporter une autre solution :
j = Range("IV1").End(xlToLeft).Column
ou avec
j = Range("A1").End(xlToRight).Column

@+

 

[Hervé]

Re : macro select zone

bonjour bruce, salut porcinet

je viens de constater le meme phénomène que toi bruce avec xl2002

en effet, on dirais qu'excel ne reactualise pas cette partie du code Cells.SpecialCells(xlLastCell).Address lorsque l'on supprime une colonne.

je ne m'explique pas pourquoi.

porcinet, split permet de créer un tableau composé des sous chaines définit par l'argument delimiter, exemple :

Dim tablo
Dim i As Integer

tablo = Split("01/02/03/04", "/")

For i = 0 To UBound(tablo)
    MsgBox tablo(i)
Next i

ce code va "déconcaténer" la chaine "01/02/03/04" dans un tableau variant grace à l'argument "/"

attention, ce type de tableau est en base 0

salut