Macro?

Re,

voilà un exemple de code fait avec les éléments du fichier joint

Option Explicit

Sub myTest()
Dim sh As Worksheet
Dim i As Long
Dim str As String

    i = 1
    For Each sh In Worksheets
        str = sh.Name
        If str <> "Modalité" And str <> "Evaluation générale" Then
            str = Mid(str, 1, 5)
            Worksheets("Evaluation générale").Range("A" & i).Value = str
            Worksheets("Evaluation générale").Range("B" & i).Value = sh.Range("D3").Value
            i = i + 1
        End If
    Next sh
    
End Sub

Ce code est à placer dans un module standard. Ensuite il faut faire Alt+F8, selectionner la macro myTest et exécuter.

;o)

Rien de plus facile. Et tu peux même le faire tout seul :o)

Tu changes le : i = 1 par i = 5

et ensuite le : sh.Range("D3").Value par sh.Range("AE1").Value

Tu sauvegardes et le tour est joué.

Bonne continuation et n'oublie pas de mettre le post en résolu stp.

;o)

Bonjour,

C'est à dire ? un petit exemple serait le bienvenu.

;o)

Heu.. oui c'est pas fau ca :)

VOici le lien
http://www.cijoint.fr/cjlink.php?file=cj200810/cij5sCJBvB.xls

Le but c'est que dans la page 2 Evaluation générale
il y est
en colonne A
U1T5
U2T8
U10T8
U25T5
U25T1

et en face en colonne B les donné qui sont dans chacune des page en céllule D3... (enfin pour mon vrai tableau ca sera en colonne AE2

Merci

Merci c'est génial

Je peux demander 2 petite modif?

est ce que c'est possible que ce soit les donnée en AE1 plutot qu'en D3?
Est ce que c'est possible de faire commencer la liste à partir de la ligne 5?

Merci :)

Merci
C'est parfait!!

De rien, content de t'avoir rendu service.

bon courage pour la suite.

;o)