Discussion :

[brigneau]

Bonjour

Comment supprimer ce qui semble 1 trait de bordure bas (mais qui ne l'est pas) dans 1 cellule excel 2007. C'est peut-être un bouton de formulaires qui a été comprimé ...
Merci

[Invité]

i

Bonjour,

Y a-t-il des formes (shapes) ou des contrôles dans votre onglet ? Quelle cellule est concernée ?

[Menhir]

N'y a-t-il pas des lignes masquées ?
Ce ne serait pas un souligné ?

[brigneau]

Bonjour

Non il n'y a pas de caractère souligné ni de lignes masquées.

Il n'y a pas de shapes ni de boutons. les cellules incriminées sont nombreuses, notamment H15, M15 X8 ...
Lorsque je supprime une ligne, le trait sombre remonte à la cellule précédente. Il faut que je supprime les lignes depuis le début de la feuille pour qu'il disparaisse.
Ce qui peut-être 1 solution peut gracieuse ...

[Invité]

Bonjour,

Obtenez-vous une valeur > 0 avec le code suivant ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub EffacementShape()
 
' De Jacques BOISGONTIER
 
Dim S As Shape
Dim NbShapes As Integer
 
  NbShapes = 0
  For Each S In ActiveSheet.Shapes
    If Not Intersect(S.TopLeftCell, Range("$H$8:$X$15")) Is Nothing Then
        NbShapes = NbShapes + 1
      ' S.Delete
    End If
  Next S
  MsgBox NbShapes
 
End Sub

[brigneau]

Bonjour

Merci Erik, c'est bien cela des shapes contractées qui ont disparu après avoir intégré le S.delete dans le code

[Marc-L]

Bonjour,

voir cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …