DerniereLigne = Feuil1.Cells(Rows, Count, 1).End(xlUp).Row

Bonjour,

j'ai un petit souci avec ce code, lorsque le lance l'userform, il me mets la ligne Private Sub Actualisation() en jaune et le .Cells en bleu.

en vous remerciant pour votre temps et vos conseils

Olivier

Option Compare Text
Private Sub Actualisation()

    Dim Item As ListItems
    Dim DerniereLigne As Integer
    Dim i As Integer

    ListView1.ListItems.Clear
    DerniereLigne = Feuil1.Cells(Rows, Count, 1).End(xlUp).Row

    For i = 2 To DerniereLigne

    Set Item = ListView1.ListItems.Add(Text:=Feuil1.Cells(i, 1))

        Item.SubItems(1) = Feuil1.Cells(i, 2)
        Item.SubItems(2) = Feuil1.Cells(i, 3)
        Item.SubItems(3) = Feuil1.Cells(i, 4)
        Item.SubItems(4) = Feuil1.Cells(i, 5)
        Item.SubItems(5) = Feuil1.Cells(i, 6)
        Item.SubItems(6) = Feuil1.Cells(i, 7)

 Next i

 lblCompteur.Caption = ListView1.ListItems.Count

End Sub

Private Sub CommandButton1_Click()
Call Enreg
ThisWorkbook.Save
Unload Me
UFReference.Show
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

    txtPlaques = ListView1.SelectedItem(1)
    txtN° Chassis = ListView1.SelectedItem(2)
    txtPièces = ListView1.SelectedItem(3)
    txtRéférence Constructeur = ListView1.SelectedItemt(4)
    txtRéférences Fournisseur = ListView1.SelectedItem(5)
    txtFournisseur = ListView1.SelectedItem(6)

End Sub

Private Sub UserForm_Initialize()
    With ListView1
        .Gridlines = True
        .View = lvwReport
        .FullRowSelect = True
        .ColumnHeaders.Add Text:="Plaques", Width:=50
        .ColumnHeaders.Add Text:="N° Chassis", Width:=150
        .ColumnHeaders.Add Text:="Pièces", Width:=150
        .ColumnHeaders.Add Text:="Références Constructeur", Width:=100
        .ColumnHeaders.Add Text:="Références Fournisseur", Width:=100
        .ColumnHeaders.Add Text:="Fournisseur", Width:=100

    End With

    Call Actualisation

End Sub

Sub Enreg()
    Dim dernligne As Long
    With Worksheets("Feuil1")
        derligne = .Range("A1048576").End(xlUp).Row + 1
        .Range("A" & derligne).Value = ComboBox1.Text
        .Range("B" & derligne).Value = ComboBox2.Text
        .Range("C" & derligne).Value = ComboBox3.Text
        .Range("D" & derligne).Value = ComboBox4.Text
        .Range("E" & derligne).Value = ComboBox5.Text
        .Range("F" & derligne).Value = ComboBox6.Text

Call RAZ_UF
    End With

End Sub

Sub RAZ_UF()
    ComboBox1 = ""
    ComboBox2 = ""
    ComboBox3 = ""
    ComboBox4 = ""
    ComboBox5 = ""
    ComboBox6 = ""
End Sub

Bonjour

Remplaces (Rows, Count par (Rows.Count

EDIT : Utilises la touche F1

Merci beaucoup

Re bonjour, j'ai toujours un soucis avec ce fichier, je l'ai réécrit entièrement, refait l'userform, donner un autre nom, enfin tout quoi et il bug sur UserForm1.Show

Que se soit en module pour une macro sur une image, avec un bouton ou en ouverture automatique à l'appel du workbook.

J'en perd mon clavier

encore merci pour votre aide

Bonjour,

Va dans le code du userform > frappe F8 > répète F8 de ligne en ligne lentement > jusqu'à ce que tu trouves la ligne en erreur ...

Tu devrais trouver   Set Item = ListView1.ListItems.Add(Text:=Feuil1.Cells(i, 1))  ...

ric

bonjour,

Je lui ai refait un lifting : Le problème est que je ne sais pas trop à quoi il sert ton Userform... Mébon, il affiche les données, et si tu les corriges il écrit la correction sur la feuille. Mais pour le reste ça sera plus compliqué :

Si par exemple tu veux rajouter une ligne, là ça va le faire : Il lui faut un traitement de fond : De même si tu veux supprimer une ligne, ça va guère être possible en l'état. Mébon... ça va te donner une petite idée du chemin qu'il te reste à parcourir !

A+

un grand merci, je vais adapter à mes besoins

En tout cas si tu veux une modif sur ce fichier, il est préférable de rester sur ce fil. (pour éviter de changer à chaque coup de méthode)

A+