Bonjour,

je tente de faire une macro qui parcourt une plage de cellule sur la première colonne à partir de la ligne 14 jusqu'à la dernière cellule non vide de la colonne.

J'ai trouvé une multitude de méthodes sur internet mais aucune ne fonctionne chez moi.

Voila mon premier code (qui ne marche pas donc):

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
Set sht = ThisWorkbook.Worksheets("Liste films")
DerniereLigneEnA = sht.Range("A:A").Find("*", , LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 
 
p = 0
t = 0
For Each rng In sht.Range("A14:A" & DerniereLigneEnA)
    With rng
         If rng.EntireRow.Hidden = False Then
            Range("K7") = DerniereLigneEnA
            p = p + 1
            If Sheets("Liste films").Cells(6, 17) = "titres originaux" Then
               t = t + rng.Offset(0, 6)
            Else
               t = t + rng.Offset(0, 30)
            End If
         End If
    End With
Next
Le problème est que la boucle devrait commencer à partir de la ligne 14 mais la ligne 13 est quand même parcourue, d'ailleurs la dernière ligne calculée est la ligne 13 (comme par hasard).

Pour préciser le contenu de la colonne 1: les cellules 2 et 13 contiennent du texte, les cellules de la ligne 14 à 448 contiennent du texte en lien hypertexte et tout le reste est vide.

Quelqu'un peut-il m'aider en me disant ce qui cloche s'il vous plait?

Merci.