Discussion :

[Miistik]

Bonjour à tous,

J'ai un petit souci en essayant de traiter les cellules de la colonne H d'un range filtré.

Code :

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

1
2
3
4
5
.Range("A1:AL" & LastRowBeforeFilter).AutoFilter Field:=8, Criteria1:=""
        Set r = .Range("A1:AL" & LastRowBeforeFilter).Offset(1, 0).SpecialCells(xlCellTypeVisible)
        'r.EntireRow.Delete
 
        'r.Columns(8).Value = "9999999"

A la base, on supprimait les lignes qui étaient vides en colonne H.
Maintenant, je voudrais écrire dans chaque cellule une valeur (différente pour chaque cellule).

Comment parcourir ces lignes filtrées et écrire quelque chose en colonne H ?
r.Columns(8).Value = "9999999" écrit bien en colonne H dans les lignes filtrées mais j'aimerais avoir des valeurs différentes et en plus, cela écrit une ligne de trop.
Il faut certainement jouer avec un offset.


Merci de votre aide.

[Marc-L]

Bonjour,

commencer à l'index 2 la boucle sur la colonne désirée des cellules visibles …

Pour le reste on attendra une explication technique claire & exhaustive.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Miistik]

Bonjour,

Merci pour cette première réponse.

Code :

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

1
2
3
4
5
6
7
8
.Range("A1:AL" & LastRowBeforeFilter).AutoFilter Field:=8, Criteria1:=""
LastRowBeforeFilter = .Range("A" & .Rows.Count).End(xlUp).Row
Set r = .Range("H1:H" & LastRowBeforeFilter).Offset(1, 0).SpecialCells(xlCellTypeVisible)
'Set r = .Range("A1:AL" & LastRowBeforeFilter).Offset(1, 0).SpecialCells(xlCellTypeVisible)
'r.EntireRow.Delete
For Each Cell In r
  Cell.Value = "9999999" & Cell.Row
Next

J'ai modifié mon code pour parcourir uniquement la colonne H suite au filtre automatique.
Par contre, j'ai toujours une valeur écrite de trop.
Je commence pourtant à la ligne 2 avec ce code : Set r = .Range("H1:H" & LastRowBeforeFilter).Offset(1, 0).SpecialCells(xlCellTypeVisible) non ?

Pour "l'explication technique claire et exhaustive", je veux simplement écrire dans chaque cellule de la colonne H restante après le filtre une valeur unique.

[Marc-L]

Set r = .Range("H1:H" & LastRowBeforeFilter).Offset(1, 0).SpecialCells(xlCellTypeVisible)

Ou plus simplement .Range("H2:H" & LastRowBeforeFilter).SpecialCells(xlCellTypeVisible).Value = "valeur unique" …

Ou encore sans filtre via une simple formule de calculs adaptée en VBA, à la portée de tout débutant …

[eriiic]

Bonjour,

Code :

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

.Offset(1, 0)

tu décales d'une ligne vers le bas sans retailler la plage. Forcément ça fait une ligne de plus.
eric

edit : je viens de revoir la réponse de Marc-L qui l'expliquait déjà, désolé

[Miistik]

Bonjour,

J'ai résolu mon problème via le range de Marc-L modifié.

Voici mon code si cela peut en aider d'autres :

Code :

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

1
2
3
4
5
6
7
8
.Range("A1:AL" & LastRowBeforeFilter).AutoFilter Field:=8, Criteria1:=""
 
Set r = .Range("H2:H" & LastRowBeforeFilter).SpecialCells(xlCellTypeVisible)
i = 0
For Each Cell In r
    Cell.Value = "99999999" & i
    i = i + 1
Next