Fonction si avec cellule contenant image comme condition.

Merci de l'intérêt porté à mon poste.
J'ai fais des commentaire dans le fichier Excel ci joint. Attend patiemment tes idées.
Voici le lien avec mon exemple :
https://www.cjoint.com/?0CjwxkcRotH

Bonsoir Mike-31
Au fait l'image qui apparait dans la cellule ne permet pas à excel de considérer que la cellule contient une information, donc avec le si() comme dans mon exemple, ou avec les fonction NB (NBVAL comme proposé ou NB.VIDE) excel ne voit que dalle même si l'image est lié à la cellule.

Exp avec ta formule : NBVAL(C3:F3) renvoie toujours 0 même si j'ai une image dans le cellule D3.

c'est pour ce que je tourne en rond.

D'autres Idées :)))

cordialement

Hello
Merci a toi eriiic. Je vais voir ça et je demanderai certainement des conseils car en matière de macro je suis largué. Mais il faut un début à tout.

En effet pas d'ouverture avec le 2010 mais pas de Pb avec le 207 ??? les image sont créer pas un écriture sur écran tactile.
A demain le temps de voir et comprendre (ce que je peu) pour poser des question de débutant :))).

Finalement une chose : je ne comprends pas ou plutôt sais pas comment faire : Par fonction personnalisée à mettre dans un module standard :
En plus dans votre formule colonne G j'ai #NOM (je présume que c'est en rapport avec le module standard à faire ??)

Merci d'avance pour ta patience.

Bonjour,

Alt+F11 pour ouvrir l'éditeur VBE.
Sur le projet de ton classeur à gauche, clic-droit et 'Insertion / Module'.
Coller le code dans dans cette nouvelle fenêtre à droite.
Ca y est, ta nouvelle fonction est disponible sur les feuilles.
N'oublie pas F9 pour rafraichir. L'ajout ou le déplacement d'image n'est pas détectable par VBA.
eric

Salut Éric,

J'ai de plus en plus la certitude que 2010 est bogué : pour moi, il voit très bien les images mais ta fonction ne les voit pas alors que sur 2007 tout est nickel.
Après les modifs de taille dans les listbox, les copies dans les tableaux, les suppression de lignes, etc, je commence à atteindre l'overdose.

Salut gb,

Effectivement, je n'avais pas testé le résultat sur 2010.
J'ai creusé un peu. En fait ce ne sont des images que sur 2003.
Sur les autres versions ce sont des InkComment. J'ai l'impression que ce sont des objets spécifiques à la saisie graphique manuelle.
Donc nouvelle version, testée sur 2003, 2010, 2013. A voir sur 2007.

Function nbImages(plage As Range)
    Dim obj As Shape
    Application.Volatile
    For Each obj In plage.Parent.Shapes
        Debug.Print obj.Type, obj.Name, obj.AutoShapeType
        If obj.Type = msoInkComment Or obj.Type = msoPicture Then
            ' msoPicture sur 2003, msoInkComment sur 2007-2013
            If Not Intersect(obj.TopLeftCell, plage) Is Nothing Then nbImages = nbImages + 1
        End If
    Next obj
End Function

J'ai failli t'appeler au secours hier soir :-) Mais en rédigeant le post détaillé une piste m'est apparue et c'était la bonne.

@Dr Zero : si tu n'as pas des centaines d'objets sur la feuille on peut ajouter un truc pour que la fonction se mette à jour sur la sélection d'une cellule quelconque.

eric

Salut Éric,

Sur 2007, c'est tout bon mais c'était déjà tout bon avant. Pour le calcul, tout le monde a quelque chose de différent du Z80 et donc cela devrait aller ! ;-)