Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Voici un petit fichier à tester. Qui pourrait m'expliquer pourquoi on ne peut pas aller à plus de 9999 sur un For each et comment résoudre ce problème (voir fichier).
Les cellules de la colonne A sont en Texte
si tu compare des textes, c'est l'ordre alphabétique qui prime, c'est à dire (comme dans le dictionnaire) une comparaison caractère à caractère
de cette manière, pour du texte, "15" sera inférieur à "2" car "15" commence par un "1" (de la même manière que "az" sera classé avant "b" dans le dictionnaire)
pour le texte, la valeur la plus grande est donc bien celle qui contient tous les 9, "9999" dans ta colonne
Pour que la comparaison soit numérique, il faut convertir en nombre
Code:
Sub TrouveMax()
Dim CellMax As Double
Range(Cells(1, 1), Cells(10695, 1)).Select
CellMax = 0
For Each cell In Selection
If CDbl(cell.Value) > CellMax Then CellMax = CDbl(cell.Value)
Next
MsgBox CellMax
End Sub
Donc pas de limite à 9999 pour for each (s'il y a une limite je ne la connais pas)
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.