Copie de lignes en fonction d'une variable

[olivier5962]

Bonjour
Malgrès des recherches sur le forum je ne trouve pas de solution.
Voilà :

Je prépare à l'aide d'une macro une feuille avec un nombre variable de ligne (jusqu'à 2000)
Je créé 4 feuilles nommées sem 1, sem 2 ....
Je compte de nombre de ligne réél, et je le divise en 4.
Je voudrais copier les x premieres lignes sur l'onglet sem 1, les x suivantes sur l'onglet sem 2....

merci de me donner une piste

Olivier

 

[JNP]

Re : Copie de lignes en fonction d'une variable

Bonjour Olivier5962 🙂,
Assez "brut de décofrage" 😛...

Sub test()
Dim NbreLigne As Integer, A As Integer, B  As Integer, C As Integer, D As Integer
NbreLigne = 23
If NbreLigne Mod 4 = 0 Then
A = NbreLigne / 4
B = A
Else
A = Int(NbreLigne / 4) + 1
B = A - NbreLigne Mod 4
End If
Range("A1:B" & A).Copy Sheets("Sem1").Range("A1")
Range("A" & A + 1 & ":B" & A * 2).Copy Sheets("Sem2").Range("A1")
Range("A" & A * 2 + 1 & ":B" & A * 3).Copy Sheets("Sem3").Range("A1")
Range("A" & A * 3 + 1 & ":B" & NbreLigne).Copy Sheets("Sem4").Range("A1")
End Sub

Bon courage 😎

 

[olivier5962]

Re : Copie de lignes en fonction d'une variable

Bonjour
Merci beaucoup pour cette réponse rapide. Je vais l'adapter a mon fichier et te tiens au courant.

OLivier

 

[olivier5962]

Re : Copie de lignes en fonction d'une variable

Bonjour

C'est tout bon, merci beaucoup j'ai pu l'adapter à ma macro tout fonctionne.
Cordialement🙂