Titre du sujet : Re: sortir d'une boucle en fin de tableau par myDearFriend! le 22/09/2011 22:07:11
Bonsoir ramarc, JeanMarie, le Forum,
Tout comme l'ami JeanMarie : pas sûr d'avoir tout compris dans le traitement souhaité...
A défaut d'explications claires, tu peux peut-être essayer ça :
Option Explicit
Sub Traitement()
Dim Plage As Range, Cell As Range
Dim J As Long
With Sheets("Feuil3")
'Plage regroupant toutes les cellules non vides de la colonne A
Set Plage = .Columns(1).SpecialCells(xlCellTypeConstants, 23)
J = 1
'Pour chaque cellule de la plage
For Each Cell In Plage
'Copier les cellules Ax à Dx sur la feuille "Données" par incrément d'une ligne
Cell.EntireRow.Range("A1:D1").Copy Destination:=Sheets("Données").Cells(J, 1)
J = J + 1
Next Cell
End With
End Sub
Cordialement,
|