Problème avec champ vide dans listview

Bonjour le forum

J'ai une ListView avec 4 colonnes .

Lorsque je boucle sur les lignes pour récupérer la valeur des colonnes, il arrive que la 4ème colonne soit vide. Dans ce cas , J'ai systématiquement une erreur dés que je veux récuperer sa valeur.

Private Sub CmdModifFeuille_Click()
Dim Lig, cplus1
Lig = 2
cplus1 = "B"
    For i = 1 To ListView1.ListItems.Count
        Range("B" & Lig) = ListView1.ListItems(1).Text
        'Boucle sur les colonnes
        For j = 1 To 4
           'récup lettre colonne suivante
            cplus1 = Chr$(Asc(cplus1) + 1)
            Range(cplus1 & Lig) = ListView1.ListItems(i).ListSubItems(j).Text
        Next j
    Next i
End Sub

Dés que j = 4 j'ai le message d'erreur car colonne vide..

Merci à l'avance pour l'aide que vous pourrez m"apporter

Bonjour,

étant donné que tu peux avoir du vide alors il y a condition

Dans ce cas, dans ton code, il te faut If / End If

Bonjour

En fait, je viens de constater que cela plante seulement si c'est la dernière colonne qui est vide

J'ai rajouté le "IF"

If ListView1.ListItems(i).ListSubItems(j).Text <> "" Then
        Range(cplus1 & Lig) = ListView1.ListItems(i).ListSubItems(j).Text
End If

Cela plante au moment du test...donc pas mieux..

A suivre

Merci

Pour moi c'est la condition ="" et non pas <>"" seulement pour le 4

Bonjour Patty5046,

'récup lettre colonne suivante
            cplus1 = Chr$(Asc(cplus1) + 1)
Range(cplus1 & Lig)=""
On Error  Resume Next
            Range(cplus1 & Lig) = ListView1.ListItems(i).ListSubItems(j).Text
            Next J

Donc si la 4 ième colonne est vide le Range le restera sinon il récupérera le texte présent dans la ListView.

Bons tests, bonne continuation.

Bonjour X Cellus

Cela me paraît bon

Merci infiniment...je n'y avais pas pensé

Bonne soirée à toi et à tous

Je me repose ce soir ...ma tête explose

Bonne soirée

A nouveau,

Cela arrive quand on est trop occupé(e). On doit laisser reposer, faire une pause puis revenir dessus ensuite.

Bonne soirée.

Rechercher des sujets similaires à "probleme champ vide listview"