Discussion :

[Pauliakov]

Bonsoir,

Je bloque sur un code que pourtant je pensais pas trop compliqué.

J'ai une base de données "Archives" alimenter avec une requête SQL. Une petite macro prend les données de la requête et les met à la suite dans ma feuille, sans espace.
La date du jour est ajoutée automatiquement dans la colonne C.


Je souhaite dupliquer les deux formules en A2 et B2 jusqu'à la dernière ligne non vide que l'on trouve dans la colonne D

J'ai donc trouvé sur divers forums des aides pour faire cette macro

Code :

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

1
2
3
4
5
6
7
8
Sub Mise_à_jour()
 
    Dim DL As Integer
        DL = Range("D" & Rows.Count).End(xlUp).Row
            Range("B2").AutoFill Destination:=Range("B3:B" & DL), Type:=xlFillDefault
        Range("A2").Select
 
End Sub

Mais je n'ai ni message d'erreur, ni résultat donc je bloque un peu. Auriez-vous une idée ?

Je vous mets un fichier test en pièce jointe pour illustrer mon propos

test.xlsm

De plus, je cherche le moyen de vérifier que la date du jour ne soit pas déjà dans la colonne C, si c'est le cas, ça devrait empêcher la macro de fonctionner, pour ne pas faire deux fois la sauvegarde

Merci

[anasecu]

Bonjour,

J'ai donc trouvé sur divers forums des aides pour faire cette macro

Comme ceci cela fonctionnerait sans doute mieux
et évite de mettre cette macro dans Thisworbook où elle n'a rien à faire
tu la mets dans la feuille ou dans un module standard.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Mise_à_jour_stock()

    Dim DL As Integer
    With ActiveSheet
        DL = .Range("D" & Rows.Count).End(xlUp).Row
            .Range("B2").AutoFill Destination:=.Range("B2:B" & DL), Type:=xlFillDefault
        .Range("A2").Select
    End With
End Sub

[Philippe Tulliez]

Bonjour,
Petite remarque : Le nombre de lignes dans une feuille Excel étant de 1.048.576, il serait plus judicieux de typer la variable DL comme un Long et pas comme un Integer

Autre solution que l'utilisation de la méthode AutoFill

Code :

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

1
2
3
4
5
6
7
Sub CopyFormula()
  Dim DL As Long
  With ActiveSheet
    DL = .Range("A" & Rows.Count).End(xlUp).Row
   .Range("D2:D" & DL).Formula = .Range("D2").Formula
  End With
End Sub

[Pauliakov]

Bonjour,

Merci pour votre aide, la dernière solution fonctionne et je ferais plus attention concernant l'ajout d'une macro sur un module plutôt que dans Thisworkbook

Cordialement