XLDOWN

[fredrennes]

Bonjour, voici ma macro :

Sub ()
Sheets("dr06").Select
Range("b6", "h6").Select
Range(Selection, Selection.End(xlDown)).Select
Sheets("bdd").Select
Range("c2").Select
ActiveSheet.Paste
End Sub

Elle bloque sur cette ligne : Range(Selection, Selection.End(xlDown)).Select

Pouvez-vous m'aider svp ? Merci

Cdlt

Fred

 

[fredrennes]

C'est bon, j'ai reglé le pb, merci qd même.

Par contre, je voudrais savoir comment sélectionner une plage de A1 par jusqu'à une cellule de la colonne A dans laquelle est écrit "Total"

Pouvez-vous m'aider svp ?

Merci

Cdlt

Fred

 

[Vériland]

Bonsoir Fredenne et toi le forum,

Voici une solution...

Option Explicit

Sub Selection_TOTAL()
' Vériland Septembre 2003
' http://www.excel-downloads.com/html/French/forum/messages/1_51044_51044.htm
Dim PLAGE As Range
' ici on sort de la procédure s'il n'y a pas le mot "TOTAL"
On Error Resume Next
' on définit la plage
Set PLAGE = Range("A1:A20")
' ensuite on copie de A1 jusqu'au mot "TOTAL" qui est présent dans cette plage...
' ...plage qui peut être plus large par exemple A1:C30...
Range("A1", PLAGE.Find("TOTAL")).Copy
' on se place sur Feuil2
Sheets("Feuil2").Select
' et on colle en C2 cette plage
ActiveSheet.Paste Range("C2")
' puis on purge le "coller"
Application.CutCopyMode = False
End Sub

Bon le principe est commenté dans la macro...

Bonne programmation

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

[fredrennes]

Merci bcp.

Bonne journée.

Cdlt

Fred