Discussion :

[youbewt]

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.

[casefayere]

Bonjour,
ton code est si confus que je ne comprends pas ton but, mais pour trouver la dernière ligne, tu peux utiliser cette ligne :

Code :

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

DerniereLigneEnA = sht.Range("A" & sht.Rows.Count).End(xlUp).Row

et pui commencer ta boucle, par exemple :

Code :

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

1
2
3
4
5
For x = 14 to DerniereLigneEnA
    If Range("A" & x)....Then
'.......
 
Next x

[parmi]

Bonjour,

Code :

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

1
2
3
4
5
DerniereLigneEnA = sht.Cells(Rows.count, "A").End(xlup).row
 
For i = 14 to DerniereLigneEnA
   .....
Next

Et plutôt que rng.Offset(x, y), tu peux utiliser l'adresse du genre

Code :

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

If Range("A" & i) = "ce que tu cherches" then

casefayere, on s'est croisé...
mais je pense que l'idée est commune...

[Didier Gonard]

Bonjour,

Tu veux parcourir un range, le plus pratique est peut-être de placer ta plage cible dans une variable objet, du coup tu as une structure Each très claire et très portable du genre :

Code :

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

1
2
3
4
5
For Each Cell In MaPlageCible
 
' code…
 
Next Cell

casefayere & parmi t’ont donné comment déterminer ta dernière ligne, tu connais la première, instancier ta variable Range sera aisé, voir les nombreux tutos si besoin sur DVP


cordialement,

Didier

[youbewt]

Merci beaucoup pour vos indications, ca marche impeccablement maintenant.