Discussion :

[HarmonyStar]

Bonjour,

J'ai un petit problème avec mon code. J'ai une boucle qui parcours la colonne A et une boucle la colonne B d'un fichier Excel.
Cependant j'aimerais que lorsque la condition de la fonction "estGras' est vrai, la boucle ne continue pas mais s'incrémente afin de continuer de parcourir le fichier sans prendre en compte les lignes en gras (sachant que les lignes en gras de la colonne A ne doivent en fait pas être affichée et du coup les lignes correspondantes dans la colonne B (qui ne sont elles pas en gras) doivent également être sautées.

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
 Dim i As Integer
    i = 1
    Dim j As Integer
    j = 1
        
    Do
        i = i + 1
        If EstGras((sht.Cells.Item(i, 1))) Then ???  'ici je ne sais pas comment faire car si je met : Not estGras la boucle continue quand même et le parcours de j s'execute...
            Me.Liste1.AddItem (sht.Cells.Item(i, 1))
            Do
                j = j + 1
                Me.Liste2.AddItem (sht.Cells.Item(j, 2))
            Loop While Cells(j, 2) <> ""
        En
    Loop While Cells(i, 1) <> ""

[Gado2600]

Bonjour,

Tout d'abord, on n'a aucune idée de ce que contient ta fonction "EstGras", qui est, je suppose, un appel d'une fonction.
Ensuite, as-tu regardé quelle valeur cette fonction retourne ? Sans parler de ce que contient sht.Cells.Item(i, 1) ?
Bref, on manque d'informations.

Par contre, je te conseille, au niveau de la boucle, de récupérer la dernière ligne non vide de ta plage de données Excel et de faire une boucle For dessus.
Cela te permettra par ailleurs de connaitre la dernière ligne qu'il trouve, ce qui peut être une raison de l'erreur que tu as.

Cordialement,

[HarmonyStar]

Function EstGras(a As Range) 'Sert a reperer les caracteres qui sont en gras
If a.Font.Bold Then
EstGras = True
Else
EstGras = False
End If
End Function

Pour ce qui est du Cells il représente des cellules excel. Mon fichier excel comprend une colonne avec des mots et une colonne avec des chiffres. La colonne avec des mots contient des titres (en gras). Ce que j'aimerais c'est ignorer ces lignes en gras lors de l'import de mon fichier et donc ignorer également la cellule de la colonne B située sur la même ligne.

[Gado2600]

Bonjour,
Je viens de voir que tu as mis en "Résolu". Comment as-tu corrigé ton problème ?
Cordialement,