Message d'erreur pour supprimer une ligne

[maval]

Bonjour,

J'ai un petit souci avec mon formulaire lorsque je veut supprimer une ligne de ma feuille a l'aide de mon formulaire j'ai un message d'erreur "Impossible de lire la propriété Interior de la classe Range"

Du a ce code ci-dessous:

'Cette partie sert a selectionner la ligne de la listbox
Private Sub ListBox1_Click()
With Sheets("Adresse")
    .Range("C9:C1000").Interior.ColorIndex = xlNone
    .Cells(ListBox1.ListIndex + 9, 3).Interior.ColorIndex = 3 ' Donne la couleur a la cellule
End With
End Sub

Je joint mon fichier pour l'exemple

 

[pierrejean]

Re : Message d'erreur pour supprimer une ligne

Bonjour maval

Je n'ai pas vraiment d'explication mais avec la complicité d'un flag je crois avoir réglé le problème

 

[JBARBE]

Re : Message d'erreur pour supprimer une ligne

Bonjour à tous,

Il suffit de supprimer la ligne :

.Range("C9:C1000").Interior.ColorIndex = xlNone

Qui ne sert à rien puisqu'on supprime une ligne !

bonne journée

 

[pierrejean]

Re : Message d'erreur pour supprimer une ligne

Re

Pas d'accord JBARBE
teste le cas ou, pris de remord avant de supprimer, on choisit une autre ligne

 

[JBARBE]

Re : Message d'erreur pour supprimer une ligne

RECTIFICATION :

* dans > Private Sub combobox1_Click()

.Range("C9:C1000").Interior.ColorIndex = xlNone

* dans > Private Sub ListBox1_Click() :

.Range("C9:C1000").Interior.ColorIndex = xlNone
.Cells(ListBox1.ListIndex + 9, 3).Interior.ColorIndex = 3 ' Donne la couleur a la cellule

Ces lignes posent probléme ( en les enlevant on évite le message d'erreur ) !

Mais la solution de pierrejean est la bonne !

 

[Jack2]

Re : Message d'erreur pour supprimer une ligne

Bonjour à tous,

J'ai testé plusieurs fois la procédure suppression de ligne sans aucune erreur. Je voulais savoir si j'étais le seul.

Ci-joint deux petites modifications (cf. texte dans le fichier).


A+

 

[maval]

Re : Message d'erreur pour supprimer une ligne

Bonjour Pierrejean, JBARBE

Je vous remercie avec un peu de retard mais travail oblige.

Bonne journée