cellule et barre d outil

FFO

15/11/2010 à 16:49

Salut à toi
Aprés avoir créé ta barre d'outil "MaBarre"
Dans le VBA de la feuille mets ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D5") <> "" Then
Application.CommandBars("MaBarre").Visible = True
Else
Application.CommandBars("MaBarre").Visible = False
End If
End Sub

Celà devrait te convenir

Dis Moi !!!!!!

Mgr T. Plubanni

15/11/2010 à 16:53

bonjour l'autre steph
si tu parles le patois VBA aussi bien que ton homonyme, tu peux écrire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(ActiveSheet.Range("D5")) Then
Application.CommandBars("outillage").Visible = True
Else
Application.CommandBars("outillage").Visible = False
End If
End Sub

Mgr T. P.

"STEPH B" a écrit dans le message de news: 4ce147f1$0$32442$

Tatanka

15/11/2010 à 20:02

Ou bien :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.CommandBars("outillage").Visible = Not (IsEmpty(Range("D5")))
End Sub

Serge

"STEPH B" a écrit dans le message de news: 4ce147f1$0$32442$

LSteph

15/11/2010 à 21:07

Votre Plubanitude a bien vu au poil pres

application.commandbars("outillage").visible=[d5]<>""

;o)

--
LSt'homonyme

"Mgr T. Plubanni" a écrit dans le message de
news:4ce15793$0$5426$

Tatanka

15/11/2010 à 21:52

Ave,

Pourrais-tu me fraîchir la moire :-)
Quelle est la différence fondamentale entre
IsEmpty(Range("D5")) et [d5]=""

Serge
« Je boirai du lait quand les vaches brouteront du raisin ».
HDTL

"LSteph" a écrit dans le message de news: ibs3ta$867$

Modeste

16/11/2010 à 11:59

Bonsour®

ramanujan a écrit

;o)))
la différence tient surtout dans la compression de la clause if... then...else

LSteph

16/11/2010 à 15:26

Bonjour,

Comme il fut dit avec ferveur l'objectif était de simplifier
essentiellement la structure If then Else
ce sur quoi mon "homonymie" avait besoin en de préciser avec son
propre jargon VBA plus puisqu'ainsi cité
quand à la réduction de
Is Not empty( Range ("D5"))
en
[D5]<>""

Cela est juste plus court et c'est du pareil au même néanmoins il
reste une subtilité en effet mais je ne puis t'en donner que la vision
toute personnelle que j'en ai:
[x] signifie Evaluate(x) alors que Range(x) signifie l'objet range de
désignation x

Au delà c'est comme aligator et crocodile, caîman la même chose:
pour D5 renverra donc l'évaluation de D5 autrement dit s'agissant
d'une adresse de cellule la valeur qu'elle contient
Il n'en reste pas moins que dans le code s'il s'agit ainsi de renvoyer
l'objet devant un opérateur de comparaison suivi d'une valeur
le code ne choisira pas l'objet Range("D5") mais bien sa valeur en
tant que propriété par défaut

Pour appeler une autre propriété d'un objet que celle par défaut on
ajoute un point pour l'appeler et on se rend compte que
la propriété de l'objet Range("D5").interior.colorindex
peut aussi s'appeler par l'Evaluate ainsi
[D5].interior.colorindex
Cette fois l'evaluate semble se limiter à savoir que D5 est une
cellule et dans le contexte d'appel une propriété à le même
comortement que l'objet.

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" wrote:

Bonjour,

Comme il fut dit avec ferveur l'objectif était de simplifier
essentiellement la structure If then Else
ce sur quoi mon "homonymie" avait besoin en de préciser avec son
propre jargon VBA plus puisqu'ainsi cité
quand à la réduction de
Is Not empty( Range ("D5"))
en
[D5]<>""

Cela est juste plus court et c'est du pareil au même néanmoins il
reste une subtilité en effet mais je ne puis t'en donner que la vision
toute personnelle que j'en ai:
[x] signifie Evaluate(x) alors que Range(x) signifie l'objet range de
désignation x

Au delà c'est comme aligator et crocodile, caîman la même chose:
pour D5 renverra donc l'évaluation de D5 autrement dit s'agissant
d'une adresse de cellule la valeur qu'elle contient
Il n'en reste pas moins que dans le code s'il s'agit ainsi de renvoyer
l'objet devant un opérateur de comparaison suivi d'une valeur
le code ne choisira pas l'objet Range("D5") mais bien sa valeur en
tant que propriété par défaut

Pour appeler une autre propriété d'un objet que celle par défaut on
ajoute un point pour l'appeler et on se rend compte que
la propriété de l'objet Range("D5").interior.colorindex
peut aussi s'appeler par l'Evaluate ainsi
[D5].interior.colorindex
Cette fois l'evaluate semble se limiter à savoir que D5 est une
cellule et dans le contexte d'appel une propriété à le même
comortement que l'objet.

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" <ramanu...@videotron.ca> wrote:

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour,

Comme il fut dit avec ferveur l'objectif était de simplifier
essentiellement la structure If then Else
ce sur quoi mon "homonymie" avait besoin en de préciser avec son
propre jargon VBA plus puisqu'ainsi cité
quand à la réduction de
Is Not empty( Range ("D5"))
en
[D5]<>""

Cela est juste plus court et c'est du pareil au même néanmoins il
reste une subtilité en effet mais je ne puis t'en donner que la vision
toute personnelle que j'en ai:
[x] signifie Evaluate(x) alors que Range(x) signifie l'objet range de
désignation x

Au delà c'est comme aligator et crocodile, caîman la même chose:
pour D5 renverra donc l'évaluation de D5 autrement dit s'agissant
d'une adresse de cellule la valeur qu'elle contient
Il n'en reste pas moins que dans le code s'il s'agit ainsi de renvoyer
l'objet devant un opérateur de comparaison suivi d'une valeur
le code ne choisira pas l'objet Range("D5") mais bien sa valeur en
tant que propriété par défaut

Pour appeler une autre propriété d'un objet que celle par défaut on
ajoute un point pour l'appeler et on se rend compte que
la propriété de l'objet Range("D5").interior.colorindex
peut aussi s'appeler par l'Evaluate ainsi
[D5].interior.colorindex
Cette fois l'evaluate semble se limiter à savoir que D5 est une
cellule et dans le contexte d'appel une propriété à le même
comortement que l'objet.

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" wrote:

LSteph

16/11/2010 à 18:39

... je viens de comprendre peut-être autre chose en voyant l'heure de
nos posts respectifs

A la lecture du post de Mgr
s'il y avait eu dix réponses avant la mienne cela n'y aurait rien
changé(j'aurais commencé par ne pas les voir)
et j'aurais de toutes façons posté la première simplification que j' y
voyais en supprimant le If..then..else
Je ne vois aucun inconvénient à ce que tu aies relevé de suite la
même chose, c'est très bien
même sans l'idée de simplifier par [D5]

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" wrote:

Tatanka

16/11/2010 à 19:19

J'aime bien ce petit raccourci du If Then Else.
N'eût été du IsEmpty de T. Plubanni , j'aurais
sûrement pensé au même raccourci que le tien :-)

Serge

"LSteph" a écrit dans le message de news:
... je viens de comprendre peut-être autre chose en voyant l'heure de
nos posts respectifs

A la lecture du post de Mgr
s'il y avait eu dix réponses avant la mienne cela n'y aurait rien
changé(j'aurais commencé par ne pas les voir)
et j'aurais de toutes façons posté la première simplification que j'y
voyais en supprimant le If..then..else
Je ne vois aucun inconvénient à ce que tu aies relevé de suite la
même chose, c'est très bien
même sans l'idée de simplifier par [D5]

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" wrote:

J'aime bien ce petit raccourci du If Then Else.
N'eût été du IsEmpty de T. Plubanni , j'aurais
sûrement pensé au même raccourci que le tien :-)

Serge

"LSteph" <gmlsteph@gmail.com> a écrit dans le message de news: f8b74455-9a49-4191-8064-261dafd69b90@d8g2000yqf.googlegroups.com...
... je viens de comprendre peut-être autre chose en voyant l'heure de
nos posts respectifs

A la lecture du post de Mgr
s'il y avait eu dix réponses avant la mienne cela n'y aurait rien
changé(j'aurais commencé par ne pas les voir)
et j'aurais de toutes façons posté la première simplification que j'y
voyais en supprimant le If..then..else
Je ne vois aucun inconvénient à ce que tu aies relevé de suite la
même chose, c'est très bien
même sans l'idée de simplifier par [D5]

Cordialement.

--
LSteph

On 15 nov, 21:52, "Tatanka" <ramanu...@videotron.ca> wrote:

cellule et barre d outil

9 réponses

Veuillez sélectionner un problème