Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

[DAVY]

BONJOUR A TOUS

J'AI UN CLASSEUR EXCEL qui POSSEDE PLUSIEURS FEUILLES ET JE SOUHAITERAI COPIER DANS UNE NOUVELLE FEUILLE "CUMUL" LES DONNEES DES CELLULES K61 A K69 DE CES FEUILLES. A SAVOIR QUE JE DOIT POUVOIR CHOISIR LE NOMBRE DES FEUILLES 5CE NOMBRE PEUT ETRE SITUER DANS UN CELLULE OU DEMANDER A L'AIDE D'UNE INPUTBOX DONT JE SOUHAITE COPIER LES DONNEES.LA FEUILLE CUMUL SERAI COPIER EN POSITION 1 DANS LE CLASSEUR CONTENANT CES FEUILLES
merci pour votre aide à tous

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Bonsoir

Un début de solution (à peaufiner)

Sub essai1()
'Auteur de  la macro originale: acw
    Dim rS As Worksheet
    Set rS = Sheets("Cumul")
    rS.Activate
    For Each sh In Worksheets
        If sh.Name <> "Cumul" Then
            sh.Range("K61:K69").Copy
            rS.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
            ActiveSheet.Paste
        End If
    Next sh
End Sub

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Re

Avec cette macro c'est déjà beaucoup mieux

Sub essai2()
'Auteur Macro originale:LSteph
'Source:mpfe:  faire un résumé de plusieurs feuille sur une autre

'Déclaration des variables
Dim i As Integer
Dim sh As Worksheet
'***
Application.ScreenUpdating = False
'désactivation de la mise à jour écran

'***suppression pour création de la feuille résumé
    On Error Resume Next
    Sheets("Cumul").Delete
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Cumul"
'***

For Each sh In ActiveWorkbook.Sheets
'boucle sur les feuilles
    If sh.Name <> "Cumul" Then
    sh.Range("K61:K69").Copy
   With Sheets("Cumul")
        .Cells(1, 1 + sh.Index) = sh.Name
        .Cells(2, 1 + sh.Index).PasteSpecial (xlPasteValues)
   End With
        End If
    Next
    Application.ScreenUpdating = True
    'rétablissement de la mise à jour écran
End Sub

Merci à MPFE et à LSteph

 

[Mytå]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Salut le forum

Davy, merci de ne pas écrire en majuscules

c'est l'équivalent de crier, et vraiment pas apprécier

pour avoir une réponse

Mytå

Edition article 2b de la charte

Prenez le temps de rédiger clairement votre question, et songez que tronquer tous les mots fatigue la lecture (Idem pour les Majuscules qui en plus signifient ' crier ')

 

[DAVY]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Je suis désolé , je suis nouveau sur le forum, et à l'avenir j'écrirai en minuscule

 

[DAVY]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Merci beaucoup cela fonctionne bien
j'ai une autre requette, je souhaiterai une macro qui lorsque l'on renseigne une des cellulles A18 à k18 par "ok" cela déclenche une macro.

Merci à l'avance pour ton aide

 

[DAVY]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

la macro fonctionne bien, cependant je souhaiterai pouvoir choisir les feuilles pour lesquel je ferai le récapitulatif. Est-il possible de rajouter une input box qui te demanderait de choisir les feuilles pour lesquel la macro ferait le récapitulatif ou éventuellement renseigner une cellulle sur le nombre de feuilles pour lesquelles la macro fonctionnerait. J'espère être assez clair.

Merci d'avance

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Bonjour


Moi j'utilserai plutot un userform avec des checkbox

(Faut le temps que j'y songe)

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Re

Finalement je suis parti sur l'idée d'un ListBox

Private Sub CommandButton1_Click()
Dim i As Integer
    With Me.ListBox1
        For i = 0 To .ListCount - 1
                If .Selected(i) Then
                    If Worksheets(.List(i)).Name <> "Cumul" Then
                    'MsgBox Worksheets(.List(i)).Copy
                    'et la pour le moment je coince
                    MsgBox Worksheets(.List(i)).Name
                    End If
                End If
        Next i
    End With
    End Sub
Private Sub UserForm_Initialize()
Dim S As Worksheet
For Each S In ThisWorkbook.Worksheets
ListBox1.AddItem S.Name
Next
End Sub

Listbox avec propriéte multiselect

Maintenant j'ai du mal à intégrer la précedente macro
(celle qui recopie ta plage de donnée)

En attendant d'autres contributions à ton problème

Bonne journée à tous

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Rebonjour à tous

Le code ci-dessous semble fonctionner

Private Sub CommandButton1_Click()
Dim i As Integer
With Me.ListBox1
For i = 0 To .ListCount - 1
        If .Selected(i) Then
            If Worksheets(.List(i)).Name <> "Cumul" Then
                y = Worksheets(.List(i)).Index
                z = Worksheets(.List(i)).Name
            Worksheets(.List(i)).Range("K61:K69").Copy
                With Sheets("Cumul")
                    .Cells(1, 1 + y) = z
                    .Cells(2, 1 + y).PasteSpecial (xlPasteValues)
                 End With
            End If
        End If
Next i
End With
End Sub

Private Sub CommandButton2_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Je joins un fichier exemple (à tester)

J'espère que cela t'aidera dans ton projet.

Bonsoir

 

[DAVY]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Salut
j'ai testé le fichier cela fonctionne mais le soucis est que je ne peut pas travailler sur mon fichier . Est-il possible d'avoir la même chose mais par l'intermèdiaire d'un bouton .
j'ai un autre soucis je souhaiterai déclencher un macro lorsque j'entre OK sur une des cellules A18 à k18.

Merci d'avance

Davy

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Bonjour


Soit tu importes le module contenant la macro
Soit tu fais un copier coller

Ensuite sur la feuille, tu crées un bouton

Clic-doit -> affecter une macro

et tu choisis la macro que tu viens de copier/importer dans ton propre fichier

 

[Staple1600]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Re

Un exemple simple et tarabiscoté

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Row = 9 Then
If Me.Cells(8, ActiveCell.Column) = "OK" Then
test 'ici mettre le nom de la macro que tu souhaites lancer
End If
End If
End Sub
Sub test()
MsgBox "test"
End Sub

 

[DAVY]

Re : Copie Des Donnes Des Cellules K61 A K69 De Plusieurs Feuilles D'un Meme Classeur

Désolé mais cela ne marche pas mais j'ai fait une erreur. ce sont les cellules C18 à J18 . ce code doit-il être mis dand this workbook ou dans un module?