copier valeurs tableau dans feuilles

[jy.bedenes]

Bonjour,
je souhaieterais grace à une macro copier des valeurs contenues dans des cellules d'un tableau sur des feuilles portant le même nom que la valeur inscrite dans la première colonne du tableau.
je joins un fichier pour éclairer ma question.
Merci pour votre aide

 

[TooFatBoy]

Re : copier valeurs tableau dans feuilles

En attendant que des pros te répondent, tu peux essayer un truc de ce genre :

Sub copie()
Dim LigLec As Double
Dim NomOnglet As String

LigLec = 6
While Sheets("Tableau").Cells(LigLec, 1) <> ""
    NomOnglet = Trim(Str(Sheets("Tableau").Cells(LigLec, 1)))
    Sheets(NomOnglet).Range("C5") = Sheets("Tableau").Cells(LigLec, 3)
    Sheets(NomOnglet).Range("C6") = Sheets("Tableau").Cells(LigLec, 4)
    Sheets(NomOnglet).Range("O6") = Sheets("Tableau").Cells(LigLec, 5)
    Sheets(NomOnglet).Range("O7") = Sheets("Tableau").Cells(LigLec, 6)
    Sheets(NomOnglet).Range("O8") = Sheets("Tableau").Cells(LigLec, 7)
    Sheets(NomOnglet).Range("C7") = Sheets("Tableau").Cells(LigLec, 8)
    LigLec = LigLec + 1
Wend
End Sub

 

[kjin]

Re : copier valeurs tableau dans feuilles

Bonjour,
Si les index de feuille ne changent pas :

Sub Copie()
Set plge1 = Sheets("tableau").Range("A6:A" & Range("A1000").End(xlUp).Row)
For Each F In plge1
With Sheets(F + 1)
.Range("C5").Value = F.Offset(0, 2).Value
.Range("C6").Value = F.Offset(0, 3).Value
.Hyperlinks.Add Anchor:=.Range("C7"), _
Address:="mailto:" & F.Offset(0, 7).Value, _
TextToDisplay:=F.Offset(0, 7).Value
End With
Next
End Sub

A+
kjin

 

[jy.bedenes]

Re : copier valeurs tableau dans feuilles

Merci pour vos réponses.
ca marche parfaitement.

 

[Jelf]

Re : copier valeurs tableau dans feuilles

Bonjour, j'ai un travaillé sur ton sujet et quelque peu modifié ton classeur. Je te joint le fichier.

A+

Cordialement