Discussion :

[Nico Chg]

C'est un forum d'entraide, non? Personne ne doit se sentir obligé

Je t'arrête, si je m'étais sentis obligé de t'aider, je ne l'aurais pas fait. C'est juste que je trouve que tes propos sont légèrement déplacé, un peu comme si tu demandais qu'on vienne écrire la macro sur ton pc.

Un tutoriel expliquant la base du fonctionnement des macro est extrêmement simple à trouver, et aurais répondu à toute tes questions. Avec un peu d'astuce, Tu n'aurais même pas eu besoin de poster sur ce forum, car Menhir t'a fourni des fonctions tout à fait simple, qui elle même se trouve très facilement sur internet.

Enfin, je trouve que la dernière phrase, disant que tu n'as pas l'envie/le temps de t'impliquer dans ce que tu fais, est un peu déplacée. Le forum d'entraide, comme tu le définis, est un forum ou l'on vient aider une personne, et j'ai l'impression (attention, ce n'est que mon ressenti), que tu viens ici comme pour demander aux gens de te livrer un code sur un plateau d'argent, sans chercher à le comprendre (du moins, tu ne veux pas lire de tutoriels). Ce n'est plus un forum d'entraide à ce moment là.

J'espère tout de même que tu auras réussi à faire ce que tu veux faire, et je te souhaite bien du courage pour tes programmes futurs.


EDIT : c'est malin de modifier son message pendant que j'écris le mien
Sans message d'erreur ni quoi que ce soit qui nous permettent de t'aider, on est bien dans l'impasse.

[Menhir]

Cela ne fonctionne pas.

Tu es toujours aussi descriptive dans tes explications...

[kiki29]

Salut, histoire de rajouter une couche : voir ici mais aussi là ( fichier à télécharger ) et nécessitant une adaptation à ton contexte.

[nduverger]

Voici une macro utile pour copier les plages de cellules vers un onglet recap:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub recap()
 ActiveSheet.Range("A1:J25").Copy Destination:=Sheets("RECAP").Range("A" & Sheets("RECAP").Range("H" & Rows.Count).End(xlUp).Row)
End Sub

Par contre, comment faire pour que seules les valeurs soient copiées, et non les formules?

[Nico Chg]

Bonjour,

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub recap()
ActiveSheet.Range("A1:J25").Copy
With Sheets("RECAP")
     .Range("A1").PasteSpecial Paste:=xlPasteValues
End with
End Sub

En modifiant bien évidemment la Range ou tu veux copier les données.

[Marc-L]

Bonjour,

ou ne pas utiliser Copy mais directement la propriété Value de l'objet Range …

[nduverger]

Bonjour,

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub recap()
ActiveSheet.Range("A1:J25").Copy
With Sheets("RECAP")
     .Range("A1").PasteSpecial Paste:=xlPasteValues
End with
End Sub

En modifiant bien évidemment la Range ou tu veux copier les données.

Merci. Par contre, cette formule ne permet de copier que les valeurs d'un seul onglet à la fois, sur un onglet Recap, et sans mise en forme

Tandis que cette macro permet de copier les contenus de plusieurs onglets, à la suite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub recap()
ActiveSheet.Range("A1:J25").Copy Destination:=Sheets("RECAP").Range("A" & Sheets("RECAP").Range("H" & Rows.Count).End(xlUp).Row)
End Sub

==> Comment faire pour "retoucher" cette macro, pour qu'elle copie les valeurs au lieu des formules?

[Marc-L]

Non la macro source ne copie qu'un seul onglet !

Merci d'utiliser l'icône pour baliser le code conformément aux règles du forum !

[Nico Chg]

Bonjour,

Tu peux dans un premier temps regarder le post de Marc-L, qui peut t'aiguiller sur ce que tu veux faire.
Sinon, essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub recap()
Dim Ws as worksheets
 
For Each Ws in ThisWorkbook
     If Ws.Name <> "RECAP" Then
          Ws.Range("A1:J25").Copy
          With Sheets("RECAP")
              With .Range("A1")
                   .PasteSpecial Paste:=xlPasteValues
                   .PasteSpecial Paste:=xlPasteFormats
                   .Application.CutCopyMode = False
              End with
          End with
     End if
Next Ws
End Sub

Et je te conseil un code qui va vider en plus de ça le presse-papier, parce qu'au bout de quelques itérations, tu vas certainement avoir des erreurs de mémoires.

[Igloobel]

Bonjour,

Menhir a peut-être été un peu vite en besogne car tel quel effectivement cela ne marche pas chez moi non plus ...

donc une remarque tout d'abord j'evite de mettre le même nom pour une macro et pour une variable trop de risque
sinon çà cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Recapitul()
   Dim Recap As Worksheet
   Dim i As Integer
 
   Set Recap = Worksheets.Add(, Worksheets(Worksheets.Count))
 
   For i = 1 To Worksheets.Count - 1
      Worksheets(i).UsedRange.Copy (Recap.Cells(Recap.UsedRange.Rows.Count + Recap.UsedRange.Row))
   Next i   
End Sub

Je ne maitrise pas trop pourquoi les objets s'utilisent tantot au singulier tantot au pluriel

Par exemple Cell(s)
- avec un For Each on aura : For Each Cell in Cells
- affection d'une valeur dans une cellule : Cells(ligne,colonne).value ...

A+

[Nico Chg]

Bonjour Igloobel,

Les objets avec un S comme "Worksheets" représente une collection d'objet "Worksheet"
Donc c'est normal que pour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each Cell in Cells

Tu parcours la collection Cells, donc chacun des objet Cell.

Quand tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(X, Y)

Tu choisis un objet représenté par un indice dans la collection. En l’occurrence, plusieurs indices. Un peu comme lorsque tu fait référence à un objet dans un scripting.dictionnary. Tu va faire Dico(Clef) pour avoir l'item correspondant à la clef.

je ne sais pas si j'ai été clair, mais comme dirait mon collègue :

une couille / une paire (collection) de couilles

[Igloobel]

...Quand tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(X, Y)

Tu choisis un objet représenté par un indice dans la collection.

Du coup je comprend mieux le pourquoi du Comment du Parce que ....

Du coup je vais mieu comprendre ces fabuleuses Collections ... Sans entrer dans le détail de la coleection décrite par ton collègue

A+