Macro pour trie

bobjazz · 15 Septembre 2005

Bonjour le Forum

Voila mon probleme, j'ai un fichier qui comporte environ 50 feuilles, qui constitue pour moi une base de donnée, je voudrais mettre sur une feuille appellé 'suivi' les informations des cellules A13 et C6 de toutes les autres feuilles.
Est ce que c'est possible de faire une macro, au lieu de faire un copie coller, en gardant les noms des feuilles si c'est possible, le cas où je peut changer et mettre un nom different par exemple Feuil1, 2, ...

J'ai mis un fichier joint, reduit à 4 feuilles, pour etre sur d'etre en dessous des 50 kO, avec un exemple, plus facile à comprendre pour vous.

Merci d'avance

Bobjazz [file name=seV2.zip size=10907]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/seV2.zip[/file]

_Thierry · 15 Septembre 2005

Bonsoir BobJazz, le Forum

Pour finir la journée en beauté, voici un Cht'ti Code qui est un cadeau bonus pour toi.

Option Explicit

Sub Suivi()
Dim WS As Worksheet
Dim WSBase As Worksheet

Set WSBase = Sheets('SUIVI')

For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> WSBase.Name Then
        With WSBase.Range('A65536').End(xlUp)
        .Offset(1, 0) = WS.Range('C6')
        .Offset(1, 1) = WS.Range('A13')
        .Offset(1, 2).Hyperlinks.Add Anchor:=.Offset(1, 2), _
                      Address:='', _
                      SubAddress:=''' & WS.Name & ''!A1', _
                      TextToDisplay:=WS.Name
        End With
    End If
Next

Bonne Soirée
[ol]@+Thierry[/ol]

bobjazz · 15 Septembre 2005

Bonsoir @+Thierry

Toujours le meilleur, tu ne travaillerais pas avec un denommé Gates, tu lui as donné ton language LOL

Merci et la surprise , super

Merci
Bonne soirée

Bobjazz

Ben · 15 Septembre 2005

Bonsoir le forum,
je vais corriger le code de Thierry. Tu as oublié le 'End sub'

C'est une blague mais c'est tellement beau de pouvoir trouver quelque chose à dire après le travail de Thierry, que cela me procure le même sentiment quand je double une Ferrari arrétée à un feu rouge alors que je suis au volant d'une Fiat Panda.
Sur ce, Bonne soirée au mâitre et repose toi bien pour que tu continues à nous distiller tes codes qui sont si simples à lire car peu longs mais si difficiles à concevoir pour moi.

bobjazz · 15 Septembre 2005

Bonsoir le Fil

Pour le 'End Sub', Oh Maître, ils sont dur avec toi, tu n'as plus le droit à la moindre petite erreur. c'est cela la rançon de la gloire.

Bonsoir

Bobjazz

_Thierry · 16 Septembre 2005

Bonsoir mes amis, le Forum

Je viens juste de rentrer chez moi après une discussion sur le vie, sur l'ERP' et sur le reste de la vie. (après mise en place d'un ERP... Plus que de la philo ce genre de speach)

Et bien Ben tu m'as fait plaisir, car au mois il y en a qui suivent. Dans un test VB un code sans fermeture et bien je pense que la 'note' ne serait pas aussi tolérante que vous les gars

Merci à vous tous

et quant à Ben moi aussi je double des Ferrari......... et pourtant j'ai une 51V (pour les connaisseurs) mais dans Monaco (pour les connaisseurs) c'est très facile !!!

Bonne nuit et merci
[ol]@+Thierry[/ol]

Macro pour trie

bobjazz

XLDnaute Impliqué

Pièces jointes

_Thierry

XLDnaute Barbatruc

bobjazz

XLDnaute Impliqué

Ben

Guest

bobjazz

XLDnaute Impliqué

_Thierry

XLDnaute Barbatruc

Discussions similaires