Discussion :

[SpaceX]

Bonjour,

Dans ma macro j'ai ajouté cette instruction :

Set MaPlage = Worksheets("Feuil3").UsedRange

Malheureusement je ne récupère pas du tout ce que je souhaite, j'obtiens toute la feuille Excel avec les retour à la ligne y compris.

J'aimerai qu'il me récupère toutes les lignes qui vont de la colonne A à G jusqu'à la dernière ligne correspondant à une donnée (ne pas prendre si y a rien)

Merci

[Menhir]

J'aimerai qu'il me récupère toutes les lignes qui vont de la colonne A à G jusqu'à la dernière ligne correspondant à une donnée (ne pas prendre si y a rien)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MaPlage = Intersect(Worksheets("Feuil3").UsedRange, Worksheets("Feuil3").Columns("A:G"))

[Invité]

bonjour,
oui ça arrive.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set MaPlage =Worksheets("Feuil3").range("A1").currentregion

[patricktoulon]

Bonjour
Attention!!!!!
userange commence a la premiere cellule pleine et termine a la derniere
ce qui fait que si tu veux "A1: le reste" des colonne ("A:G") soit sur que le usedrange commence bien en A1 sinon tu va tronquer ta plage voulue
perso pour etre sur je ferais quelque chose de plus explicit pour etre sur de recupérer ce que je veux et cela meme avec usedrange

exemple

1° ou que demarre usedrange on demarre en A1 d'office

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
With Sheets(1) 'nom ou index du sheets a adapter
MsgBox .Range("A1:G" & .UsedRange.Cells(.UsedRange.Cells.Count).Row).Address
End With
End Sub

ici explicitement on demarre en A1 meme si usedrange ne commence pas en ligne1 et colonne 1
pour chopper la derniere ligne on se sert de ".usedrange.cells(.usedrange.cells.count)" qui donne la derniere cellule de usedrange


2° maintenant si tu veux récupérer la plage "A:G" a partir de la ou commence usedrange en terme de ligne jusque a la derniere ligne de usedrange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test2()
With Sheets(1) 'nom du sheets a adapter
MsgBox Range("A" & .UsedRange.Row & ":G" & .UsedRange.Cells(.UsedRange.Cells.Count).Row).Address
End With
End Sub

pour info

1. .usedrange.row ou usedrange.cells(1).row donne la premiere ligne ou commence usedrange il n'est pas forcé que ce soit la "1"
2. .usedrange.cells(.usedrange.cells.count) donne la derniere cellule du usedrange
3. .usedrange.column(1) donne la premiere colonne de la usedrange attention!! il n'est pas forcé que ce soit la "A"

et pour faire un peu de trapeze avec usedrange

voici une methode pour chopper les colonnes "A:G" du sheet selon les index depart et fin en terme de lignes de usedrange
remplace "-x" par 0 et regarde ce que columns("A:G") donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test4()
    With Sheets(1)    'nom du sheets a adapter
        x = .UsedRange.Column - 1
        MsgBox .UsedRange.Columns("A:G").Offset(0, -x).Address
    End With
End Sub

tout ca pour dire "" bien savoir ce que usedrange veut dire""

[pijaku]

Bonjour,

Malheureusement je ne récupère pas du tout ce que je souhaite, j'obtiens toute la feuille Excel avec les retour à la ligne y compris.

A lire, un petit topo sur comment récupérer une plage...

[SpaceX]

bonjour,

le problème est résolu merci .