copier valeurs tableau dans feuilles

jy.bedenes · 15 Juin 2008

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 · 15 Juin 2008

Re : copier valeurs tableau dans feuilles

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

Code:

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 · 15 Juin 2008

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 · 15 Juin 2008

Re : copier valeurs tableau dans feuilles

Merci pour vos réponses.
ca marche parfaitement.

Jelf · 15 Juin 2008

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

copier valeurs tableau dans feuilles

jy.bedenes

Guest

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

jy.bedenes

Guest

Jelf

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

copier valeurs tableau dans feuilles

jy.bedenes

Guest

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

jy.bedenes

Guest

Jelf

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency