Bonjour a tous,
j'utilise une macro que me permet de copier des nom d'élève dans 4 colonnes différentes selon des critères.
Jusque là tout va bien.
Ce que ve voudrais c'est que l'orsque j'arrive à la ligne 25 et saute de ligne et recommence à copier les nom à la ligne 27. Donc si j'arrive à E25 le prochain nom s'inscrira en E27. Si c'est en M25 ça ira en c27 etc...
Voici la macro
Sheets("feuil1").Select
Range("g25").Select
Selection.Copy
Sheets("maison").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a2").Select
Selection.Copy
If Range("a1") = 1 Then Sheets("maison").Select Range("e5").Select
If Range("a1") = 2 Then Sheets("maison").Select Range("m5").Select
If Range("a1") = 3 Then Sheets("maison").Select Range("u5").Select
If Range("a1") = 4 Then Sheets("maison").Select Range("ac5").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Range("t1").Select
Sheets("feuil1").Select
Range("e11").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Est-ce possible ??
Merci
j'utilise une macro que me permet de copier des nom d'élève dans 4 colonnes différentes selon des critères.
Jusque là tout va bien.
Ce que ve voudrais c'est que l'orsque j'arrive à la ligne 25 et saute de ligne et recommence à copier les nom à la ligne 27. Donc si j'arrive à E25 le prochain nom s'inscrira en E27. Si c'est en M25 ça ira en c27 etc...
Voici la macro
Sheets("feuil1").Select
Range("g25").Select
Selection.Copy
Sheets("maison").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a2").Select
Selection.Copy
If Range("a1") = 1 Then Sheets("maison").Select Range("e5").Select
If Range("a1") = 2 Then Sheets("maison").Select Range("m5").Select
If Range("a1") = 3 Then Sheets("maison").Select Range("u5").Select
If Range("a1") = 4 Then Sheets("maison").Select Range("ac5").Select
If ActiveCell.Offset(1, 0) = "" Then
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Range("t1").Select
Sheets("feuil1").Select
Range("e11").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=False
Application.CutCopyMode = False
Est-ce possible ??
Merci