XL 2016 Sélectionner plage jusqu'à ligne non vide

[davidp]

Bonjour à tous ,

j'ai une nouvelle fois besoin de votre aide , en effet , je cherche une macro qui me permettrait de réaliser un copier coller afin de me faire gagner du temps

Je souhaiterai si c'est possible :
A partir de la feuille "base" , sélectionner la plage I10 à BD 10 jusqu'à la dernière ligne contenant des données puis coller les données dans la feuille "résultats " à partir de la cellule J4.

Un grand merci d'avance à celui qui m'aidera

Bonne journée

DAVIDP

 

[pierrejean]

Bonjour DavidP

A tester:

Sub test()
derlin = 1
For n = 9 To 56
   If Sheets("base").Cells(Rows.Count, n).End(xlUp).Row > derlin Then derlin = Sheets("base").Cells(Rows.Count, n).End(xlUp).Row
Next
Sheets("base").Range("I10:BD" & derlin).Copy Destination:=Sheets("résultats").Range("J4")
End Sub

 

[job75]

Bonjour davidp, Pierre,

Ou aussi avec Find :

Sub Copier()
Dim h&
With Sheets("base").[I10:BD10].Resize(Rows.Count - 9)
    If .Cells(1) = "" Then .Cells(1) = " " 'au moins une valeur
    h = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - 9
    .Resize(h).Copy Sheets("résultats").[J4]
End With
End Sub

A+

 

[davidp]

Bonjour DavidP

A tester:

Sub test()
derlin = 1
For n = 9 To 56
   If Sheets("base").Cells(Rows.Count, n).End(xlUp).Row > derlin Then derlin = Sheets("base").Cells(Rows.Count, n).End(xlUp).Row
Next
Sheets("base").Range("I10:BD" & derlin).Copy Destination:=Sheets("résultats").Range("J4")
End Sub

 

[davidp]

Bonjour Job75

un grand merci pour votre aide , je vais tester et je vous tiens informé

bonne journée et encore merci

DAVIDP

 

[davidp]

Bonjour DavidP

A tester:

Sub test()
derlin = 1
For n = 9 To 56
   If Sheets("base").Cells(Rows.Count, n).End(xlUp).Row > derlin Then derlin = Sheets("base").Cells(Rows.Count, n).End(xlUp).Row
Next
Sheets("base").Range("I10:BD" & derlin).Copy Destination:=Sheets("résultats").Range("J4")
End Sub

Bonjour Pierre jean

un grand merci pour votre aide , je vais tester et je vous tiens informé

bonne journée et encore merci

DAVIDP

 

[davidp]

Bonjour davidp, Pierre,

Ou aussi avec Find :

Sub Copier()
Dim h&
With Sheets("base").[I10:BD10].Resize(Rows.Count - 9)
    If .Cells(1) = "" Then .Cells(1) = " " 'au moins une valeur
    h = .Find("*", , xlValues, , xlByRows, xlPrevious).Row - 9
    .Resize(h).Copy Sheets("résultats").[J4]
End With
End Sub

A+

Bonjour Job75
Lorsque je colle les données dans la macro , des lignes s'affichent en rouge

- il faut bien coller les données dans un module , je ne sais pas ou j'ai fait l'erreur ?

Merci d'avance

DAVIDP

 

[davidp]

Bonjour Pierre jean
super , cela fonctionne

Un grand merci

Bon dimanche

 

[job75]

Lorsque je colle les données dans la macro , des lignes s'affichent en rouge

Dans votre Copier-Coller les caractères de tabulation n'ont probablement pas été copiés correctement, effacez-les.

 

[davidp]

Bonjour Job75 ,

effectivement , vous avez raison , cela fonctionne à merveille maintenant.

Encore un grand merci pour votre aide

Bon dimanche

DAVIDP