Bonjour à toutes et à tous,
Je vous souhaite une beau dimanche 🙂
J'ai besoin d'Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles.
Le contexte
Vous le verrez dans le classeur test joint
1 - j'ai 27 lignes avec en col "A" plusieurs affectations : "A Rappeler - Vendu - voir"
2 - je filtre en sélectionnant en "A3" l'affectation que je souhaite traiter,
3 - Je voudrais en col "F", Affecter la valeur "ok" uniquement aux lignes visibles.
J'ai ce petit code
Qui ne fonctionne pas bien car il me met des "ok" sur 100 lignes à partir de la1ère ligne visible.
Je n'arrive pas à coder pour qu'il les mette uniquement aux lignes visibles.
Pourriez-vous m'aider ?
Comme d'habitude, je joins le petit classeur test.
Un grand merci à toutes et à tous 🙂
Je continue mes recherches...
🙂
Je vous souhaite une beau dimanche 🙂
J'ai besoin d'Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles.
Le contexte
Vous le verrez dans le classeur test joint
1 - j'ai 27 lignes avec en col "A" plusieurs affectations : "A Rappeler - Vendu - voir"
2 - je filtre en sélectionnant en "A3" l'affectation que je souhaite traiter,
3 - Je voudrais en col "F", Affecter la valeur "ok" uniquement aux lignes visibles.
J'ai ce petit code
VB:
Sub lignVisibles()
'select lignes visibles à partir de ligne 5
Range("A5:E" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
ActiveCell.Name = "MaCell" 'nomme la cellule
' formules col J
ActiveCell.Offset(0, 5) = "ok"
ActiveCell.Offset(0, 5).Select: Selection.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(100, 0)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
[MaCell].Select
End Sub
Je n'arrive pas à coder pour qu'il les mette uniquement aux lignes visibles.
Pourriez-vous m'aider ?
Comme d'habitude, je joins le petit classeur test.
Un grand merci à toutes et à tous 🙂
Je continue mes recherches...
🙂