XL2007 : écrire dans la cellule à droite d'une zone filtrée

Bonjour,

Pour moi, ta question n'est pas claire.



"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de groupe de discussion
: 0d853591-b882-4c1b-a0e2-25e83d6fb470@w3g2000vbd.googlegroups.com...
Bonsoir,

Avec un filtre automatique en place, je filtre sur un des champs -
disons colonne D. et avec un critère donné.
J'aimerais écrire dans la colonne Q des seules lignes filtrées "toto"
par exemple.

Je cherche une idée voire une solution


Merci de votre aide

Pour moi, ta question n'est pas claire

Sur mon fichier ( > 100 000 lignes et disons de la colone A à P) je
place un filtre automatique.

je filtre sur une colonne (disons D) j'obtiens comme résultat à
l'affichage n lignes répondant au critére placé en D.
j'aimerais pouvoir placer dans la colonne Q et sur ces n lignes un
texte donné ou une formule.

Suis je plus clair ?

Je te propose 2 procédures :

La première devrait inscrire le texte "titi" dans toutes les
cellules de la colonne Q ou le résultat du filtre est positif
en colonne D

'--------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
With Feuil1
DerLig = .Cells(.Cells.Rows.Count, "D").End(xlUp).Row
Set Rg = .Range("D2:D" & DerLig)
End With

Application.ScreenUpdating = False
Application.EnableEvents = False
Rg.Offset(, 13).SpecialCells(xlCellTypeVisible) = "titi"
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

'--------------------------------------

Cette procédure boucle sur toutes les cellules visibles
de la colonne "D" dont la ligne est visible et insère
le texte "titi" en colonne Q
'----------------------------------------------
Sub test()
Dim Rg As Range, DerLig As Long
With Feuil1
DerLig = .Cells(.Cells.Rows.Count, "D").End(xlUp).Row
Set Rg = .Range("D2:D" & DerLig)
End With

Application.ScreenUpdating = False
Application.EnableEvents = False
For Each c In Rg
If c.EntireRow.Hidden = False Then
c.Offset(, 13) = "titi"
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'----------------------------------------------




"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de groupe de discussion
: 70982054-4bf9-45b4-b895-651bca58c296@p17g2000vbe.googlegroups.com...

Pour moi, ta question n'est pas claire

Sur mon fichier ( > 100 000 lignes et disons de la colone A à P) je
place un filtre automatique.

je filtre sur une colonne (disons D) j'obtiens comme résultat à
l'affichage n lignes répondant au critére placé en D.
j'aimerais pouvoir placer dans la colonne Q et sur ces n lignes un
texte donné ou une formule.

Suis je plus clair ?