sélection de tout sauf zéro

[michal51]

Bonjour forum,
je voudrais savoir quelle est la formule pour trouver la seule case qui n'est pas égal à zéro.
j'ai une matrice plusieurs ligne et colonnes. Tout est égal à zéro et une case est égal à un texte.
Comment faire?

 

[jp14]

Re : sélection de tout sauf zéro

Bonjour

Ci dessous une fonction personnalisée

Function celllenonvide(plage As Range)
Dim cellule As Range
Application.Volatile
    For Each cellule In plage
    If cellule <> 0 Then
    celllenonvide = cellule.Address
    Exit Function
    End If
    Next cellule


celllenonvide = ""
End Function

A tester

JP

 

[michal51]

Re : sélection de tout sauf zéro

Bonsoir jp,
cette formule n'a pas l'air de fonctionner. Apparement, "exit" ne peut pas s'inscrire dans VB. Mais peut-être que j'ai pas tout compris. Je suis assez débutant dans le domaine et des choses comme Vitual Basic m'échappe un peu.
Pour essayer, je t'envoie le fichier, si tu peux faire quelque chose tiens moi au courant.
Ciao

 

[JHA]

Re : sélection de tout sauf zéro

Bonjour Michal51, le forum,

peut être une piste avec Index

JHA

 

[Guiv]

Re : sélection de tout sauf zéro

Bonjour à tous,
Chez moi, la solution de JP14 fonctionne bien (en remplaçant 'Address' par 'Value')
Bonne journée,
Guiv

 

[michal51]

Re : sélection de tout sauf zéro

Salut,
merci à vous deux, Guiv ta solution est celle que je cherchais, je vais voir coment tu as fait et le refaire.
Merci beaucoup à vous tous en tout cas

A+

 

[michal51]

Re : sélection de tout sauf zéro

Bonjour à tous,

maintenant j'ai la bonne formule, mais je vois pas où et comment il faut la rentrer dans excel. Quelqu'un pourrait m'aider, je suis débutant en la matière. J'ai regarder dans Macro et virtual basic mais rien du tout. Je n'arrive pas à l'appliquer à une autre application.

Merci

 

[jp14]

Re : sélection de tout sauf zéro

Bonsoir

Bonjour à tous,

maintenant j'ai la bonne formule, mais je vois pas où et comment il faut la rentrer dans excel. Quelqu'un pourrait m'aider, je suis débutant en la matière. J'ai regarder dans Macro et virtual basic mais rien du tout. Je n'arrive pas à l'appliquer à une autre application.
Merci

Des infos dans le fichier

JP