Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
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

1 réponse

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
Guy72
Je te remercie encore JB
Je ne t'embête plus avec çà.
A + peut être pour autre chose.
Cordialement
Guy

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

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 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








1 2