COPIER DEUX PLAGES DIFFERANTE

[br44]

Bonjour le forum

Voilà,je voudrais savoir comment copier deux plage de taille diffèrantes l'une sous l'autre à partir d'un Userfrom ?

je pensais passer par une procédure du type:

For X = 29 to 50 Step mais je ne connais pas du tout pourier vous m'aider sachant que j'ai deux macros qui commances par :Range ('A1'). voici ma procédure :
Private Sub CommandButton2_Click() 'bounton 'Enregistrer la fiche'
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Dim Mois As String


Mois = ActiveSheet.Range('C3').Value
Set Wb1 = Workbooks.Open(Chemin)
Set Wb2 = ThisWorkbook

ActiveWorkbook.Save
With Wb2 '.Activate
.Sheets('Détail').Range('A1:G29').Copy
End With
Sheets(Mois).Range('A65536').End(xlUp).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range('A1').Select
With Wb2 '.Activate
Run 'MacForDét'
End With

End Sub
la suite est :
With Wb2 '.Activate
.Sheets('Facture').Range('A1:G50').Copy
End With
Sheets(mois).Range('A65536').End (XlUp).Offset(1,0).PastSpecial Paste:=XlValues,Operation:=XlNone,SkipBlanks:=False,Transpose:=False
Range('A65536').End(XlUp).Offset(1,0).Select
With Wb2'.Activate
Run'MacForFact'
End With
End Sub

Mon souci Et que la deuxième macros se Dèclanche en ('A1') au lieu de ('A30') .

Si vous Aviez une solution à se petit souci se serais formidable .Je vous remercie par avance et vous dit à plus . br44

 

[Luc]

bonsoir

la suite est :
With Wb2 '.Activate
.Sheets('Facture').Range('A1:G50').Copy
End With
Sheets(mois).Range('A65536').End (XlUp).Offset(1,0).PastSpecial Paste:=XlValues,Operation:=XlNone,SkipBlanks:=False,Transpose:=False
Range('A65536').End(XlUp).Offset(1,0).Select
With Wb2'.Activate
Run'MacForFact'
End With
End Sub
en rouge la source de ton problème
('A30') et non ('A1')
😉
@+Luc

 

[br44]

re:Bonsoir Luc

Merci à toi d'avoir rèpondu a se message .
Je crois que tu n'as pas compris se que je voulais et je m'en excuse .je voudrais copier la suite à partir de la cellule ('A30'),mais ma deuxième Macro commance en('A1') et s'éxecute par dessus la première et non en dessous alors que les valeures elles se place bien d'où ma demande pour copier la seconde partie aprés les 29 première lignes. pour simplifier:

copier macro1,puis copier macros2 ,puis de nouveau la macro1 ect....

Afin d'obtenir une liste de toutes les fiches enregistrées .
En espèrant avoir ètè plus claire je te dis à bientôt sur le forum et te renouvelle mes remerciemnts Br44

 

[br44]

re :bonsoir à tous et à toutes

Juste pour signaler la fin de se fil .

A bientôt br44