Discussion :

[Marcfruye]

Bonsoir à tous,

Quelqu'un saurait-il me corriger l'erreur présente dans cette boucle ?
VBA me dit "Erreur de compilatio : qualificateur incorrect

Voici la boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Double
Dim LMaxDD As Double
Dim cellresultat As Double
cellresultat = Application.Min(range("D2:D20000"))
LMaxDD = Application.Match(cellresultat.range("D2:D20000"))
i = LMaxDD
For i = 10000000 To 0
If LMaxDD < LMaxDD - 1 Then cellresultat = LMaxDD - 1
If LMaxDD = 0 Then
Exit For
End If
Next

Je vous remercie d'avance, je dois rendre ça pour demain et je galère complètement !

Marc

[mercatog]

Code :

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

For i = 10000000 To 0 Step -1

[Marcfruye]

Merci cela fonctionne parfaitement !

Encore une question néanmoins

Code :

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

range("G4").Value = Application.Min(range("D2:D20000"), 1)

Me donne dans la cellule G4 " 00.01.1900 13:10:17" alors que l'évènement arrive le 12.03.2003 et occupe la cellule 3831. Voyez-vous l'erreur? Merci
Cordialement,
Marc

[Philippe Tulliez]

Bonjour,

Encore une question néanmoins

Code :

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

range("G4").Value = Application.Min(range("D2:D20000"), 1)

Me donne dans la cellule G4 " 00.01.1900 13:10:17" alors que l'évènement arrive le 12.03.2003 et occupe la cellule 3831. Voyez-vous l'erreur? Merci

Il y a une forte chance que dans la plage $D$2:$D$20000, il y a au moins une cellule contenant la valeur 0.
Pour s'en convaincre, il suffit de faire le test directement dans Excel.
en A2, on tape

Code :

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

=MIN(C2:C11)

En C2:C11 pour l'instant toutes les cellules sont vides et on tape simplement en cellule C5 12/03/2003.
On constate que l'on reçoit le n° de série du 12/03/2003 soit 37692.
On formate la cellule A2 comme une date et ensuite on tape 0 dans une des cellules de la plage C2:C11 et que constate-t-on?
La cellule A2, renvoie 0/01/1900 c'est à dire 0
Donc dans ton cas, il y a sans doute plusieurs 0 qui donne un minimum de 0,55 soit 13h10m17s le 31/12/1899 mais comme l'année 1899 n'existe pas pour excel c'est le 0/1/1900

[Marcfruye]

Bonsoir Corona,

Merci c'est très juste.
En y allant par tatonnement, j'ai fini par mettre

Code :

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

range("G4").Value = Application.Min(range("D2:D20000"), 1)

Avant la boucle For, ce qui a parfaitement fonctionné.

Ce sujet est maintenant résolu.

Merci à tous et je vous souhaite un excellent week-end

Marc