Probleme de selection avec RANGE

[KIM]

Bonjour le forum,
J'ai un petit souci avec RANGE et vous en remercie d'avance pour votre aide.
Pour selectionner tout mon tableau de données,
je definis la derniere colonne, et le derniere ligne :
DerCol = Sheets('IDATA').Range('IV4').End(xlToLeft).Column
DerLigne = Sheets('IDATA').Range('A65536').End(xlUp).Row - 1
et je definis la plage avec:
Set plage = plage.Offset(1, 0).Resize(DerLigne, DerCol)
OK ça fonctionne car DerCol = un nombre (11 dans mon exemple)

Parcontre quand je selectionne La plage avec:
Sheets('IDATA').Range('A5', DerCol & DerLigne).ClearContents
Pour effacer avant de recopier,
J'ai une erreur d'execution '1004' Erreur definie par l'application ou par l'objet. Si je remplace DerCol par le nom de la colonne 'K', ça fonctionne. Comment definir DerCol pour avoir le nom de la col et non son numero pour etre compatible avec RANGE.
Merci d'avance
Amicalement
KIM [file name=import131.zip size=10633]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/import131.zip[/file]

 

[AV]

Ave,

''...Comment definir DerCol pour avoir le nom de la col et non son numero pour etre compatible avec RANGE....''

Range('A5', Cells(derligne, dercol)).Select

AV [aaa]

 

[KIM]

Bonjour AV, et le forum,
Merci de ta reponse rapide,
Est-ce possible de modifier mon fichier joint dans ma demande initiale en adaptant ta proposition.
Je viens de le modifier mais il ne selectionne pas toute la zone donnée malgré que DerCol et DerLigne ont les bonnes valeurs
merci d'avance
KIM

 

[ChTi160]

Salut KIM
Bonjour AV
arff je me suis amusé à faire cela Lol

Sub Colonne()
Dim DerCol As String
Dim DerLgn As Integer
Dim R As Integer
DerLgn = Range('A65536').End(xlUp).Row
DerCol = Mid(Range('IV1').End(xlToLeft).Address(0, 0), 1, 1)
Range('A1', DerCol & DerLgn).ClearContents
End Sub
bonne journée

 

[_Thierry]

Bonjour Kim, Alain, le Forum


Kim si tu ne recopies pas textuellement la réponse d'AV, tu risques d'avoir des soucis...


Bonne Journée
[ol]@+Thierry[/ol]


EDITION !!!

Bonjour Jean Marie, pas Vu !

Mais la réponse d'AV suffit largement (pas besoin de convertir DerCol en Lettre et d'inverser), sauf que Kim en a tronqué un bout !

Message édité par: _Thierry, à: 24/04/2006 10:28

 

[KIM]

Bonjour Thierry, JeanMarie et AV, et le forum,
Avec mes excuses pour AV, Je ne sais pas ce qui s'est passé mais j'ai recopié la formule d'AV
et le resultat etait bizarre.
Là j'ai essyé de nouveau et ça fonctionne.
Je n'ai pas eu de probleme avec la proposition de JeanMarie à condition que la derniere col ne depasse pas la col Z sinon il faut modifier la formule.
Merci encore de votre disponibilité
Bien amicalement
KIM

 

[AV]

Re,

''... à condition que la derniere col ne depasse pas la col Z sinon il faut modifier la formule...''

Si tu veux absolument utiliser la lettre de colonne, ça pourrait faire :
Range('A5', Range(Split(Cells(1, dercol).Address, '$')(1) & derLigne)).Select

AV [aaa]

 

[KIM]

Bonjour AV, Thierry et JeanMarie, et le forum

Merci pour votre aide,
Je sais que je peux toujours compter sur votre aide grâce à ce forum.
ça fonctionne
Bien amicalement
KIM