Message d'erreur pour supprimer une ligne

maval · 18 Septembre 2013

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:

Code:

'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 · 18 Septembre 2013

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 · 18 Septembre 2013

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 · 18 Septembre 2013

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 · 18 Septembre 2013

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 · 18 Septembre 2013

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 · 18 Septembre 2013

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

Message d'erreur pour supprimer une ligne

maval

XLDnaute Barbatruc

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

JBARBE

XLDnaute Barbatruc

Jack2

XLDnaute Occasionnel

Pièces jointes

maval

XLDnaute Barbatruc

Discussions similaires