[help] Copie dans une ligne définie par le nom de l'onglet

[Grabuge0932]

Salut,
Je vais tenter d'expliquer au mieux mon problème:
J'ai un classeur avec plusieurs onglets, chacun d'eux numérotés de 1 à 26 plus un onglet récap.

Je cherche à creer une macro me permettant de copier une ligne bien précise ( toujours la meme ) dans l'onglet récap, dans une ligne définie

Exemple:
Onglet 1 ligne 9:

12 |oui | non | non

Je voudrais que la macro copie dans l'onglet récap, à la ligne 12 le contenu "oui | non | non

Onglet 2 ligne 9:

25 |oui | non | non

Je voudrais que la macro copie dans l'onglet récap, à la ligne 25 le contenu "oui | non | non

Est ce clair ? 😕

 

[James007]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Bonjour,

Sans macro, as tu essayé depuis ton onglet
1. de sasir le signe =
2. de te rendre sur la cellule que tu veux sur le premier onglet
3. et de taper Entrer ...

A +

 

[vbacrumble]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Bonjour



A tester

Option Explicit

Sub test()
Dim i As Byte
'si la feuille RECAP a pour codename Feuil1
For i = 2 To 26
Sheets("RECAP").Range("A" & [A65536].End(xlUp).Row).Offset(1, 0) = Sheets(i).Name
Sheets(i).Range(Sheets(i).Cells(9, 1), Sheets(i).Cells(9, 256).End(xlToLeft)).Copy Sheets("RECAP").Range("B" & [A65536].End(xlUp).Row)
Application.CutCopyMode = xlCopy
Next
End Sub

 

[Grabuge0932]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Merci vbacrumble je test cela dès demain et je vous tiens au courant.

Merci pour ta réponse James007 mais je connaissais ce principe, mais ma page représente des centaines de lignes alors il me faudrait 15 jours pour arriver à mes fins. Par contre si la solution de vbacrumble ne fonctionne pas, je serais obligé de passer par la 🙁

 

[vbacrumble]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Bonsoir


Rassures-toi xav093, j'ai testé avant de poster la macro.

Cela fonctionne.

 

[Grabuge0932]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Salut vbacrumble

Malheureusement cette macro ne correspond pas à ce que je recherchais. J'ai du trouver une solution extremement fastidueuse pour résoudre mon problème c'est a dire faire 84 fois la meme macro avec des variables différentes...

Sub Macro26()
If MsgBox("Avez vous bien remplis toutes les cases ?", vbQuestion + vbYesNo, "Demande de confirmation") = vbYes Then

Dim DerLigne As Long

Range("C8:I8").Copy
DerLigne = Range("C65536").End(xlUp).Row + 1
Range("C" & DerLigne).Select
Selection.PasteSpecial Paste:=xlValues


Range("C8:I8").Select
Selection.Copy
Sheets("RECAP").Select

Range("C9:I9").Select
ActiveSheet.Paste
Sheets("RECAP").Select
Sheets("26").Select
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("RECAP").Select

Range("K9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True




End If

End Sub
Sub Macro30()
If MsgBox("Avez vous bien remplis toutes les cases ?", vbQuestion + vbYesNo, "Demande de confirmation") = vbYes Then

Dim DerLigne As Long
Range("C8:I8").Copy
DerLigne = Range("C65536").End(xlUp).Row + 1
Range("C" & DerLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues

Range("C8:I8").Select
Selection.Copy
Sheets("RECAP").Select

Range("C10:I10").Select
ActiveSheet.Paste
Sheets("RECAP").Select
Sheets("30").Select
Range("F12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("RECAP").Select

Range("K10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True

End If


End Sub

ECT...

Si quelqu'un à la solution pour me simplifier le système je suis toujours prenneur 🙂

 

[James007]

Re : [help] Copie dans une ligne définie par le nom de l'onglet

Bonjour,

Dès que tu nous indiqueras si ton fichier comporte bien 26 feuilles correctement numérotées, pas de feuilles cachées, intercalées dans la séquence, et le numéro de la feuille Recap ... le code s'imposera de lui-même ...

A +