Bonjour,

J'aimerai pouvoir extraire toutes les données en italique d'une feuille et les regrouper dans un tableau dans une autre feuille. Cependant, malgré maintes tentatives, je suis bloqué.
Voici mon programme (et si vous avez de suggestions d'un programme plus simple,je suis preneur

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
22
23
24
25
26
27
28
29
30
31
Dim liste_gcao()
ReDim liste_gcao(taille_tb)
 
 
Dim c As Integer
Dim a As Integer
 
 
Dim val_gcao As String
 
a = 0
 
 
For i = 1 + prem_ligne To dern_ligne
c = 0
val_gcao = Sheets(ctbase).Cells(i, 1)
val_gcao1 = Sheets(ctbase).Cells(i, 1).Font.Italic = False
For n = 0 To a - 1
        If liste_gcao(n) Like val_gcao Or val_gcao1 Then
        c = c + 1
        End If
    Next n
        If c = 0 Then
        liste_gcao(a) = val_gcao
        a = a + 1
        End If
    Next i
 
   For i = 1 To a - 1
Sheets(3).Cells(i, 2) = liste_gcao(i)
Next i

Merci