Bonjour,

Je ne sais pas coder, je me contente de faire des macro, puis de venir chercher sur votre fofo (merci ), les bouts de codes qui me manque à droite ou à gauche pour que ça tienne la route, mais là je ne trouve pas.

Ma macro est en deux partie :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' IPTT Macro
' Macro enregistrée le 23/11/2012 par i0155970
'
 
'
    Cells.Select
    Range("K6").Activate
    Application.CutCopyMode = False
    With Selection
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    For Each ws In ActiveWorkbook.Worksheets
    With ws.Range("G13:G5312")
            .NumberFormat = "0"
            .Value = .Value
    End With
    Next
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "CSMS"
Jusque là tout va bien, mais la seconde, je souhaite qu'elle s'exécute sur tous les onglets présents (le nombre peut varié) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sheets("IP%1014").Select
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC4,CSMS!R13C7:R5312C31,4,0)"
    Range("M3").Select
    Selection.AutoFill Destination:=Range("M3:M662")
    Range("M3:M662").Select
Au final je crée cette macro pour une vingtaine de personnes, qui s'en serviront avec des extractions différentes (onglet CSMS) et des onglets IPTT différents à remplir ; et je ne sais pas vraiment comment rendre cette macro disponible facilement.
Je me fais bien comprendre ?

*Merci*