Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:
mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:mTo_b.74461$2g.30675@charlie.risq.qc.ca...
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#rE4Nwh#DHA.2692@tk2msftngp13.phx.gbl...
"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:6io_b.74459$2g.11497@charlie.risq.qc.ca...
Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:
mbo_b.74457$2g.48895@charlie.risq.qc.ca...
"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:B7o_b.74455$2g.74006@charlie.risq.qc.ca...
C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eEpWHeh#DHA.1456@TK2MSFTNGP09.phx.gbl...
Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pour
visualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:jIn_b.74450$2g.25943@charlie.risq.qc.ca...
Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uf2r1Hh#DHA.2348@TK2MSFTNGP09.phx.gbl...
Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),
"percent")
Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$a001280a@phx.gbl...
bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:
mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
-----Message d'origine-----
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" a écrit dans
le message de news:
K4p_b.74466$Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis
pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème
particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une
valeur
dans une cellule et la valider par une flèche de
déplacement ?
:-)
Serge
"michdenis" a écrit dans le
message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les
commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message
de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit
dans le message de
news:mbo_b.74457$"C'est effectivement du plus bel effet si on les
laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous
affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le
message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les
laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target
As Range)
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans
le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement
sélectionner la
cellulepourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le
message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer»
ma patente :
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit
Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize
= True
End With
End Sub
Serge
"michdenis" a écrit dans
le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie
ce qui suit :
Dans la procédure : Ces plages sont adaptées
au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As
Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is
Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric
(Target) Then
If Range("A1") <> 0 And Target.Value
<> 0 Then
Text = "Pourcentage : " & Format
(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range
("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit
dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre
l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2
puis
a3, ..etc l'évolution du pourcentage du budget
du mois
sélectionné par rapport au budget total.
est-ce possible?
.
-----Message d'origine-----
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans
le message de news:
K4p_b.74466$2g.41564@charlie.risq.qc.ca...
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis
pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème
particulier
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:mTo_b.74461$2g.30675@charlie.risq.qc.ca...
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une
valeur
dans une cellule et la valider par une flèche de
déplacement ?
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le
message de news:
#rE4Nwh#DHA.2692@tk2msftngp13.phx.gbl...
"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les
commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message
de
news:6io_b.74459$2g.11497@charlie.risq.qc.ca...
Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" <denis.michon@cgocable.ca> a écrit
dans le message de
news:
mbo_b.74457$2g.48895@charlie.risq.qc.ca...
"C'est effectivement du plus bel effet si on les
laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous
affichés ! WoW !
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le
message de
news:B7o_b.74455$2g.74006@charlie.risq.qc.ca...
C'est effectivement du plus bel effet si on les
laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target
As Range)
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans
le message de news:
eEpWHeh#DHA.1456@TK2MSFTNGP09.phx.gbl...
Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement
sélectionner la
cellule
pour
visualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" <rien@absent.net> a écrit dans le
message de
news:jIn_b.74450$2g.25943@charlie.risq.qc.ca...
Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer»
ma patente :
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit
Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize
= True
End With
End Sub
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans
le message de news:
uf2r1Hh#DHA.2348@TK2MSFTNGP09.phx.gbl...
Bonjour,
Dans le module feuille de ton classeur, copie
ce qui suit :
Dans la procédure : Ces plages sont adaptées
au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As
Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is
Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric
(Target) Then
If Range("A1") <> 0 And Target.Value
<> 0 Then
Text = "Pourcentage : " & Format
(Target.Value /
Range("A1"),
"percent")
Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range
("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
<anonymous@discussions.microsoft.com> a écrit
dans le message de
news:14c1f01c3fa01$0e0d74a0$a001280a@phx.gbl...
bonjour, je cherche à faire apparaitre
l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2
puis
a3, ..etc l'évolution du pourcentage du budget
du mois
sélectionné par rapport au budget total.
est-ce possible?
.
-----Message d'origine-----
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" a écrit dans
le message de news:
K4p_b.74466$Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis
pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème
particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une
valeur
dans une cellule et la valider par une flèche de
déplacement ?
:-)
Serge
"michdenis" a écrit dans le
message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les
commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message
de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit
dans le message de
news:mbo_b.74457$"C'est effectivement du plus bel effet si on les
laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous
affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le
message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les
laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target
As Range)
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans
le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement
sélectionner la
cellulepourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le
message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer»
ma patente :
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit
Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize
= True
End With
End Sub
Serge
"michdenis" a écrit dans
le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie
ce qui suit :
Dans la procédure : Ces plages sont adaptées
au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As
Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal
Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is
Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric
(Target) Then
If Range("A1") <> 0 And Target.Value
<> 0 Then
Text = "Pourcentage : " & Format
(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range
("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit
dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre
l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2
puis
a3, ..etc l'évolution du pourcentage du budget
du mois
sélectionné par rapport au budget total.
est-ce possible?
.
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:
mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:mTo_b.74461$2g.30675@charlie.risq.qc.ca...
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#rE4Nwh#DHA.2692@tk2msftngp13.phx.gbl...
"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:6io_b.74459$2g.11497@charlie.risq.qc.ca...
Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:
mbo_b.74457$2g.48895@charlie.risq.qc.ca...
"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:B7o_b.74455$2g.74006@charlie.risq.qc.ca...
C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eEpWHeh#DHA.1456@TK2MSFTNGP09.phx.gbl...
Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pour
visualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:jIn_b.74450$2g.25943@charlie.risq.qc.ca...
Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
uf2r1Hh#DHA.2348@TK2MSFTNGP09.phx.gbl...
Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),
"percent")
Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$a001280a@phx.gbl...
bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:
mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Bonjour Garnote,
Dans ce cas précis, nul besoin de faire intervenir une variable au niveau
du classeur. Tu n'as qu'à ajouter une variable
au niveau de la procédure comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
AutreMacro target
end if
End Sub
Sub AutreMacro(Rg as range)
MsgBox rg.Address
End Sub
Salutations!
"garnote" a écrit dans le message de
news:JOp_b.74471$
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" a écrit dans le message de news:
K4p_b.74466$Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent
en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellulepourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de
news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Bonjour Garnote,
Dans ce cas précis, nul besoin de faire intervenir une variable au niveau
du classeur. Tu n'as qu'à ajouter une variable
au niveau de la procédure comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
AutreMacro target
end if
End Sub
Sub AutreMacro(Rg as range)
MsgBox rg.Address
End Sub
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:JOp_b.74471$2g.35721@charlie.risq.qc.ca...
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de news:
K4p_b.74466$2g.41564@charlie.risq.qc.ca...
Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:mTo_b.74461$2g.30675@charlie.risq.qc.ca...
Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
#rE4Nwh#DHA.2692@tk2msftngp13.phx.gbl...
"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent
en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:6io_b.74459$2g.11497@charlie.risq.qc.ca...
Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message de
news:
mbo_b.74457$2g.48895@charlie.risq.qc.ca...
"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:B7o_b.74455$2g.74006@charlie.risq.qc.ca...
C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eEpWHeh#DHA.1456@TK2MSFTNGP09.phx.gbl...
Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellule
pour
visualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de
news:jIn_b.74450$2g.25943@charlie.risq.qc.ca...
Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_Évolutifs
End If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:
uf2r1Hh#DHA.2348@TK2MSFTNGP09.phx.gbl...
Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),
"percent")
Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$a001280a@phx.gbl...
bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
Bonjour Garnote,
Dans ce cas précis, nul besoin de faire intervenir une variable au niveau
du classeur. Tu n'as qu'à ajouter une variable
au niveau de la procédure comme ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
AutreMacro target
end if
End Sub
Sub AutreMacro(Rg as range)
MsgBox rg.Address
End Sub
Salutations!
"garnote" a écrit dans le message de
news:JOp_b.74471$
Salut Denis,
OK, j'ai compris ma bêtise.
Mon problème venait du fait que je pensais
avoir récupéré l'adresse de Target dans AutreMacro
en utilisant ActiveCell. Un petit exemple :
Pas bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then AutreMacro
End Sub
Sub AutreMacro()
MsgBox ActiveCell.Address
End Sub
Bon
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Set ici = Target
AutreMacro
End If
End Sub
Public ici As Range
Sub AutreMacro()
MsgBox ici.Address
End Sub
Peut-on procéder autrement pour récupérer Target dans
une autre macro ?
Serge
"Denis Michon" a écrit dans le message de news:
K4p_b.74466$Est-il possible de prévoir l'événement
Cela devient de l'art divinatoire ! et là , je ne suis pas très doué !!
Si tu précisais, ce que tu désires faire ?
" valider par une flèche de déplacement "
Habituellement, cela ne cause aucun problème particulier
Salutations!
"garnote" a écrit dans le message de
news:mTo_b.74461$Oui, tout à fait. ( m'en viens parano, stie ! )
Et une subsidiaire question :
Est-il possible de prévoir l'événement : Entrez une valeur
dans une cellule et la valider par une flèche de déplacement ?
:-)
Serge
"michdenis" a écrit dans le message de news:
#rE4Nwh#"Se gausse-t-on de moi ?"
Absolument pas... mais un fait demeure, les commentaires s'affichent
en
permanence à l'écran !
N'était-ce pas de cet effet dont tu parlais ?
;-)
Salutations!
"garnote" a écrit dans le message de
news:6io_b.74459$Se gausse-t-on de moi ?
:-)
Moé
"Denis Michon" a écrit dans le message de
news:mbo_b.74457$"C'est effectivement du plus bel effet si on les laisse affichés"
Tu n'as jamais si bien dit.... ils demeurent tous affichés ! WoW !
;-)
Salutations!
"garnote" a écrit dans le message de
news:B7o_b.74455$C'est effectivement du plus bel effet si on les laisse affichés
et ça simplifie mes macros.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row <> 1 Then Commentaires_Évolutifs
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then
ici.ClearComments
Exit Sub
End If
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
:-)
Serge
"michdenis" a écrit dans le message de news:
eEpWHeh#Bonjour Garnote,
Le seul "hic" c'est que l'on doive réellement sélectionner la
cellulepourvisualiser le commentaire ! M'enfin !!!
Salutations!
"garnote" a écrit dans le message de
news:jIn_b.74450$Salut Denis,
J'ai un peu changé de fil !
Tes «publications» m'ont permis de «fioriturer» ma patente :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then
Range("A:A").ClearComments
Else
If Target.Column = 1 And Target.Row <> 1 Then
Commentaires_ÉvolutifsEnd If
End Sub
Sub Commentaires_Évolutifs()
On Error Resume Next
Range("A:A").ClearComments
Set ici = ActiveCell
If ici = "" Or Not IsNumeric(ici) Then Exit Sub
t = Format(ici.Value / [a1], "percent")
With ici
.ClearComments
.AddComment
.Comment.Text Text:="Évolution: " & t
.Comment.Visible = True
.Comment.Shape.OLEFormat.Object.AutoSize = True
End With
End Sub
Serge
"michdenis" a écrit dans le message de
news:
uf2r1Hh#Bonjour,
Dans le module feuille de ton classeur, copie ce qui suit :
Dans la procédure : Ces plages sont adaptées au besoin
En A1 = montant global
En A2:A12 Montant partiel
'------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range("A2:A12")
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("a1")) Then
If Range("A1") <> 0 Then
LesCommentaires Rg
End If
End If
End If
Set Rg = Intersect(Target, Range("A2:A12"))
If Not Rg Is Nothing Then
LesCommentaires Rg
End If
Set Rg = Nothing
End Sub
'------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A12")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
Target.ClearComments
If IsNumeric(Range("A1")) And IsNumeric(Target) Then
If Range("A1") <> 0 And Target.Value <> 0 Then
Text = "Pourcentage : " & Format(Target.Value /
Range("A1"),"percent")Target.AddComment Text
End If
End If
End If
End Sub
'------------------------------------
Sub LesCommentaires(Rg As Range)
For Each c In Rg
c.ClearComments
If IsNumeric(c) Then
If c <> 0 Then
Text = "Pourcentage : " _
& Format(c.Value / Range("A1"), "percent")
c.AddComment Text
End If
End If
Next
End Sub
'------------------------------------
a écrit dans le message de
news:14c1f01c3fa01$0e0d74a0$bonjour, je cherche à faire apparaitre l'interprétation
du résultat d'une cellule sur son commentaire.
par exemple :
sur la cellule a1 montant du budget total fixe
sur a2 montant budget janvier évolutif
sur a3 montant budget fevrier évolutif
.. etc
je veux voir en sélectionnant les cellules a2 puis
a3, ..etc l'évolution du pourcentage du budget du mois
sélectionné par rapport au budget total.
est-ce possible?
