Selectionner plage de cellules VBA

[julien974]

Bonsoir,

Je souhaiterais sélectionner une plage de cellule.


Non pas avec range ("A1😀8") par exemple...
Mais entre A1 et la dernière cellule contenant du texte dans la colonne D

Merci de votre aide,

Juli3n

 

[pierrejean]

Re : Selectionner plage de cellules VBA

bonjour Juli3n

teste:

Range("A1:D" & Range("D65536").end(xlup).row)

Qui suppose que l'on est dans la feuile active

 

[julien974]

Re : Selectionner plage de cellules VBA

Merci beaucoup.

ça fonctionne selement si je fais Range("A1😀" & Range("D65536").end(xlup).row).select

Et si je souhaite spécifier une feuille, comment l'inserer dans la formule? (feuille1 par exemple)

Juli3n

 

[pierrejean]

Re : Selectionner plage de cellules VBA

Re

teste

sheets("Feuil1").Range("A1:D" & sheets("Feuil1").Range("D65536").end(xlup).row)

 

[julien974]

Re : Selectionner plage de cellules VBA

Merci de ton aide,

Je débute tout juste et j'avoue que ce n'est pas simple...

Autres question... Si je souhaite coller cette même plage dans la feuille2 à partir de la première cellule vide de la colonne A?

muchas gracias amigo,

Juli3n

 

[pierrejean]

Re : Selectionner plage de cellules VBA

Re

teste:

Sheets("Feuil1").Range("A1:D" & Sheets("Feuil1").Range("D65536").End(xlUp).Row).Copy Destination:=Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)

 

[Steve15]

Re : Selectionner plage de cellules VBA

Bonjour,

merci pour la solution proposée ci-dessus elle marche nickel, seulement elle ne fonctionne pas pour un tri, quand on ne sait pas le nombre de lignes et qu'il faut trouver la fin .... il prend un chiffre .. Comment pourrais-je faire ? Merci.

 

[Steve15]

Re : Selectionner plage de cellules VBA

Désolé j'arrive pas à éditer donc plus d'infos :

Range("A1:AH" & Range("AH65536").End(xlUp).Row).Select 'Là il me trovue la dernière ligne et me sélectionne, ça c'est bon




ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort.SortFields.Add _
Key:=Range("A1:AH" & Range("AH65536").End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort
.SetRange Range("A1:AH" & Range("AH65536").End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Il plante au .Apply, ma première ligne de code trouve bien la fin, mais pour le tri, j'ai l'impression qu'il "reselectionne". Merci.

Voici le code de base :

Range("A1:AH1276").Select
ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort.SortFields.Add _
Key:=Range("O2:O1276"), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sort by Out of Stock Today").Sort
.SetRange Range("A1:AH1276")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Voici le code que j'ai essayé de modifier en sorte qu'il trouve la fin tout seul... sans succès... Ce code fonctionne que si j'ai 1276 lignes...