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
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
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
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
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
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
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180454402.233033.126...@w5g2000hsg.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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 -
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 -
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
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
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
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180454402.233033.126...@w5g2000hsg.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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 -
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 -
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180456046.937321.123...@m36g2000hse.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180454402.233033.126...@w5g2000hsg.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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 -
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 -
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 courageBonjour à 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
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
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 courageBonjour à 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
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180456046.937321.123...@m36g2000hse.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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" <boisgont...@hotmail.com> a écrit dans le message de news:
1180454402.233033.126...@w5g2000hsg.googlegroups.com...
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" <roubliemoithomp...@softscreen.be>
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 -
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 -
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 courageBonjour à 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
kk1 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
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" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
eFyREBhoHHA.4192@TK2MSFTNGP06.phx.gbl...
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
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 courageBonjour à 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
kk1 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
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 courageBonjour à 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
kk1 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
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" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
eFyREBhoHHA.4192@TK2MSFTNGP06.phx.gbl...
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
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 courageBonjour à 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
kk1 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