Discussion :

[Max123456789]

Bonjour,

J'ai un petit souci avec ce code étant débutant.
Je vous sollicite car je veux que cette feuille sois entièrement automatique.
A chaque fois que je dois faire fonctionner cette macro, elle dois ajouter des valeurs sur une colonne vide et donc à chaque fois rajouter +1 à chaque formule.
Le code n'est pas finit et c'est surtout la dernière ligne qui me pose problème.

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
Sheets("Avancement").Select
    Range("A3").Select
    Selection.End(xlDown).Select
    derniereligne2 = ActiveCell.Row
 
 
 
    Sheets("Base").Select
    Range("A8").Select
    Selection.End(xlDown).Select
    derniereligne = ActiveCell.Row
 
Sheets("Avancement").Select
Range("A2").End(xlToRight)(1, 2).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("A3").End(xlToRight)(1, 2).Select
ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,Base!R8C3:R" & derniereligne & "C33,31,FALSE)"
 
Selection.AutoFill Destination:=("Range("A3").End(xlToRight)(1, 2).Select:R" & derniereligne2 & "")

[ARTURO83]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Application.ScreenUpdating = False ' évite les scintillements de l'écran et augmente la vitesse d'exécution
    Sheets("Avancement").Select
    DerLig2 = Range("A3").End(xlDown).Row 'dernière ligne de la colonne A feuille "Avancement"
    DerLig = Sheets("Base").Range("A8").End(xlDown).Row 'dernière ligne de la colonne A feuille "Base"
    DerCol = Range("A2").End(xlToRight).Column 'Dernière colonne de la ligne 2 de la feuille "Avancement"
    Cells(2, DerCol + 1) = Date 'date du jour après la dernière colonne ligne 2 de la feuille Avancement
    Range(Cells(3, DerCol + 1), Cells(DerLig, DerCol + 1)).FormulaR1C1 = "=IFERROR(VLOOKUP(RC1,Base!R8C3:R" & DerLig & "C33,31,0)+1,"""")" 'Formule incrémentée de 1 à chaque ligne

Cdlt