Cellule occupée par graphique

Résolu/Fermé

julien - 15 avril 2016 à 15:29
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 15 avril 2016 à 18:04

Bonjour,

Je me demande si une fonction permet de vérifier si le Range("X") contient un graphique .. ?

Je fait avec If Range("X")<>0

Mais il me dise que la cellule est vide alors qu'il y a un graphique dedans ..

Merci

A voir également:

Cellule occupée par graphique
Changer carte graphique - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Ligne occupée bloqué ✓ - Forum iPhone
Carte graphique oc - Forum Carte graphique

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié par Patrice33740 le 15/04/2016 à 18:07

Bonjour,

Avec une fonction personnalisée :

Sub Test()
  If IlyaUnGraphiqueSurLaPlage(ActiveCell) Then
    MsgBox "Il y a un graphique sur " & ActiveCell.Address(0, 0)
  End If
End Sub

Private Function IlyaUnGraphiqueSurLaPlage(r As Range) As Boolean
Dim s As Shape
With r.Parent
 For Each s In .Shapes
  If Not Intersect(r, .Range(s.TopLeftCell, s.BottomRightCell)) _
         Is Nothing Then
   IlyaUnGraphiqueSurLaPlage = True
   Exit Function
  End If
 Next s
End With
End Function

Cordialement
Patrice

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Ligne occupée : pourquoi mon téléphone sonne occupé ?

ligne téléphonique occupée

Imprimante Epson XP-2100 : "imprimante occupée"???

imprimante occupée même sans impr en attente