Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Cacher une ligne sous condition

11 réponses
Avatar
rthompson
Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer


Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée


J'espère que je suis clair


A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux

10 réponses

1 2
Avatar
JB
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB



On 29 mai, 17:49, "rthompson"
wrote:
Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux


Avatar
rthompson
Bonjour et merci

Mais tu vois c'est exactement (enfin plus ou moins) le but de mon autre
poste Crochets et parentheses

Cette macro est surement un truc évènementiel????

Ou dois-je la mettre?

J'ai une macro qui me montre cette feuille lorsque je double-click sur une
autre

Vois ci-dessous

Ou faut-il insérer ce que tu me donnes?

xxxxxxxxxxxxxxxxxxxxxx


Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:e100")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:e100").Rows.Count
If Range("a4:e100").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxx


J'ai essayé un peu partout sans succès
Avec et sans ta première et dernière ligne

Rex




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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB



On 29 mai, 17:49, "rthompson"
wrote:
Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux


Avatar
JB
C'est un code événementiel:

-Clic-droit onglet
-Visualiser code
-Copier/Coller

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

http://cjoint.com/?fDszOlge3v

JB

On 29 mai, 18:17, "rthompson"
wrote:
Bonjour et merci

Mais tu vois c'est exactement (enfin plus ou moins) le but de mon autre
poste Crochets et parentheses

Cette macro est surement un truc évènementiel????

Ou dois-je la mettre?

J'ai une macro qui me montre cette feuille lorsque je double-click sur une
autre

Vois ci-dessous

Ou faut-il insérer ce que tu me donnes?

xxxxxxxxxxxxxxxxxxxxxx

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:e100")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:e100").Rows.Count
If Range("a4:e100").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxx

J'ai essayé un peu partout sans succès
Avec et sans ta première et dernière ligne

Rex

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB

On 29 mai, 17:49, "rthompson"
wrote:



Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero , cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
cousinhub
Bonsoir,
la cellule de destination est-elle activée avant la saisie du résultat
de ton calcul?
Si non, tu actives cette cellule, puis tu insères cette condition :
If ActiveCell.Value = "0" Then ActiveCell.EntireRow.Hidden = True
Cela évite une procédure évènementielle, et ne rajoute que 2 lignes à
ton code.
Bon courage

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer


Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée


J'espère que je suis clair


A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux




Avatar
rthompson
Bonjour

Donc j'avais bien compris
Et cela ne fonctionne pas

Et puis je regarde un peu plus

Et je comprends (Avoue que je suis fort, hein???)

Les cellules de la colonne ne sont pas vides,
Elles contiennent une formule
=INDEX(INDIRECT("Offers!P4:P3015");$A$2)

Jusqu'à =INDEX(INDIRECT("Offers!dp4:dp3015");$A$2)

Donc cela ne fonctionnera pas

Il faudra que la macro vérifie si la cellule de départ est égale à zero

Je vais essayer en mettant des IFs dans la formule de départ

Et il y a une cinquantaine de colonnes

donc je ne pourrais pas le faire comme je voulais

Faudra que je réflechisse

En attendant, bon appetit (moi je vais manger)
Et je te reparle tantôt ou demain

Rex




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

C'est un code événementiel:

-Clic-droit onglet
-Visualiser code
-Copier/Coller

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

http://cjoint.com/?fDszOlge3v

JB

On 29 mai, 18:17, "rthompson"
wrote:
Bonjour et merci

Mais tu vois c'est exactement (enfin plus ou moins) le but de mon autre
poste Crochets et parentheses

Cette macro est surement un truc évènementiel????

Ou dois-je la mettre?

J'ai une macro qui me montre cette feuille lorsque je double-click sur une
autre

Vois ci-dessous

Ou faut-il insérer ce que tu me donnes?

xxxxxxxxxxxxxxxxxxxxxx

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:e100")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:e100").Rows.Count
If Range("a4:e100").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxx

J'ai essayé un peu partout sans succès
Avec et sans ta première et dernière ligne

Rex

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB

On 29 mai, 17:49, "rthompson"
wrote:



Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Dans un module:

Sub masqueZéro()
For Each c In Range([E2], [E65000].End(xlUp))
c.EntireRow.Hidden = (c.Value = 0)
Next c
End Sub

http://cjoint.com/?fDtsOQbXNb

Sub AfficheTout()
Cells.EntireRow.Hidden = False
End Sub

JB

On 29 mai, 18:48, "rthompson"
wrote:
Bonjour

Donc j'avais bien compris
Et cela ne fonctionne pas

Et puis je regarde un peu plus

Et je comprends (Avoue que je suis fort, hein???)

Les cellules de la colonne ne sont pas vides,
Elles contiennent une formule
=INDEX(INDIRECT("Offers!P4:P3015");$A$2)

Jusqu'à =INDEX(INDIRECT("Offers!dp4:dp3015");$A$2)

Donc cela ne fonctionnera pas

Il faudra que la macro vérifie si la cellule de départ est égale à zero

Je vais essayer en mettant des IFs dans la formule de départ

Et il y a une cinquantaine de colonnes

donc je ne pourrais pas le faire comme je voulais

Faudra que je réflechisse

En attendant, bon appetit (moi je vais manger)
Et je te reparle tantôt ou demain

Rex

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

C'est un code événementiel:

-Clic-droit onglet
-Visualiser code
-Copier/Coller

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

http://cjoint.com/?fDszOlge3v

JB

On 29 mai, 18:17, "rthompson"
wrote:



Bonjour et merci

Mais tu vois c'est exactement (enfin plus ou moins) le but de mon autre
poste Crochets et parentheses

Cette macro est surement un truc évènementiel????

Ou dois-je la mettre?

J'ai une macro qui me montre cette feuille lorsque je double-click sur une
autre

Vois ci-dessous

Ou faut-il insérer ce que tu me donnes?

xxxxxxxxxxxxxxxxxxxxxx

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:e100")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:e100").Rows.Count
If Range("a4:e100").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxx

J'ai essayé un peu partout sans succès
Avec et sans ta première et dernière ligne

Rex

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB

On 29 mai, 17:49, "rthompson"
wrote:

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à ze ro, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux- Masquer le text e des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Rex
Bonsoir et merci

Qu'entends-tu par "Activé"?

Dans les cellules de la colonne C il y a la formule

=INDEX(INDIRECT("Offers!af4:af3015");$A$2)
Le af4:af3051 change à chaque cellule


Avec la macro suivante je change la valeur de la cellule A2

xxxxxxxxxxxxxxxx
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:cc1000")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:cc1000").Rows.Count
If Range("a4:cc1000").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next

End Sub
xxxxxxxxxxxxxxxxxxxxxx

La colonne C contient environ cinquante ligne
Mais toute ne sont pas remplies pour chaque commande (dommage, mais c'est
comme ça)
Donc pour éclaircir, je voudrais cacher sur la feuille "Offer-Show" toute
les lignes ou la colonne C est vide
Mais elle contient quand même la formule Index etc

La solution de JB fonctionne, mais j'urais préféré un truc automatisé


A bientôt


Rex






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

Bonsoir,
la cellule de destination est-elle activée avant la saisie du résultat
de ton calcul?
Si non, tu actives cette cellule, puis tu insères cette condition :
If ActiveCell.Value = "0" Then ActiveCell.EntireRow.Hidden = True
Cela évite une procédure évènementielle, et ne rajoute que 2 lignes à
ton code.
Bon courage

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer


Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk


1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée


J'espère que je suis clair


A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux






Avatar
Rex
Ca Marche!!!

Merci

MAIS

Je ne comprends pas pourquoi si cela fonctionne impeccable avec des boutons,
pourquoi je ne parviens pas à lancer ces procédures endéans la macro de
départ


xxxxxxxxxxxxxx
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:cc1000")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:cc1000").Rows.Count
If Range("a4:cc1000").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next

End Sub
xxxxxxxxxxxxxxxxxxxxxxxx


Encore merci et si tu as une explication, je suis toute ouie

PS
J'espère que quelqu'un me guidera pour ma question parenthèses et crochets

A bientôt

Rex




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

Dans un module:

Sub masqueZéro()
For Each c In Range([E2], [E65000].End(xlUp))
c.EntireRow.Hidden = (c.Value = 0)
Next c
End Sub

http://cjoint.com/?fDtsOQbXNb

Sub AfficheTout()
Cells.EntireRow.Hidden = False
End Sub

JB

On 29 mai, 18:48, "rthompson"
wrote:
Bonjour

Donc j'avais bien compris
Et cela ne fonctionne pas

Et puis je regarde un peu plus

Et je comprends (Avoue que je suis fort, hein???)

Les cellules de la colonne ne sont pas vides,
Elles contiennent une formule
=INDEX(INDIRECT("Offers!P4:P3015");$A$2)

Jusqu'à =INDEX(INDIRECT("Offers!dp4:dp3015");$A$2)

Donc cela ne fonctionnera pas

Il faudra que la macro vérifie si la cellule de départ est égale à zero

Je vais essayer en mettant des IFs dans la formule de départ

Et il y a une cinquantaine de colonnes

donc je ne pourrais pas le faire comme je voulais

Faudra que je réflechisse

En attendant, bon appetit (moi je vais manger)
Et je te reparle tantôt ou demain

Rex

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

C'est un code événementiel:

-Clic-droit onglet
-Visualiser code
-Copier/Coller

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

http://cjoint.com/?fDszOlge3v

JB

On 29 mai, 18:17, "rthompson"
wrote:



Bonjour et merci

Mais tu vois c'est exactement (enfin plus ou moins) le but de mon autre
poste Crochets et parentheses

Cette macro est surement un truc évènementiel????

Ou dois-je la mettre?

J'ai une macro qui me montre cette feuille lorsque je double-click sur
une


autre

Vois ci-dessous

Ou faut-il insérer ce que tu me donnes?

xxxxxxxxxxxxxxxxxxxxxx

Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:e100")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:e100").Rows.Count
If Range("a4:e100").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxx

J'ai essayé un peu partout sans succès
Avec et sans ta première et dernière ligne

Rex

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

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
If Target = 0 Then
Target.EntireRow.Hidden = True
End If
End If
End Sub

JB

On 29 mai, 17:49, "rthompson"
wrote:

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer

Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero,
cette



ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk
1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée

J'espère que je suis clair

A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -



- Afficher le texte des messages précédents -




Avatar
cousinhub
Re-,
En supposant, trop vite?, que la colonne, c'est toujours AF, donc numéro
de colonne 32, et avec le numéro de ligne dans la cellule A2

Range(Evaluate("­DRESS($a$2,32)")).Activate

' Ensuite dans ton code,

If ActiveCell.Value = "0" Then
ActiveCell.EntireRow.Hidden = True
Else
ActiveCell.EntireRow.Hidden = False
End If
mais ça, tu l'avais compris.....:-P
A+ (je le pressens.....);-)

Bonsoir et merci

Qu'entends-tu par "Activé"?

Dans les cellules de la colonne C il y a la formule

=INDEX(INDIRECT("Offers!af4:af3015");$A$2)
Le af4:af3051 change à chaque cellule


Avec la macro suivante je change la valeur de la cellule A2

xxxxxxxxxxxxxxxx
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:cc1000")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:cc1000").Rows.Count
If Range("a4:cc1000").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next

End Sub
xxxxxxxxxxxxxxxxxxxxxx

La colonne C contient environ cinquante ligne
Mais toute ne sont pas remplies pour chaque commande (dommage, mais c'est
comme ça)
Donc pour éclaircir, je voudrais cacher sur la feuille "Offer-Show" toute
les lignes ou la colonne C est vide
Mais elle contient quand même la formule Index etc

La solution de JB fonctionne, mais j'urais préféré un truc automatisé


A bientôt


Rex






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

Bonsoir,
la cellule de destination est-elle activée avant la saisie du résultat
de ton calcul?
Si non, tu actives cette cellule, puis tu insères cette condition :
If ActiveCell.Value = "0" Then ActiveCell.EntireRow.Hidden = True
Cela évite une procédure évènementielle, et ne rajoute que 2 lignes à
ton code.
Bon courage

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer


Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero, cette
ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk


1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée


J'espère que je suis clair


A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux










Avatar
Rex
Ben non :-((((((

Il y a toute une série de colonne
de la colonne p à la colonne dp

Et puis il est tard

Je ne comprends même plus ce que je pense

Je vais dormir et je te recontacte demain après dix heures

Bonne nuit

Rex


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

Re-,
En supposant, trop vite?, que la colonne, c'est toujours AF, donc numéro
de colonne 32, et avec le numéro de ligne dans la cellule A2

Range(Evaluate("­DRESS($a$2,32)")).Activate

' Ensuite dans ton code,

If ActiveCell.Value = "0" Then
ActiveCell.EntireRow.Hidden = True
Else
ActiveCell.EntireRow.Hidden = False
End If
mais ça, tu l'avais compris.....:-P
A+ (je le pressens.....);-)

Bonsoir et merci

Qu'entends-tu par "Activé"?

Dans les cellules de la colonne C il y a la formule

=INDEX(INDIRECT("Offers!af4:af3015");$A$2)
Le af4:af3051 change à chaque cellule


Avec la macro suivante je change la valeur de la cellule A2

xxxxxxxxxxxxxxxx
Private Sub Worksheet_BeforeDoubleClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
Dim i As Long
Application.ScreenUpdating = False
If Intersect(Target, Range("a4:cc1000")) Is Nothing Then Exit Sub
For i = 1 To Range("a4:cc1000").Rows.Count
If Range("a4:cc1000").Rows(i).Row = Target.Row Then
Sheets("Offer-Show").[a2] = i
End If
Sheets("Offer-Show").Select
Next

End Sub
xxxxxxxxxxxxxxxxxxxxxx

La colonne C contient environ cinquante ligne
Mais toute ne sont pas remplies pour chaque commande (dommage, mais
c'est


comme ça)
Donc pour éclaircir, je voudrais cacher sur la feuille "Offer-Show"
toute


les lignes ou la colonne C est vide
Mais elle contient quand même la formule Index etc

La solution de JB fonctionne, mais j'urais préféré un truc automatisé


A bientôt


Rex






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

Bonsoir,
la cellule de destination est-elle activée avant la saisie du résultat
de ton calcul?
Si non, tu actives cette cellule, puis tu insères cette condition :
If ActiveCell.Value = "0" Then ActiveCell.EntireRow.Hidden = True
Cela évite une procédure évènementielle, et ne rajoute que 2 lignes à
ton code.
Bon courage

Bonjour à toutes et tous

Comment ferais-je pour cacher une ligne sous une condition

J'explique, enfin je vais essayer


Sur ma feuille "Offer-Show" en colonne E je mets (par VBA) le nombre
d'unités commandées

Ce que je voudrais est que si le nombre d'unitée est égale à zero,
cette




ligne soit cachée

Exemple
No de ligne A B C D
E F
1 blabla ds jk
kk


1 lllllll
2 blabli kj lkj
liuh 0 kljkll
3 blobliu jkh lki
poiui 1 kljh

Dans cette exemple je voudrais que la ligne 2 soit cachée


J'espère que je suis clair


A bientôt et merci

Rex

Et vous avez pu constater que j'ai été sérieux












1 2