L
Louve
Guest
Bonjour, j'ai essayé de recopier le module et le USF dans mon vrai tabeau avec les données, mais une « erreur de compilation variable non définie » se produit 😛rivate Sub UserForm_Initialize()
Dim DerCol As String, Cel As Range, Ind As Integer
DerCol = ActiveSheet.Range("IV3").End(xlToLeft).Address
Ind = 1
With Me.ListView1
.ListItems.Clear
For Each Cel In Range("A3:" & DerCol)
.ListItems.Add , Cel.Address, Cel
Ind = Ind + 1
Next
.View = lvwReport 'affichage en mode Rapport
.Gridlines = True 'affichage d'un quadrillage
.FullRowSelect = True 'Sélection des lignes comlètes
.LabelEdit = 1 'empêcher la modification manuelle des données en spécifiant la valeur 1
.MultiSelect = False ' Multiselection inutile
End With
End Sub
Que signifie : View = 1nwiew Report ?
Merci à l'avance de votre aide.
Dim DerCol As String, Cel As Range, Ind As Integer
DerCol = ActiveSheet.Range("IV3").End(xlToLeft).Address
Ind = 1
With Me.ListView1
.ListItems.Clear
For Each Cel In Range("A3:" & DerCol)
.ListItems.Add , Cel.Address, Cel
Ind = Ind + 1
Next
.View = lvwReport 'affichage en mode Rapport
.Gridlines = True 'affichage d'un quadrillage
.FullRowSelect = True 'Sélection des lignes comlètes
.LabelEdit = 1 'empêcher la modification manuelle des données en spécifiant la valeur 1
.MultiSelect = False ' Multiselection inutile
End With
End Sub
Que signifie : View = 1nwiew Report ?
Merci à l'avance de votre aide.