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

Grabuge0932 · 5 Mars 2009

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 · 5 Mars 2009

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 · 5 Mars 2009

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

Bonjour

A tester

Code:

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 · 8 Mars 2009

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 · 8 Mars 2009

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 · 10 Mars 2009

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 · 10 Mars 2009

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 +

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

Grabuge0932

XLDnaute Nouveau

James007

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Grabuge0932

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

Grabuge0932

XLDnaute Nouveau

James007

XLDnaute Barbatruc

Discussions similaires

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

Grabuge0932

XLDnaute Nouveau

James007

XLDnaute Barbatruc

vbacrumble

XLDnaute Accro

Grabuge0932

XLDnaute Nouveau

vbacrumble

XLDnaute Accro

Grabuge0932

XLDnaute Nouveau

James007

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency