XLDOWN

F

fredrennes

Guest

• 26 Septembre 2003

• #2

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

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 26 Septembre 2003

• #3

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...

 

Vote positif 0 Vote négatif

F

fredrennes

Guest

• 29 Septembre 2003

• #4

Merci bcp.

Bonne journée.

Cdlt

Fred

 

Vote positif 0 Vote négatif