HS pour Hors Sujet et non pas le HS (Hors Service) de certain mvp bref, pour l'heure d'hiver ou d'été, je reste assis sur un petit tabouret, j'attends 3 H et là je change les pendules. Oui je fais comme on a dit à la télé. :o))
-- Pierre CFI MVP Microsoft Access
HS pour Hors Sujet et non pas le HS (Hors Service) de certain mvp
bref, pour l'heure d'hiver ou d'été, je reste assis sur un petit tabouret, j'attends 3 H et là je change les pendules. Oui je fais
comme on a dit à la télé. :o))
HS pour Hors Sujet et non pas le HS (Hors Service) de certain mvp bref, pour l'heure d'hiver ou d'été, je reste assis sur un petit tabouret, j'attends 3 H et là je change les pendules. Oui je fais comme on a dit à la télé. :o))
-- Pierre CFI MVP Microsoft Access
Frédéric Sigonneau
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi
envisager d'utiliser une fonction perso VBA :
'=========== Function HasComment(cell) As Boolean
Dim Commentaire As Comment
On Error Resume Next
Set Commentaire = cell.Comment
On Error GoTo 0
HasComment = Not Commentaire Is Nothing
End Function
'===========
(utilisable aussi comme fonction de feuille de calcul).
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon....
Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure
Instructions
Else
EndIf
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
Ablobaka
Merçi bcp "Frédéric Sigonneau" a écrit dans le message de news:
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== > (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
Merçi bcp
"Frédéric Sigonneau" <frederic.sigonneau@phri.fr> a écrit dans le message de
news:OCvCoo0vEHA.2624@TK2MSFTNGP11.phx.gbl...
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi
envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean
Dim Commentaire As Comment
On Error Resume Next
Set Commentaire = cell.Comment
On Error GoTo 0
HasComment = Not Commentaire Is Nothing
End Function
'=========== >
(utilisable aussi comme fonction de feuille de calcul).
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon....
Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure
Instructions
Else
EndIf
Merçi bcp "Frédéric Sigonneau" a écrit dans le message de news:
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== > (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
isabelle
bonjour Frédéric,
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== > (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
bonjour Frédéric,
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas
j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi
envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean
Dim Commentaire As Comment
On Error Resume Next
Set Commentaire = cell.Comment
On Error GoTo 0
HasComment = Not Commentaire Is Nothing
End Function
'=========== >
(utilisable aussi comme fonction de feuille de calcul).
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon....
Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure
Instructions
Else
EndIf
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== > Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== > (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
C'est normal, Isabelle, dans la mesure où Insérer/Supprimer un commentaire ne déclenche pas d'événement qui pourrait provoquer un recalcul. Il faut tout faire à la main :(
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
bonjour Frédéric,
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== >>Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== >> (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
Merçi de votre aide Christian
C'est normal, Isabelle, dans la mesure où Insérer/Supprimer un commentaire ne
déclenche pas d'événement qui pourrait provoquer un recalcul. Il faut tout faire
à la main :(
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
bonjour Frédéric,
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas
j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi
envisager d'utiliser une fonction perso VBA :
'=========== >>Function HasComment(cell) As Boolean
Dim Commentaire As Comment
On Error Resume Next
Set Commentaire = cell.Comment
On Error GoTo 0
HasComment = Not Commentaire Is Nothing
End Function
'=========== >>
(utilisable aussi comme fonction de feuille de calcul).
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon....
Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure
Instructions
Else
EndIf
C'est normal, Isabelle, dans la mesure où Insérer/Supprimer un commentaire ne déclenche pas d'événement qui pourrait provoquer un recalcul. Il faut tout faire à la main :(
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
bonjour Frédéric,
=HasComment(A1) si j'efface le commentaire de A1 la fonction ne se recalcul pas j'y ai ajouté Application.Volatile, mais même avec ça, il n'y a pas de recalcul :-(.
isabelle
Bonjour,
Si c'est un genre de test que tu es souvent amené à faire, tu peux aussi envisager d'utiliser une fonction perso VBA :
'=========== >>Function HasComment(cell) As Boolean Dim Commentaire As Comment On Error Resume Next Set Commentaire = cell.Comment On Error GoTo 0 HasComment = Not Commentaire Is Nothing End Function '=========== >> (utilisable aussi comme fonction de feuille de calcul).
FS --- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://frederic.sigonneau.free.fr Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
Je souhaite créer une structure conditionnelle de genre :
Si la cellule active comporte un commentaire alores... sinon.... Je ne trouve pas la syntaxe correcte.
If ActiveCell.Comment = True Then ' Génère une erreure Instructions Else EndIf
