sélection de tout sauf zéro

J

jp14

XLDnaute Barbatruc

• 15 Février 2008

• #2

Re : sélection de tout sauf zéro

Bonjour

Ci dessous une fonction personnalisée

Code:

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

 

Vote positif 0 Vote négatif

M

michal51

Guest

• 16 Février 2008

• #3

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

 

Pièces jointes

• Classeur1.xls

  13.5 KB · Affichages: 70
• Classeur1.xls

  13.5 KB · Affichages: 70
• Classeur1.xls

  13.5 KB · Affichages: 69

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 16 Février 2008

• #4

Re : sélection de tout sauf zéro

Bonjour Michal51, le forum,

peut être une piste avec Index

JHA

 

Pièces jointes

• index michal51.xls

  23.5 KB · Affichages: 61

Vote positif 0 Vote négatif

G

Guiv

XLDnaute Occasionnel

• 16 Février 2008

• #5

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

 

Pièces jointes

• ClasseurJP14.zip

  6.4 KB · Affichages: 34
• ClasseurJP14.zip

  6.4 KB · Affichages: 27
• ClasseurJP14.zip

  6.4 KB · Affichages: 28

Vote positif 0 Vote négatif

M

michal51

Guest

• 16 Février 2008

• #6

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+

 

Vote positif 0 Vote négatif

M

michal51

Guest

• 18 Février 2008

• #7

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 19 Février 2008

• #8

Re : sélection de tout sauf zéro

Bonsoir

michal51 à dit:

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

Cliquez pour agrandir...

Des infos dans le fichier

JP

 

Pièces jointes

• ClasseurJP14.zip

  7.5 KB · Affichages: 23
• ClasseurJP14.zip

  7.5 KB · Affichages: 20
• ClasseurJP14.zip

  7.5 KB · Affichages: 18

Vote positif 0 Vote négatif