Discussion :

[grisan29]

bonjour a vous tous

dans ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton8_Click()
     Dim L As Long, c As Byte
Dim LargeurCol As Single, MaHauteur As Single
Application.ScreenUpdating = False
  Application.EnableEvents = False
    With Worksheets("Facture")
    'recherche ligne pour écriture
        L = .Range("B65536").End(xlUp).Row
        '=========================NUMERO===============================
        For I = 1 To Me.ListView1.ListItems.Count
        '<====================tranche/commentaire=========================
            .Range("C" & L + I).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
 
            If UCase(.Range("C" & L + I).Value) <> .Range("B" & L + I).Value Then
               .Range("C" & L + I).Font.Bold = True
               Else
             If LCase(.Range("C" & L + I).Value) <> .Range("B" & L + I).Value Then
               .Range("C" & L + I).Font.Size = Italic
            End If
            End If
End Sub

comment faire pour que la distinction entre la ligne 'Tranche" qui est en Ucase et le commentaire qui est en Lcase puisse cohabiter l'un après l'autre dans la feuille après l'appui sur le bouton
en fait si "=ucase alors Lcase=false où l'inverse

j'èspère etre assez clair

Pascal

[grisan29]

bonjour a vous tous
en ayant modifié les lignes j'obtiens ce que je veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
' tranche
.Range("C" & L + I).Value = Me.ListView1.ListItems(I).ListSubItems(1).Text
            With .Range("C" & L + I)
              .Font.Bold = True
              .Font.Size = 14
       .Font.Name = "arial"
       End With
'commentaire
            If UCase(.Range("C" & L + I).Value) <> .Range("C" & L + I).Value Then
              With .Range("C" & L + I)
              .Font.Italic = True
              .Font.Bold = False
              .Font.Size = 14
       .Font.Name = "arial"
       End With
            End If

et cela a résolu mon souci

Pascal