Discussion :

[shadown08]

Bonjour à tous,

J'ai un onglet recap dans lequel je souhaite rapatrier les résultats de mes autres onglets dont le nom commence par "Détail".

Je voudrai que :

'Recap'! D1 = 'Détail Lot1'!A1
'Recap'! E1 = 'Détail Lot1'!B1
'Recap'! F1 = 'Détail Lot1'!C1

'Recap'! G1 = 'Détail Lot2'!A1
'Recap'! H1 = 'Détail Lot2'!B1
'Recap'! I1 = 'Détail Lot2'!C1

...

Je ne connais pas à l'avance le nombre d'onglets Détail que je vais avoir.

Et je voudrais ensuite copier ma ligne 1 de l'onglet Recap et la coller (je parle des formules bien sûr) sur les 100 lignes suivantes.


Voilà ce que j'ai commencé à écrire mais il y a des "trous" dans ma macro que je ne sais pas remplir et ej ne suis pas sûre à 100% du reste ...


Sub Macro1()
'
' Macro1 Macro
'
Dim oWksh As Worksheet
Dim i As Byte

i = 1
With Worksheets("Recap")
For Each oWksh In Worksheets
If oWksh.Name Like "Détail*" Then

.Range("A9").Offset(0, 3 * i).Formula =
.Range("B9").Offset(0, 3 * i).Formula =
.Range("C9").Offset(0, 3 * i).Formula =


i = i + 1
End If
Next oWksh
End With

Sheets("Recap").Select
Rows("1").Select
Rows("1").Copy Destination:=Rows("2:100")

'
End Sub


Merci d'avance pour votre aide.

[shadown08]

Bonjour à tous,

J'ai essayé avec le code suivant mais ça ne fonctionne pas :

Dim oWksh As Worksheet
Dim i As Byte

i = 1
j = 1
With Worksheets("Recap")
For Each oWksh In Worksheets
If oWksh.Name Like "Détail*" Then
Range("A9").Offset(0, 3 * i).Formula = "='oWksh'!R[9]C[17]"
Range("B9").Offset(0, 3 * i).Formula = "='oWksh'!R[9]C[18]"
Range("C9").Offset(0, 3 * i).Formula = "='oWksh'!R[9]C[19]"
i = i + 1
End If
Next oWksh
End With

Par exemple en D9, j'ai =oWksh!U18 alors que j'attends =Détail!Q9

Si quelqu'un a une idée ... Merci

[Minise]

je mettrais un truc dans ce genre là :

Code :

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

1
2
 
Range("A9").Offset(0, 3 * i).Formula = "='" & oWksh.Name & "'!R[9]C[17]"

[shadown08]

Merci !