Présence dessin dans cellule

[ledaf]

Bonjour à tous,

J'ai un tableau contenant plusieurs lignes et colonnes, ayant la forme d'un planning. Sur chaque ligne il y a un dessin situé à une date du planning permettant de savoir que l'action est terminée.
Je tente de repérer à quel mois apparaissent ces dessins.

Y-a-t-il un moyen permettant de détecter la présence d'un dessin dans une cellule?

Merci pour votre aide.

 

[sousou]

Re : Présence dessin dans cellule

Bonjour ledaf

Voici de quoi trouver la cellule ou se trouve le dessin, celà devrait t'aider
Sub deb()
For Each dess In ActiveSheet.Shapes
MsgBox dess.TopLeftCell.Address
Next
End Sub

 

[ledaf]

Re : Présence dessin dans cellule

C'est possible de l'ajouter dans le code ci-dessous, en utilisant les mêmes paramètres, à savoir dès qu'il détecte un dessin alors, une cellule sur la même ligne est égale à une cellule appartenant à la même colonne?

Dim i As Integer
Dim j As Integer
For i = 9 To 600
    For j = 13 To 38
        Cells(i, j).Select
        If Selection.Interior.ColorIndex = 44 And Selection.Offset(0, 1).Interior.ColorIndex = xlNone Then
            Cells(i, 12) = Cells(8, j)
        End If
    Next j
Next i

 

[sousou]

Re : Présence dessin dans cellule

re
Désolé,
mais je ne comprend pas ce que tu veux

 

[ledaf]

Re : Présence dessin dans cellule

Déjà merci pour ta 1ère réponse.

En fait dans mon planning il y a des couleurs et des dessins.
La fin de mes actions (chaque ligne correspondant à une action) est représenté soit par une couleur soit un dessin.
Moi j'ai réussi à détecter lorsqu'il y une certaine couleur cela m'affiche dans une cellule la date.
Ce que j'aimerai c'est faire la même chose pour un dessin.

Tu vois ce que je veux dire?

Ci-joint un exemple.

 

[sousou]

Re : Présence dessin dans cellule

Voici ce que tu perux faire

Attention tous les dessins vont te renvoyer une date, en l'ocurrence dans ton exemple,
ton explication va renvoyer une date
il faudra integrer un test du nom du dessin si il ya d'autres shapes dans ta feuille.
Sub madate()
For Each dessin In ActiveSheet.Shapes
ActiveSheet.Cells(dessin.TopLeftCell.Row, 2) = ActiveSheet.Cells(1, dessin.TopLeftCell.Column)
Next
End Sub

 

[ledaf]

Re : Présence dessin dans cellule

Merci pour ta réponse.
C'est vraiment quelque chose dans ce sens que je veux.
L'idéal serait vraiment de l'inclure dans le code que j'ai déjà écrit.
Car j'applique cette macro sur une partie de ma feuille, or avec ce bout de code je touche toute la feuille et malheureusement j'ai d'autres dessin sur cet feuille, qui n'ont rien à voir avec ce que je veux faire.

J'ai besoin encore un peu d'aide svp.

 

[sousou]

Re : Présence dessin dans cellule

Bonjour Ledaf.

Le mieux serait que tu joignes le fichier avec ton code

 

[ledaf]

Re : Présence dessin dans cellule

Je me suis arrangé avec ta 1ère solution et ça fonctionne très bien.
Je t'en remercie.