Macro excel

Bonjour a tous,
Tout les mois je rajoute des chiffres à une colonne et j'aimerai que la macro aille toute seul chercher le dernier nombre pour faire mes calculs.

Pouvez vous m'aider car celle qui est en dessous fonctionne un peu mais ne s'arrete pas sur le dernier chiffre et continue, donc affiche 0 apres

Sub Macro1()

Range("d1") = ""

i = 1

Do

If Range("a" & i) = "" Then Range("D1") = Range("a" & i - 1)

i = i + 1

Loop

End Sub

4 réponses

  1. bonjour,

    Dim DerLig as long

    DerLig = Range("A65536").End(xlUp).Row

    Range("D1") = Range("A" & DerLig).Value

    ;o)
    1. merci beaucoup pour l'aide
      Est ce que pourrai encore vous demander une faveur et avoir votre mail pour vous poser une autre question sur les macros
      Merci d'avance
      1. De rien pour l'aide. Mais je donne pas mon mail perso. Il y a les MP ici qui font offices de boîte aux lettres.

        Le principe de CCM est de faire profiter la communauté des solutions apportées.

        Merci de ta compréhension.

        ;o)
        1. pas de pb c'etait juste pour que se soit plus facile
          je vais essayer de vous expliquer via le site

          j'ai une colone de chiffre et je dois creer une macro qui retrouve la serie ou il y a eut le maximun de baisse en absolue consecutivement
          dans l'expemple ci dessous c'est la entre 137.51 et 127.01
          et apres je dois diviser ces deux chiffres 127.01/137.51=0.9236

          100
          100.50
          98.85
          97.12
          98.62
          99.01
          100.00
          102.00
          105.24
          107.92
          115.33
          113.81
          113.65
          109.59
          113.50
          113.14
          116.66
          128.58
          137.51
          128.28
          127.04
          132.17
          140.73
          133.62
          144.69
          159.68
          168.36
          171.71
          161.92
          163.07
          164.32
          163.60
          160.73
          163.33
          163.64
          165.7361682
          166.7471588
          167.9644131
          164.1348245
          163.7737279
          159.5319883
          160.2020227

          j'espere que je suis assez clair

          merci d'avance