Macro excel

mato15 -  
 mato15 -
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
A voir également:

4 réponses

Polux31 Messages postés 7219 Statut Membre 1 204
 
bonjour,

Dim DerLig as long

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

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

;o)
0
mato15
 
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
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
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)
0
mato15
 
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
0