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
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
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 ✓ - Forum Mobile
- Imprimante occupée canon - Forum Imprimante
1 réponse
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
Modifié par Patrice33740 le 15/04/2016 à 18:07
Bonjour,
Avec une fonction personnalisée :
Cordialement
Patrice
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
