probleme de macro sur une listview

[cpeens]

bonjour à tous

j'ai un petit probleme sur une de mes macro que j'essais de modifier.

j'utilisais ma macro comme ceci pour charger ma listview et sa marchais bien

Sheets("parametre").Select
deproteg.DeprotegeTout
Dim Nom As Range, Test&
Set Nom = Sheets("parametre").Range("N2", [N2].End(xlDown))
Test = Application.WorksheetFunction.Match(ComboMail, Nom, 0) + 1
ListView1.ListItems.Add = ListView1.ListItems.Add & Cells(Test, 15) & ";"
CODE]

j'ai voulu ajouter une ligne suplementaire pour que apparais egalement dans la seconde collone des information complementaire donc j'ai ajouter cette ligne à la suite de la macro existante.

[CODE]Sheets("parametre").Select
deproteg.DeprotegeTout
Dim Nom As Range, Test&
Set Nom = Sheets("parametre").Range("N2", [N2].End(xlDown))
Test = Application.WorksheetFunction.Match(ComboMail, Nom, 0) + 1
ListView1.ListItems.Add = ListView1.ListItems.Add & Cells(Test, 15) & ";"

[COLOR="red"]ListView1.ListItems.Add.ListSubItems(1).Text = ListView1.ListItems.Add.ListSubItems(1).Text & Cells(Test, 14) & ";[/COLOR]"

probleme c'est que sa marche pas et j'ai un bug pouvez vous m'aider à modifier cette ligne de commande svp merci

 

[Hippolite]

Re : probleme de macro sur une listview

Bonjour,
Syntaxe pour alimenter une ListView : Utiliser le contrôle ListView en VBA Excel
A+

 

[cpeens]

Re : probleme de macro sur une listview

Bonjour hipolpolite mais le lien que tu ma donnée n'est pas accesible via ma connection d'entreprise donc je relance mon appel merci à vous

 

[cpeens]

Re : probleme de macro sur une listview

re bonjour donc j'ai essayer d'avancer en modifiant mon code comme ceci

With Sheets("Parametre")
Dim index1 As Long
    If flag = True Then
    Exit Sub
    End If
    flag = True
    'For index1 = 1 To ListView1.ListItems.Count
    On Error Resume Next
    If ComboBox1 = Left((.Cells(ComboBox1.ListIndex + 2, 1)), Len(ComboBox1)) Then
       
    
      ListView1.ListItems.Add = .Cells(ComboBox1.ListIndex + 2, 1)
     ListView1.ListItems.Add.ListSubItems = .Cells(ComboBox1.ListIndex + 2, 2)
       



        End If
        'Next index1
        End With
             flag = False

mais sa fonctionne pas mieux j'ai que les nom qui s'ajoute pas email

j'ai mis une PJ si une bonne ame passe par là a trés bientot

 

[CHALET53]

Re : probleme de macro sur une listview

Bonjour,

Avec ceci :

Private Sub CommandButton1_Click()

With Me.ListView1
Dim index1 As Long
If flag = True Then
Exit Sub
End If
flag = True
'For index1 = 1 To ListView1.ListItems.Count
On Error Resume Next
If ComboBox1 = Left((Sheets("Parametre").Cells(ComboBox1.ListIndex + 2, 1)), Len(ComboBox1)) Then
' Stop

ListView1.ListItems.Add = Sheets("Parametre").Cells(ComboBox1.ListIndex + 2, 1)


.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Parametre").Cells(ComboBox1.ListIndex + 2, 2)



End If
'Next index1
End With
flag = False
End Sub

a+

 

[cpeens]

Re : probleme de macro sur une listview

Bonjour chalet 53 et merci de l'aide que tu m'apporte

dans le code que tu m'a donnée il y à une erreur de syntax

With Me.ListView1
Dim index1 As Long
If flag = True Then
Exit Sub
End If
flag = True
'For index1 = 1 To ListView1.ListItems.Count
On Error Resume Next
[COLOR="red"]If ComboBox1 = Left((Sheets("Parametre").Cells(ComboBox1.ListInde x + 2, 1)), Len(ComboBox1)) Then[/COLOR]' Stop

ListView1.ListItems.Add = Sheets("Parametre").Cells(ComboBox1.ListIndex + 2, 1)


.ListItems(.ListItems.Count).ListSubItems.Add , , Sheets("Parametre").Cells(ComboBox1.ListIndex + 2, 2)



End If
'Next index1
End With
flag = False
End Sub

la partis en rouge semple etre en cause j'ai essayer enlever le x pensant sa venait de là mais sa n'a pas regler le probleme peut tu me confirmé que tous es comforme svp merci d'avance

 

[cpeens]

Re : probleme de macro sur une listview

Re désolé c'est bon j'ai trouvé ou sa allais pas

à index le x etait décalé sa fonctionne super bien merci encore à toi