Code Vba Mise en forme d'affichage

[TheProdigy]

Bonjour tout le monde,

J'ai appliqué un format nombre sur toutes les colonnes et lignes de la listeview
Mais je ne cherche que les colonnes 10 11 12 13 et 14 qui doivent être mises en forme sous le format Format(Feuil1.Cells(i, j), "#,##0.00") car la colonne 9 contient des dates et les colonnes de 1 à 8 contiennent du texte

With ListView1
        For i = 2 To derlig
            .ListItems.Add , , Feuil1.Cells(i, 1)
            For j = 2 To 14
                .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil1.Cells(i, j), "#,##0.00")
            Next j
        Next i
    End With

Merci

 

[Compte Supprimé 979]

Bonjour

J'ai appliqué un format nombre sur toutes les colonnes et lignes de la listeview
Mais je ne cherche que les colonnes 10 11 12 13 et 14 qui doivent être mises en forme sous le format Format(Feuil1.Cells(i, j), "#,##0.00") car la colonne 9 contient des dates et les colonnes de 1 à 8 contiennent du texte

Ca me parait simple pourtant, tu as juste besoin de faire un test

With ListView1
  For i = 2 To derlig
    .ListItems.Add , , Feuil1.Cells(i, 1)
    For j = 2 To 14
      If j = 10 Or j = 11 Or j = 12 Or j = 13 Or j = 14 Then
        .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil1.Cells(i, j), "#,##0.00")
      End If
    Next j
  Next i
End With

A+

 

[Theze]

Bonjour,

Ou avec un Select Case :

With ListView1
  For I = 2 To derlig
    .ListItems.Add , , Feuil1.Cells(I, 1)
   
    For J = 2 To 14
        Select Case J
            Case 10 To 14: .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil1.Cells(I, J), "#,##0.00")
      End Select
    Next J
  Next I
End With

 

[TheProdigy]

Merci @Theze @BrunoM45

Mais cela n'affiche que les colonnes 10 à 14 alors que je veux afficher toutes les colonnes seulement la mise en forme des chiffres prend effet ou commence à partir de la colonne 10 jusqu'à la colonne 14

Merci

 

[TheProdigy]

Bonjour @Theze Bonjour @BrunoM45 bonjour le forum,

Grâce à vos solutions j'ai trouvé la solution adéquate
la voilà

With ListView1
        For i = 2 To derlig
            .ListItems.Add , , Feuil1.Cells(i, 1)
            For j = 2 To 14
                Select Case j
                    Case 10 To 14: .ListItems(.ListItems.Count).ListSubItems.Add , , Format(Feuil1.Cells(i, j), "#,##0.00")
                    Case 2 To 9: .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
               
                End Select
            Next j
        Next i
    End With

Merci beaucoup