Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mettre valeur dans cellules vides

Mettre valeur dans cellules vides

21 réponses
Avatar
J&B
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de lignes est
variable

Merci pour votre aide précieux
j&b
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
LSteph
Bonjour,



Sub aaaz()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4", [e65536].End(xlUp).Address)
If IsEmpty(c) Then c = "ok"
Next
End Sub



;-)

--
lSteph


J&B a écrit :
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de lignes est
variable

Merci pour votre aide précieux
j&b






Avatar
LSteph
Bonjour,



Sub aaaz()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4", [e65536].End(xlUp).Address)
If IsEmpty(c) Then c = "ok"
Next
End Sub



;-)

--
lSteph


J&B a écrit :
Désolé mais marche pas !!!!
ça me met un ok dans une autre colonne




"JPMonnier" a écrit dans le message de news:

Cette proc t'invite à saisir la zone et remplace les cellules filtrées par
ok
Sub Macro2()
Set Maplage = Application.InputBox( _
prompt:="Sélectionnez une Plage de cellules", Type:=8)
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "ok"
End Sub

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d27f$0$12609$
Merci mais marche pas
Je selectionne uniquement les cellules qui ont déjà la valeur OK

Je répéte ce que je veux faire en macro car ça doit rentrer dans une
procèdure de plusieurs autres macros

Selectioner par filtre en colonne E les celulles qui sont vides et mettre
la valeur OK a ces celulles

En prenant en compte que le nombre de lignes a analyser et variable et va
en augmentation par rapport à la derniere utilisation de la macro


J'espere avoir été plus clair !!!!!!!
Merci beaucoup





"JPMonnier" a écrit dans le message de news:
%
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub
--
Cordialement


"J&B" a écrit dans le message de
news:48f4cbfd$0$7619$
Merci de me repondre aussi vite
La condition c'est en colonne E = vide
et toute les lignes vides doivent prendre la valeur OK
et ainsi de suite car ces lignes sont créée régulierement





"Jacquouille" a écrit dans le message
de news:
Bonsoir
Quelle est la condition du filtre ?
Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK") dans
la col E ?
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"J&B" a écrit dans le message de news:
48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de
lignes est variable

Merci pour votre aide précieux
j&b























Avatar
LSteph
Bonjour ,

Tu sais que Select est totalement inutile dans ce cas.
Et dans pratiquement 90% des cas d'ailleurs.

Amicordialement.

--
lSteph

JPMonnier a écrit :
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub


Avatar
JPMonnier
Je te joins le fichier
A la boite de dialogue, tu click de E4 a la fin de ta zone filtrée, dans ta
colonne "E" uniquement bien sur (Dans l'exemple tu vas sélectionner de E4 à
E20)
tu verras apparaitre tes cellules vides avec Ok
http://cjoint.com/?kouBUhrOMr

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d5cd$0$31992$
Désolé mais marche pas !!!!
ça me met un ok dans une autre colonne




"JPMonnier" a écrit dans le message de news:

Cette proc t'invite à saisir la zone et remplace les cellules filtrées
par ok
Sub Macro2()
Set Maplage = Application.InputBox( _
prompt:="Sélectionnez une Plage de cellules", Type:=8)
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "ok"
End Sub

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d27f$0$12609$
Merci mais marche pas
Je selectionne uniquement les cellules qui ont déjà la valeur OK

Je répéte ce que je veux faire en macro car ça doit rentrer dans une
procèdure de plusieurs autres macros

Selectioner par filtre en colonne E les celulles qui sont vides et
mettre la valeur OK a ces celulles

En prenant en compte que le nombre de lignes a analyser et variable et
va en augmentation par rapport à la derniere utilisation de la macro


J'espere avoir été plus clair !!!!!!!
Merci beaucoup





"JPMonnier" a écrit dans le message de news:
%
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub
--
Cordialement


"J&B" a écrit dans le message de
news:48f4cbfd$0$7619$
Merci de me repondre aussi vite
La condition c'est en colonne E = vide
et toute les lignes vides doivent prendre la valeur OK
et ainsi de suite car ces lignes sont créée régulierement





"Jacquouille" a écrit dans le message
de news:
Bonsoir
Quelle est la condition du filtre ?
Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK") dans
la col E ?
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"J&B" a écrit dans le message de news:
48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de
lignes est variable

Merci pour votre aide précieux
j&b




























Avatar
J&B
Super !!!!
Grand merci ça marche impeccable
c'est exactement ce que je souhaitais faire
Bonne soirée et encore Milles Merci



"LSteph" a écrit dans le message de news:

Bonjour,



Sub aaaz()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4", [e65536].End(xlUp).Address)
If IsEmpty(c) Then c = "ok"
Next
End Sub



;-)

--
lSteph


J&B a écrit :
Désolé mais marche pas !!!!
ça me met un ok dans une autre colonne




"JPMonnier" a écrit dans le message de news:

Cette proc t'invite à saisir la zone et remplace les cellules filtrées
par ok
Sub Macro2()
Set Maplage = Application.InputBox( _
prompt:="Sélectionnez une Plage de cellules", Type:=8)
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "ok"
End Sub

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d27f$0$12609$
Merci mais marche pas
Je selectionne uniquement les cellules qui ont déjà la valeur OK

Je répéte ce que je veux faire en macro car ça doit rentrer dans une
procèdure de plusieurs autres macros

Selectioner par filtre en colonne E les celulles qui sont vides et
mettre la valeur OK a ces celulles

En prenant en compte que le nombre de lignes a analyser et variable et
va en augmentation par rapport à la derniere utilisation de la macro


J'espere avoir été plus clair !!!!!!!
Merci beaucoup





"JPMonnier" a écrit dans le message de
news: %
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub
--
Cordialement


"J&B" a écrit dans le message de
news:48f4cbfd$0$7619$
Merci de me repondre aussi vite
La condition c'est en colonne E = vide
et toute les lignes vides doivent prendre la valeur OK
et ainsi de suite car ces lignes sont créée régulierement





"Jacquouille" a écrit dans le message
de news:
Bonsoir
Quelle est la condition du filtre ?
Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK") dans
la col E ?
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"J&B" a écrit dans le message de news:
48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de
lignes est variable

Merci pour votre aide précieux
j&b
























Avatar
Patrick BASTARD
Bonsoir, J&B

Et par macro :
après avoir sélectionné ta zone :

Sub OkVide()
With Selection
.AutoFilter Field:=1, Criteria1:="="
.FormulaR1C1 = "OK"
.AutoFilter
End With
End Sub

--
Bien ,

Patrick BASTARD
patrick.bastardchezdbmail.com

"J&B" a écrit dans le message de
news:48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de lignes
est variable

Merci pour votre aide précieux
j&b











Avatar
LSteph
C'est que Jacquouille avait posé la bonne question:

>>>>>>>> Quelle est la condition du filtre ?

donc

>> If IsEmpty(c) Then c = "ok"

@+


J&B a écrit :
Super !!!!
Grand merci ça marche impeccable
c'est exactement ce que je souhaitais faire
Bonne soirée et encore Milles Merci



"LSteph" a écrit dans le message de news:

Bonjour,



Sub aaaz()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4", [e65536].End(xlUp).Address)
If IsEmpty(c) Then c = "ok"
Next
End Sub



;-)

--
lSteph


J&B a écrit :
Désolé mais marche pas !!!!
ça me met un ok dans une autre colonne




"JPMonnier" a écrit dans le message de news:

Cette proc t'invite à saisir la zone et remplace les cellules filtrées
par ok
Sub Macro2()
Set Maplage = Application.InputBox( _
prompt:="Sélectionnez une Plage de cellules", Type:=8)
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "ok"
End Sub

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d27f$0$12609$
Merci mais marche pas
Je selectionne uniquement les cellules qui ont déjà la valeur OK

Je répéte ce que je veux faire en macro car ça doit rentrer dans une
procèdure de plusieurs autres macros

Selectioner par filtre en colonne E les celulles qui sont vides et
mettre la valeur OK a ces celulles

En prenant en compte que le nombre de lignes a analyser et variable et
va en augmentation par rapport à la derniere utilisation de la macro


J'espere avoir été plus clair !!!!!!!
Merci beaucoup





"JPMonnier" a écrit dans le message de
news: %
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub
--
Cordialement


"J&B" a écrit dans le message de
news:48f4cbfd$0$7619$
Merci de me repondre aussi vite
La condition c'est en colonne E = vide
et toute les lignes vides doivent prendre la valeur OK
et ainsi de suite car ces lignes sont créée régulierement





"Jacquouille" a écrit dans le message
de news:
Bonsoir
Quelle est la condition du filtre ?
Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK") dans
la col E ?
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"J&B" a écrit dans le message de news:
48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de
lignes est variable

Merci pour votre aide précieux
j&b























Avatar
Jacquouille
Salut Steph
Je n'ai pas continué le fil car j'ai constaté que tu étais dans la même
vision des choses que moi.
Alors, pourquoi le redire ?
Je reste persuadé que beaucoup de questions de MEFC ou autres peuvent être
résolues en posant la bonne question.....
Tiens, j'y pense: A-t-on prévu une rencontre en octobre quelque part?
Bonne fin de journée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"LSteph" a écrit dans le message de news:

C'est que Jacquouille avait posé la bonne question:

>>>>>>>> Quelle est la condition du filtre ?

donc

>> If IsEmpty(c) Then c = "ok"

@+


J&B a écrit :
Super !!!!
Grand merci ça marche impeccable
c'est exactement ce que je souhaitais faire
Bonne soirée et encore Milles Merci



"LSteph" a écrit dans le message de news:

Bonjour,



Sub aaaz()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("E4", [e65536].End(xlUp).Address)
If IsEmpty(c) Then c = "ok"
Next
End Sub



;-)

--
lSteph


J&B a écrit :
Désolé mais marche pas !!!!
ça me met un ok dans une autre colonne




"JPMonnier" a écrit dans le message de
news:
Cette proc t'invite à saisir la zone et remplace les cellules filtrées
par ok
Sub Macro2()
Set Maplage = Application.InputBox( _
prompt:="Sélectionnez une Plage de cellules", Type:=8)
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "ok"
End Sub

--
Cordialement

"J&B" a écrit dans le message de
news:48f4d27f$0$12609$
Merci mais marche pas
Je selectionne uniquement les cellules qui ont déjà la valeur OK

Je répéte ce que je veux faire en macro car ça doit rentrer dans une
procèdure de plusieurs autres macros

Selectioner par filtre en colonne E les celulles qui sont vides et
mettre la valeur OK a ces celulles

En prenant en compte que le nombre de lignes a analyser et variable
et va en augmentation par rapport à la derniere utilisation de la
macro


J'espere avoir été plus clair !!!!!!!
Merci beaucoup





"JPMonnier" a écrit dans le message de
news: %
Voici la proc qui te le fera en automatique
Sub Macro2()
Range("E4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection = "OK"
End Sub
--
Cordialement


"J&B" a écrit dans le message de
news:48f4cbfd$0$7619$
Merci de me repondre aussi vite
La condition c'est en colonne E = vide
et toute les lignes vides doivent prendre la valeur OK
et ainsi de suite car ces lignes sont créée régulierement





"Jacquouille" a écrit dans le
message de news:
Bonsoir
Quelle est la condition du filtre ?
Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK")
dans la col E ?
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"J&B" a écrit dans le message de news:
48f4c47e$0$3463$
Bonjour,

Je fais un filtre sur la colonne E avec les lignes vides
Je souhaiterai mettre dans cette colonne E la valeur OK
pour uniquement ces lignes filtrées en sachant que le nombre de
lignes est variable

Merci pour votre aide précieux
j&b

























Avatar
lSteph
Bonjour,

Octobre me semble déjà entamé et rien vu ni entendu mais pour la fin
d'année j'espère...
Il est vrai que depuis qu'un certain Mgr s'est auto banni...
Ce qui m'inquiète plus c'est que je ne vois plus non plus de Joyeux
Président Spécialiste des festivités,
se manifester de temps à autre dans ma boite aux lettre qui du coup
s'en trouve un peu attristée.

@+

--
lSteph

On 15 oct, 14:55, "Jacquouille" wrote:
Salut Steph
Je n'ai pas continué le fil car j'ai constaté que tu étais dans la même
vision des choses que moi.
Alors, pourquoi le redire ?
Je reste persuadé que beaucoup de questions de MEFC ou autres peuvent être
résolues en posant la bonne question.....
Tiens, j'y pense: A-t-on prévu une rencontre en octobre quelque part?
Bonne fin de journée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"LSteph" a écrit dans le message de news:


> C'est que Jacquouille avait posé la bonne question:

> >>>>>>>> Quelle est la condition du filtre ?

> donc

> >> If IsEmpty(c) Then c = "ok"

> @+

> J&B a écrit :
>> Super !!!!
>> Grand merci ça marche impeccable
>> c'est exactement ce que je souhaitais faire
>> Bonne soirée et encore Milles Merci

>> "LSteph" a écrit dans le message de news:
>>
>>> Bonjour,

>>> Sub aaaz()
>>> Dim c As Range
>>> Application.ScreenUpdating = False
>>> For Each c In Range("E4", [e65536].End(xlUp).Address)
>>> If IsEmpty(c) Then c = "ok"
>>> Next
>>> End Sub

>>> ;-)

>>> --
>>> lSteph

>>> J&B a écrit :
>>>> Désolé mais marche pas !!!!
>>>> ça me met un ok dans une autre colonne

>>>> "JPMonnier" a écrit dans le message de
>>>>news: uftLRCiLJHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_
>>>>> Cette proc t'invite à saisir la zone et remplace les cellules fil trées
>>>>> par ok
>>>>> Sub Macro2()
>>>>> Set Maplage = Application.InputBox( _
>>>>>    prompt:="Sélectionnez une Plage de cellules", Type:=8)
>>>>>    Selection.SpecialCells(xlCellTypeVisible).Select
>>>>>    Selection = "ok"
>>>>> End Sub

>>>>> --
>>>>> Cordialement
>>>>>
>>>>> "J&B" a écrit dans le message de
>>>>>news:48f4d27f$0$12609$
>>>>>> Merci mais marche pas
>>>>>> Je selectionne uniquement les cellules qui ont déjà la valeur OK

>>>>>> Je répéte ce que je veux faire en macro car ça doit rentrer dans une
>>>>>> procèdure de plusieurs autres macros

>>>>>> Selectioner par filtre en colonne E les celulles qui sont vides et
>>>>>> mettre la valeur OK a ces celulles

>>>>>> En prenant en compte que le nombre de lignes a analyser et variabl e
>>>>>> et va en augmentation par rapport à la derniere utilisation de l a
>>>>>> macro

>>>>>> J'espere avoir été plus clair !!!!!!!
>>>>>> Merci beaucoup

>>>>>> "JPMonnier" a écrit dans le message de
>>>>>>news: %2319bG2hLJHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jf AD$
>>>>>>> Voici la proc qui te le fera en automatique
>>>>>>> Sub Macro2()
>>>>>>>    Range("E4").Select
>>>>>>>    Range(Selection, Selection.End(xlDown)).Select
>>>>>>>    Selection.SpecialCells(xlCellTypeVisible).Select
>>>>>>>    Selection = "OK"
>>>>>>> End Sub
>>>>>>> --
>>>>>>> Cordialement
>>>>>>>

>>>>>>> "J&B" a écrit dans le message de
>>>>>>>news:48f4cbfd$0$7619$
>>>>>>>> Merci de me repondre aussi vite
>>>>>>>> La condition c'est en colonne E = vide
>>>>>>>> et toute les lignes vides doivent prendre la valeur OK
>>>>>>>> et ainsi de suite car ces lignes sont créée régulierement

>>>>>>>> "Jacquouille" a écrit dans le
>>>>>>>> message denews: ere09khLJHA.4__BEGIN_MASK_n#9g02mG7!__...__END_M ASK_i?a63jfAD$
>>>>>>>>> Bonsoir
>>>>>>>>> Quelle est la condition du filtre ?
>>>>>>>>> Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK")
>>>>>>>>> dans la col E ?
>>>>>>>>> Bonne chance

>>>>>>>>> --
>>>>>>>>> Bien amicalmement,
>>>>>>>>> "Le vin est au repas ce que le parfum est à la femme."

>>>>>>>>> Jacquouille.

>>>>>>>>> "J&B" a écrit dans le message de news:
>>>>>>>>> 48f4c47e$0$3463$
>>>>>>>>>> Bonjour,

>>>>>>>>>> Je fais un filtre sur la colonne E avec les lignes vides
>>>>>>>>>> Je souhaiterai mettre dans cette colonne E la valeur OK
>>>>>>>>>> pour uniquement ces lignes filtrées en sachant que le nombre de
>>>>>>>>>> lignes est variable

>>>>>>>>>> Merci pour votre aide précieux
>>>>>>>>>> j&b


Avatar
Jacquouille
Tout fout le camp, même les bonnes habitudes.
Ah, si Paris était à la campagne, comme Strasbourg......

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"lSteph" a écrit dans le message de news:

Bonjour,

Octobre me semble déjà entamé et rien vu ni entendu mais pour la fin
d'année j'espère...
Il est vrai que depuis qu'un certain Mgr s'est auto banni...
Ce qui m'inquiète plus c'est que je ne vois plus non plus de Joyeux
Président Spécialiste des festivités,
se manifester de temps à autre dans ma boite aux lettre qui du coup
s'en trouve un peu attristée.

@+

--
lSteph

On 15 oct, 14:55, "Jacquouille" wrote:
Salut Steph
Je n'ai pas continué le fil car j'ai constaté que tu étais dans la même
vision des choses que moi.
Alors, pourquoi le redire ?
Je reste persuadé que beaucoup de questions de MEFC ou autres peuvent être
résolues en posant la bonne question.....
Tiens, j'y pense: A-t-on prévu une rencontre en octobre quelque part?
Bonne fin de journée
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"LSteph" a écrit dans le message de news:


> C'est que Jacquouille avait posé la bonne question:

> >>>>>>>> Quelle est la condition du filtre ?

> donc

> >> If IsEmpty(c) Then c = "ok"

> @+

> J&B a écrit :
>> Super !!!!
>> Grand merci ça marche impeccable
>> c'est exactement ce que je souhaitais faire
>> Bonne soirée et encore Milles Merci

>> "LSteph" a écrit dans le message de news:
>>
>>> Bonjour,

>>> Sub aaaz()
>>> Dim c As Range
>>> Application.ScreenUpdating = False
>>> For Each c In Range("E4", [e65536].End(xlUp).Address)
>>> If IsEmpty(c) Then c = "ok"
>>> Next
>>> End Sub

>>> ;-)

>>> --
>>> lSteph

>>> J&B a écrit :
>>>> Désolé mais marche pas !!!!
>>>> ça me met un ok dans une autre colonne

>>>> "JPMonnier" a écrit dans le message de
>>>>news:
>>>>uftLRCiLJHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
>>>>> Cette proc t'invite à saisir la zone et remplace les cellules
>>>>> filtrées
>>>>> par ok
>>>>> Sub Macro2()
>>>>> Set Maplage = Application.InputBox( _
>>>>> prompt:="Sélectionnez une Plage de cellules", Type:=8)
>>>>> Selection.SpecialCells(xlCellTypeVisible).Select
>>>>> Selection = "ok"
>>>>> End Sub

>>>>> --
>>>>> Cordialement
>>>>>
>>>>> "J&B" a écrit dans le message de
>>>>>news:48f4d27f$0$12609$
>>>>>> Merci mais marche pas
>>>>>> Je selectionne uniquement les cellules qui ont déjà la valeur OK

>>>>>> Je répéte ce que je veux faire en macro car ça doit rentrer dans
>>>>>> une
>>>>>> procèdure de plusieurs autres macros

>>>>>> Selectioner par filtre en colonne E les celulles qui sont vides et
>>>>>> mettre la valeur OK a ces celulles

>>>>>> En prenant en compte que le nombre de lignes a analyser et variable
>>>>>> et va en augmentation par rapport à la derniere utilisation de la
>>>>>> macro

>>>>>> J'espere avoir été plus clair !!!!!!!
>>>>>> Merci beaucoup

>>>>>> "JPMonnier" a écrit dans le message de
>>>>>>news:
>>>>>>%2319bG2hLJHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
>>>>>>> Voici la proc qui te le fera en automatique
>>>>>>> Sub Macro2()
>>>>>>> Range("E4").Select
>>>>>>> Range(Selection, Selection.End(xlDown)).Select
>>>>>>> Selection.SpecialCells(xlCellTypeVisible).Select
>>>>>>> Selection = "OK"
>>>>>>> End Sub
>>>>>>> --
>>>>>>> Cordialement
>>>>>>>

>>>>>>> "J&B" a écrit dans le message de
>>>>>>>news:48f4cbfd$0$7619$
>>>>>>>> Merci de me repondre aussi vite
>>>>>>>> La condition c'est en colonne E = vide
>>>>>>>> et toute les lignes vides doivent prendre la valeur OK
>>>>>>>> et ainsi de suite car ces lignes sont créée régulierement

>>>>>>>> "Jacquouille" a écrit dans le
>>>>>>>> message denews:
>>>>>>>> ere09khLJHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$
>>>>>>>>> Bonsoir
>>>>>>>>> Quelle est la condition du filtre ?
>>>>>>>>> Tu pourrais peut-être envisager un =si(condition;"OK";"Pas OK")
>>>>>>>>> dans la col E ?
>>>>>>>>> Bonne chance

>>>>>>>>> --
>>>>>>>>> Bien amicalmement,
>>>>>>>>> "Le vin est au repas ce que le parfum est à la femme."

>>>>>>>>> Jacquouille.

>>>>>>>>> "J&B" a écrit dans le message de news:
>>>>>>>>> 48f4c47e$0$3463$
>>>>>>>>>> Bonjour,

>>>>>>>>>> Je fais un filtre sur la colonne E avec les lignes vides
>>>>>>>>>> Je souhaiterai mettre dans cette colonne E la valeur OK
>>>>>>>>>> pour uniquement ces lignes filtrées en sachant que le nombre de
>>>>>>>>>> lignes est variable

>>>>>>>>>> Merci pour votre aide précieux
>>>>>>>>>> j&b


1 2 3