Probleme de selection avec RANGE

KIM

XLDnaute Accro
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]
 

Pièces jointes

  • import131.zip
    10.4 KB · Affichages: 26

KIM

XLDnaute Accro
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Accro
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
 
A

AV

Guest
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]
 

Discussions similaires

Réponses
12
Affichages
636

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG