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