Erreur 1004 - méthode 'Rows' de l'objet '_Global' à échoué

Bonsoir,

Vous avez utilisé ce code pour ajouter un signe X sur la ligne sélectionnée dans listbox (multiselect);

Dim i As Byte, j As Integer, nbl&

If ListBox1.ListIndex = -1 Then Exit Sub

With ThisWorkbook.Worksheets("Feuil1")
 nbl = .Range("A" & .Rows.Count).End(xlUp).Row
End With

With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            For j = 2 To nbl
                If ThisWorkbook.Worksheets("Feuil1").Cells(j, 1).Value = .List(i) Then
                    Rows(j).Select 'Lieu de l'erreur
                    ThisWorkbook.Worksheets("Feuil1").Cells(j, 6).Value = "X"
                End If
            Next j
        End If
    Next i
End With
'(La feuille est cachée)

Mais il y a un problème d'erreur 1004 .

Merci

Bonjour,

C'est bien caché > il ne reste rien dans ton fichier ...

ric

Bonjour ric;

J’ai utilisé ce code seulement et il a complètement disparu

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show vbModeless
End Sub

Bonjour,

erreur désolé

ric

Bonsoir …

Ayant l’habitude d’utiliser autant que faire ce peut les tableaux ( de la classe LitObjects pour ceux dans une feuille avec des propriétés permettant de simplifier les choses),

Option Explicit
Private Sub UserForm_Initialize()
    Lst.List = [Tb].Value
End Sub
Private Sub CommandButton1_Click()
    Dim n As Long, i As Long, j As Long
    If Lst.ListIndex < 0 Then Exit Sub
    n = [Tb].Rows.Count
    For i = 0 To Lst.ListCount - 1
            If Lst.Selected(i) Then
                For j = 1 To n
                    If [Tb].Item(j, 1).Value = Lst.List(i) Then [Tb].Item(j, 6).Value = "X"
                Next
            End If
        Next
    UserForm_Initialize
End Sub

Bonsoir Ordonc,

Oui, c’est une méthode pratique et facile à utiliser;

Malheureusement, j'ai travaillé normalement. Je vais devoir changer beaucoup de choses;

J’espère que ce sera une solution sans changement complet.

Bonjour,

En fait > ton code fonctionne bien sur Excel 365 ...

Je suggère donc d'essayer de simplement mettre en commentaire ou de supprimer la ligne  Rows(j).Select  ...

ric

Bonjour,

Aucun problème lors de la suppression de cette ligne ?