sélectionner de la première cellule pleine à la dernière cellule pleine

[lmylvc]

Hello les amis

J'ai généré une macro qui est trop rigide car elle sélectionne une plage précise de donnée.
Mon besoin serai de pouvoir sélectionner les données de la première cellule non vide à la dernière non vide.

Mon code et le suivant


Windows("INJA01_SG_EN_COURS.xls").Activate
Ici je voudrrais pouvoir sélectionner les cellules non vides en pârtant de B1 à D200 à la place de la sélection Range(B9 -D16)
Range("B9 -D16").Select
Selection.Copy
Windows("Raccourci vers tabl marche smed.xls.lnk.xls").Activate
ActiveWindow.SmallScroll Down:=11
Sheets("Avril 2011").Select
Windows("INJA01_SG_EN_COURS.xls").Activate
Windows("Raccourci vers tabl marche smed.xls.lnk.xls").Activate
Range("Q43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Pierrot93]

Re : sélectionner de la première cellule pleine à la dernière cellule pleine

Bonjour,

peut être ceci :

ActiveSheet.UsedRange.Select

pour info, les "select" sont rarement utiles en vba et ralentissent le code..

bonne fin d'après midi
@+

 

[lmylvc]

Re : sélectionner de la première cellule pleine à la dernière cellule pleine

Hello Pierrot93

Peux-tu stp me dire, ou insérer cette proposition dans mon code STP
car je ne saisis pas ce petit bout de code.

Merci

Vincent

 

[Pierrot93]

Re : sélectionner de la première cellule pleine à la dernière cellule pleine

Re,

en lieu et place de ceci :

Ici je voudrrais pouvoir sélectionner les cellules non vides en pârtant de B1 à D200 à la place de la sélection Range(B9 -D16)
Range("B9 -D16").Select

 

[Hippolite]

Re : sélectionner de la première cellule pleine à la dernière cellule pleine

Bojour à tous,
une petite compilation :derniere-ligne-derniere-colonne-renseignees-feuille-calculs/
A+