Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Re Formule et Zone de texte possible ? JB

Re Formule et Zone de texte possible ? JB

11 réponses
Avatar
Guy72
Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy
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
Avatar
JB
S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy


Avatar
Guy72
Merci encore JB
ça me convient.
Mais (pour un plus d'esthétique), est il possible de faire clignoter la zone
de texte quand la réponse est Oui.
Cordialement
Guy

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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy


Avatar
Guy72
JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car cela ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy


Avatar
JB
http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus simplifi er,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car cel a ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is Noth ing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy




Avatar
Guy72
Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car cela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy




Avatar
JB
Exemples divers de shapes (dont clignotement)

http://cjoint.com/?kdbDNovLaR

JB

Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car c ela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy






Avatar
Guy72
Bonjour JB
Je te remercie de ton classeur.
Je n'osais pas te le dire hier, mais je n'arrive toujours pas à faire
fonctionner la shape quans je l'instale dans mon fichier.
J'ai copié le code.
J'ai copié la shape.
J'ai même copié la formule.
J'ai beau essayé même dans un classeur vierge, de refaire la manipe,
impossible je n'arrive même pas à nommer ma shape, quand je fais saisir nom,
je remplace "zone de texte N° " çà revient toujours pareil ne nom ne change
pas.
J'avoue que je ne comprend rien.

Cordialement
Guy

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

Exemples divers de shapes (dont clignotement)

http://cjoint.com/?kdbDNovLaR

JB

Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car cela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy






Avatar
jps
bonjour Guy
tu es tombé dans le piège classique : lorsque tu changes le nom de la shape,
il ne faut surtout pas oublier de faire Entrée sinon, point de salut
allez au boulot et tu verras que la proc de JP marche très bien
HTH
jps

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

Bonjour JB
Je te remercie de ton classeur.
Je n'osais pas te le dire hier, mais je n'arrive toujours pas à faire
fonctionner la shape quans je l'instale dans mon fichier.
J'ai copié le code.
J'ai copié la shape.
J'ai même copié la formule.
J'ai beau essayé même dans un classeur vierge, de refaire la manipe,
impossible je n'arrive même pas à nommer ma shape, quand je fais saisir
nom, je remplace "zone de texte N° " çà revient toujours pareil ne nom ne
change pas.
J'avoue que je ne comprend rien.

Cordialement
Guy

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

Exemples divers de shapes (dont clignotement)

http://cjoint.com/?kdbDNovLaR

JB

Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car
cela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne
plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy










Avatar
jps
hum....je voulais dire "la proc de JB" (qui m'a déjà pardonné), oeuf corse
jps


"jps" a écrit dans le message de news:
%
bonjour Guy
tu es tombé dans le piège classique : lorsque tu changes le nom de la
shape, il ne faut surtout pas oublier de faire Entrée sinon, point de
salut
allez au boulot et tu verras que la proc de JP marche très bien
HTH
jps

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

Bonjour JB
Je te remercie de ton classeur.
Je n'osais pas te le dire hier, mais je n'arrive toujours pas à faire
fonctionner la shape quans je l'instale dans mon fichier.
J'ai copié le code.
J'ai copié la shape.
J'ai même copié la formule.
J'ai beau essayé même dans un classeur vierge, de refaire la manipe,
impossible je n'arrive même pas à nommer ma shape, quand je fais saisir
nom, je remplace "zone de texte N° " çà revient toujours pareil ne nom ne
change pas.
J'avoue que je ne comprend rien.

Cordialement
Guy

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

Exemples divers de shapes (dont clignotement)

http://cjoint.com/?kdbDNovLaR

JB

Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car
cela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count =
1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne
plus.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy














Avatar
JB
Version clignotant: http://cjoint.com/?kdnLxYSLB0
Shapes:http://cjoint.com/?kdnL4xVbcT

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([CZ60] = 0, "Non!", IIf([CZ60] = 1200, "Oui", "Absent"))
If [CZ60] = 1200 Then Clignote "monshape", 10
End If
End Sub

Sub Clignote(s, nb)
n = 0
Do While n < nb
ActiveSheet.Shapes(s).Visible = False
fin = Timer + 0.2
Do While Timer < fin: DoEvents: Loop
ActiveSheet.Shapes(s).Visible = True
fin = Timer + 0.4
Do While Timer < fin: DoEvents: Loop
n = n + 1
Loop
End Sub


JB


Bonjour JB
Je te remercie de ton classeur.
Je n'osais pas te le dire hier, mais je n'arrive toujours pas à faire
fonctionner la shape quans je l'instale dans mon fichier.
J'ai copié le code.
J'ai copié la shape.
J'ai même copié la formule.
J'ai beau essayé même dans un classeur vierge, de refaire la manipe,
impossible je n'arrive même pas à nommer ma shape, quand je fais sais ir nom,
je remplace "zone de texte N° " çà revient toujours pareil ne nom n e change
pas.
J'avoue que je ne comprend rien.

Cordialement
Guy

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

Exemples divers de shapes (dont clignotement)

http://cjoint.com/?kdbDNovLaR

JB

Merci encore JB
Tout est parfait
Cordialement
Guy

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

http://cjoint.com/?kcvlg46ocA

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("CZ51:CZ59, CQ60:CY60, CR52:CX58"), Target) Is
Nothing And Target.Count = 1 Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent"))
End If
End Sub

JB




JB
Il y a une seule formule mais avec plusieurs sommes (j'ai voulus
simplifier,
j'aurai pas dû ):
=SOMME(CZ51:CZ59)+SOMME(CQ60:CY60)+SOMME(CR52:CX58).
J'ai mis ça dans le code, mais je suis pas sur que se soit bon, car cela
ne
fonctionne pas.
If Not Intersect([CZ51:CZ59] + [CQ60:CY60] + [CR52:CX58], Target) Is
Nothing
And Target.Count = 1 Then

Cordialement
Guy


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

S'il ya plusieurs formules, il faudra adapter pour générer le no de
cellule cz60 automatiquement.

http://cjoint.com/?kcrEyhryxJ

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([CZ50:CZ59], Target) Is Nothing And Target.Count = 1
Then
ActiveSheet.Shapes("monshape").TextFrame.Characters.Text = _
IIf([cz60] = 0, "Non!", IIf([cz60] = 1200, "Oui", "Absent "))
End If
End Sub

JB


Salut JB
J'ai quand même un problème.
Quand c'est un chiffre ou un nombre, ça fonctionne;
Mais dans ma cellule, j'ai une formule, et la cela ne fonctionne pl us.

http://cjoint.com/?kcpVbFhUhE

--
Cordialement
Guy








1 2