Après dix heures????? Mais je bosse, moi, Môssieur..... Bonne nuit, et bon courage
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
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
Après dix heures?????
Mais je bosse, moi, Môssieur.....
Bonne nuit, et bon courage
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" <pmcsnhb_nospam@aol.com> a écrit dans le message de news:
ufysrPjoHHA.4196@TK2MSFTNGP06.phx.gbl...
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
Après dix heures????? Mais je bosse, moi, Môssieur..... Bonne nuit, et bon courage
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