Bjr,=20
je fais un Filtre Elabor=E9 sur la m=EAme page et j'ai besoins=20
de modifier uniquement certaines cellules filtr=E9es.
je me suis inspir=E9 d'un exemple de Excelabo (merci AV)=20
mais ca ne marche pas, voici le code trouv=E9 sur Excelabo
Boucler sur les cellules visibles
Existe-t-il une collection des cellules visibles
que je pourrais utiliser ou y a-t-il un moyen de boucler
directement sur les cellules visibles apr=E8s un filtre ?=20
For Each cel In ActiveSheet.AutoFilter.Range.SpecialCells
(xlCellTypeVisible)
'blabla....
Next
voici comment je l'ai modifi=E9 mais visiblement il n'aime=20
pas mon AdvancedFilter
For Each Cel In=20
ActiveSheet.AdvancedFilter.Range.SpecialCells
(xlCellTypeVisible)
If UCase(Left(Cells(i, 6), 2)) =3D "AC" Then
Cells(i, 3).Value =3D Cells(i, 3).Value + 100
=20
End If
Next Cel
comment travailler sur les cellules filtr=E9es d'un filtre=20
=E9labor=E9 (sur la m=EAme feuille) ?
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
J'ai un peu de mal à suivre, tu parles de filtre élaboré et de cellules visibles (d'un filtre automatique)
de toutes façon for each r in Range("f2:f" & Range("f65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible) If UCase(Left(r.value, 2)) = "AC" Then Cells(r.row, 3).Value Cells(r.row, 3).Value + 100 next
devrait suffire mais pas testé a+ rural thierry
"boblebob" a écrit dans le message de news: 0f7501c3a90e$0efec600$ Bjr, je fais un Filtre Elaboré sur la même page et j'ai besoins de modifier uniquement certaines cellules filtrées. je me suis inspiré d'un exemple de Excelabo (merci AV) mais ca ne marche pas, voici le code trouvé sur Excelabo
Boucler sur les cellules visibles Existe-t-il une collection des cellules visibles que je pourrais utiliser ou y a-t-il un moyen de boucler directement sur les cellules visibles après un filtre ? For Each cel In ActiveSheet.AutoFilter.Range.SpecialCells (xlCellTypeVisible) 'blabla.... Next
voici comment je l'ai modifié mais visiblement il n'aime pas mon AdvancedFilter
For Each Cel In ActiveSheet.AdvancedFilter.Range.SpecialCells (xlCellTypeVisible)
If UCase(Left(Cells(i, 6), 2)) = "AC" Then
Cells(i, 3).Value = Cells(i, 3).Value + 100
End If
Next Cel
comment travailler sur les cellules filtrées d'un filtre élaboré (sur la même feuille) ? merci
Salut
J'ai un peu de mal à suivre, tu parles de filtre élaboré et de cellules
visibles (d'un filtre automatique)
de toutes façon
for each r in Range("f2:f" &
Range("f65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
If UCase(Left(r.value, 2)) = "AC" Then Cells(r.row, 3).Value Cells(r.row, 3).Value + 100
next
devrait suffire mais pas testé
a+
rural thierry
"boblebob" <boblebob@voila.fr> a écrit dans le message de news:
0f7501c3a90e$0efec600$a101280a@phx.gbl...
Bjr,
je fais un Filtre Elaboré sur la même page et j'ai besoins
de modifier uniquement certaines cellules filtrées.
je me suis inspiré d'un exemple de Excelabo (merci AV)
mais ca ne marche pas, voici le code trouvé sur Excelabo
Boucler sur les cellules visibles
Existe-t-il une collection des cellules visibles
que je pourrais utiliser ou y a-t-il un moyen de boucler
directement sur les cellules visibles après un filtre ?
For Each cel In ActiveSheet.AutoFilter.Range.SpecialCells
(xlCellTypeVisible)
'blabla....
Next
voici comment je l'ai modifié mais visiblement il n'aime
pas mon AdvancedFilter
For Each Cel In
ActiveSheet.AdvancedFilter.Range.SpecialCells
(xlCellTypeVisible)
If UCase(Left(Cells(i, 6), 2)) = "AC" Then
Cells(i, 3).Value = Cells(i, 3).Value + 100
End If
Next Cel
comment travailler sur les cellules filtrées d'un filtre
élaboré (sur la même feuille) ?
merci
J'ai un peu de mal à suivre, tu parles de filtre élaboré et de cellules visibles (d'un filtre automatique)
de toutes façon for each r in Range("f2:f" & Range("f65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible) If UCase(Left(r.value, 2)) = "AC" Then Cells(r.row, 3).Value Cells(r.row, 3).Value + 100 next
devrait suffire mais pas testé a+ rural thierry
"boblebob" a écrit dans le message de news: 0f7501c3a90e$0efec600$ Bjr, je fais un Filtre Elaboré sur la même page et j'ai besoins de modifier uniquement certaines cellules filtrées. je me suis inspiré d'un exemple de Excelabo (merci AV) mais ca ne marche pas, voici le code trouvé sur Excelabo
Boucler sur les cellules visibles Existe-t-il une collection des cellules visibles que je pourrais utiliser ou y a-t-il un moyen de boucler directement sur les cellules visibles après un filtre ? For Each cel In ActiveSheet.AutoFilter.Range.SpecialCells (xlCellTypeVisible) 'blabla.... Next
voici comment je l'ai modifié mais visiblement il n'aime pas mon AdvancedFilter
For Each Cel In ActiveSheet.AdvancedFilter.Range.SpecialCells (xlCellTypeVisible)
If UCase(Left(Cells(i, 6), 2)) = "AC" Then
Cells(i, 3).Value = Cells(i, 3).Value + 100
End If
Next Cel
comment travailler sur les cellules filtrées d'un filtre élaboré (sur la même feuille) ? merci