Extraire des données en italique des tableaux d'une feuille et les copier

Bonjour,

J'essaie d'extraire les données en italique d'un tableau d'une feuille(ctbase) afin de les regrouper dans un tableau dans une autre feuille (3).

Cependant,malgré maintes tentatives, je sèche.

Voici le programme en question. Si vous avez un programme plus simple à me suggerer, je reste preneur

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

Bonjour Abalix,

Voici une méthode pour extraire les cellules en italique dans une colonne vers ta feuille 3

Pour tes prochaines question, met plutôt un fichier exemple que les lignes de codes

Restant à dispo

Merci Juice

Ca marche en effet! Je me suis cassé la tête à vouloir stocker les données dans un tableau avant restitution.

Ton code est beaucoup plus simple et pratique!