Plage variable dans Pivot table

Efgé à dit:

Bonjour
Si tu connais la dernière colonne (S dans ton exemple):

VB:

Sub test()
With Feuil1
    .Range(.Range("a1"), .Range("a1").End(4)(1, 19)).Select
End With
End Sub

Sans connaitre la dernière cellule de la plage (ni la ligne, ni la colonne)

Code:

Sub test_2()
Dim x As Range, y As Range
With Feuil1
    Set x = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), xlValues, , 1, 2, 0)
    Set y = .Cells.Find("*", .Cells(.Rows.Count, .Columns.Count), xlValues, , 2, 2, 0)
    .Range(.Cells(1, 1), .Cells(x.Row, y.Column)).Select
    End With
End Sub

Les "Select" ne sont là que pour exemple.

Cordialement

Cliquez pour agrandir...

Efgé à dit:

Re
Je ne t'ai donné que la façon de trouver la plage.
Si tu sais créer une source Data tu mets :
SourceData:= .Range(.Cells(1, 1), .Cells(x.Row, y.Column))

Il faut bien utiliser le With / End With

Cordialement

Cliquez pour agrandir...

Efgé à dit:

Re
Je ne t'ai donné que la façon de trouver la plage.
Si tu sais créer une source Data tu mets :
SourceData:= .Range(.Cells(1, 1), .Cells(x.Row, y.Column))

Il faut bien utiliser le With / End With

Cordialement

Cliquez pour agrandir...