Formule pour montant premier chiffre trouvé en colonne

Re,

un modèle est vite fait, soit tu décides d'afficher toute les lignes masquées

Private Sub CommandButton3_Click()
Cells.EntireRow.Hidden = False
End Sub

soit tu décides d'afficher les lignes en doublon que tu as masqué en fonction de la valeur en I8 qui est le même code

Private Sub CommandButton2_Click()
j = 0
    For i = 11 To 50
        If Cells(i, 6) = [I8] Then j = j + 1
        If j > 1 And Cells(i, 6) = [I8] Then Cells(i, 6).EntireRow.Hidden = False
    Next
End Sub

Je suis de retour. Je ne voudrai pas abuser mais en parlant d'exemple je pensait sur le fichier exemple. Ici je me perd = niveau pas bon

Christophe

Re,

Voilà

https://www.cjoint.com/c/LLwq6c7fAEF

Bonjour,

si j'ai bien compris

="ligne "&EQUIV(I8;F1:F28;0)

ou encore

=ADRESSE(EQUIV(I8;F1:F28;0);6)

on peut également identifier chaque valeur trouvée dans la colonne

Bonjour, merci pour la réponse qui indique le nombre de cellules contenant la référence mais ce n'est pas ce que j'ai demandé.

Il me faut en somme finale ici de 98 en résultat.

Christophe

Merci, c'est exactement la forme que j'ai besoin.

Vu que tu as pris connaissance du fichier exemple connaitrais tu la façon de masquer ici en F16 et F21 les cellules ou les deux polices vu quelle ne sont pas prises en compte pour l'opération?

Merci, Christophe

Re, Je met un autre fichier exemple    https://www.cjoint.com/c/LLwomk3HZha

Christophe

Re,

alors ce n'était pas compliqué et plusieurs formules comme 

=RECHERCHEV(I8;F11:F28;1;0)

par contre il est impossible de masquer une ou des cellules par simple formule, soit on masque la ligne complète, ou dans d'autres cas la colonne, mais en plus ce problème ne peut être réalisé qu'en VBA si tu as quelques notions.

Re, j'ai déjà essayé mais effectivement il est impossible de masquer simplement un ou l'autre .

Pour le VBA je n'ai pas asses de compétence pour trouver la solution.

Si tu as un début, je suis preneur.

Merci, Christophe

Re,

Alors un exemple de code VBA à placer dans un module et l'associer à un élément déclencheur ou dans les propriétés d'un bouton ActiveX pour masquer les lignes contenant des doublons colonne F 

Mais il faudra certainement créer un code pour afficher les lignes masquer si tu ne veux pas le faire manuellement

Private Sub CommandButton1_Click()
 j = 0
    For i = 11 To 50
        If Cells(i, 6) = [I8] Then j = j + 1
        If j > 1 And Cells(i, 6) = [I8] Then Cells(i, 6).EntireRow.Hidden = True
    Next
End Sub

Merci Mike-31

"Mais il faudra certainement créer un code pour afficher les lignes masquer si tu ne veux pas le faire manuellement"

Je sais faire mais avec un modèle, si tu as le temps ce serait bien

Christophe