Discussion :

[edelweisseric]

Bonsoir à tous

Dans une ligne, j'ai, dans des cellules, des formules AVEC des formats personnalisés : "nb : xx" ou "xx fois", xx étant le résultat de la formule

J'essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub essai_cherche_max()
 
For i = 1 To 2
    mavar = Application.Large(Sheets("Feuil1").Range("d5:iv5"), i)
 
    With Worksheets("Feuil1").Range("d5:iv5")
        Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole)
 
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
        'le traitement
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
Next
End Sub

mais cela ne fonctionne pas, "c" étant "Nothing".

Merci d'avance pour le coup de main

Eric

[mercatog]

la cause n'est pas le format personnalisé mais la valeur réelle des données.
xx fois est réellement xx.nnnnnnn...
je crois à toi de voir la précision voulue et de l'appliquer aux formules (Round ou Int).

[edelweisseric]

Re le forum
Bonjour mercatog

Mon problème est résolu par :

Code :

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

Set c = .Find(mavar, LookIn:=xlValues, LookAt:=xlPart)

Bonne fin de journée

Eric

[mercatog]

ça m'étonne.

sauf si monvar est un integer (peut être)
et le find donnera l'existence de monvar dans une partie des données.
le résultat restera aléatoire
Sauf erreur de ma part

[edelweisseric]

Re

Dans ce cas précis "mavar" est integer.

J'ai testé et cela fonctionne (pour l'instant)

Eric

[mercatog]

et le résultat des formules dans ta plage D5:IV5? (résultat brut sans mise en forme)

un petit test
sur une feuille en ligne 1, tu écris ces nombres: 3 11 2 3 1 8
tu exécute cette petite macro test

Code :

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

1
2
3
Dim c As Range
Set c = Rows(1).Find(1, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then MsgBox c.Column

le résultat est 2! alors qu'on s'attendait à 5