Cellule

[Guismo33]

bonjour,

j'ai une Ref cellule et je voudrais quel soit egal a une autre Cellule

petit fichier

Merci A TOUS


Cdlmnt

 

[DoubleZero]

Re : Cellule

Bonjour, Guismo33, le Forum,

Comme ceci ?

Option Explicit
Sub Combien()
    With Range("j38")
        .Select
        .FormulaArray = _
        "=ADDRESS(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1]))),MATCH(MAX(RC[-8]:RC[-1]),INDIRECT(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))&"":""&MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))),0))"
        MsgBox Range(Selection).Value    ' ou .Offset(1, 0).Value = Range(Selection).Value ' pour un résultat sous j38
    End With
End Sub

A bientôt 🙂

 

[Guismo33]

Re : Cellule

Bonjour,
cela je l'avais compris, mais il faut que la cellule trouve en j38 corresponde a la cellule d3, attention ce sont des cellule variable.


Cdlmnt 😉

 

[DoubleZero]

Re : Cellule

Re-bonjour,

Autre suggestion :

Option Explicit
Sub Combien_V2()
    With Range("j38")
        .Select
        .FormulaArray = _
        "=ADDRESS(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1]))),MATCH(MAX(RC[-8]:RC[-1]),INDIRECT(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))&"":""&MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))),0))"
    End With
    [q1] = Range(Selection).Value
End Sub

A bientôt 🙂

 

[Guismo33]

Re : Cellule

Re,
merci pour ton aide mais la formule je l'avais deja, je t'ai refais le fichier avec plus d'exemple
Cdlmnt

 

[DoubleZero]

Re : Cellule

Re-bonjour,

Le soleil a tapé trop fort mon petit neurone 🙄... et / ou les explications ne sont pas assez claires 😕

Un dernier essai en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, job75 😀

 

[job75]

Re : Cellule

Bonjour Guismo33, DoubleZero,

je voudrais quel soit egal

En plus de l'orthographe qui esquinte les yeux, perso je ne comprends rien.

Que fait-on quand les cellules sont égales et que fait-on quand elles ne le sont pas ?

A+