RESOLU besoin d'affiner une macro

[Mitch]

Bonjour à tous
Pour mon fichier , j'ai adapter cette macro trouver sur le forum mais j'ai un petit souci avec le bout de code : Feuil.Cells.Clear : qui efface la feuille entiere , j'aimerais que ça ne supprime pas la 1ere ligne qui est ma mise en page
Merci

Sub Copier()
Dim i As Long, fin As Long, a As Integer
Feuil2.Cells.Clear
fin = Feuil3.Range("B65000").End(xlUp).Row
For i = 2 To fin
For a = 1 To Feuil3.Cells(i, 2)
Feuil1.Range("A" & i).Copy Feuil2.Range("A65000").End(xlUp).Offset(1, 0)
Next a
Next i
End Sub

 

[Compte Supprimé 979]

Re : besoin d'affiner une macro

Salut Mitch

Un truc du style

Feuil1.Range(Cells(2, 1), Cells(65536, 256)).Clear

A+

 

[Excel-lent]

Re : besoin d'affiner une macro

Bonjour Mitch,

Dans ce cas, il te suffit de préciser ta zone. Remplacer :

Feuil2.Cells.Clear

Par :

Feuil2.Range("A2:XFD1048576").Clear

Dans le cas où tu utilise bien Excel 2007 ou 2010. Sinon modifier la zone car les versions antérieur d'Excel ont moins de colonnes et lignes.

Bonne journée

Edition : salut BrunoM45

 

[Mitch]

Re : besoin d'affiner une macro

Je vous remercie de votre aide , je corrige la macro en vous souhaitant une bonne journée