bulle avec converssion en franc

[mimile]

bonjour
je voudrai dans une feuille de calcul excell que lorsque je passe avec la souris sur une case avec un chiffre en € une bulle s'ouvre et affiche la valeur en franc comme si un commentaire est associé à la case (bulle jaune) merci de m'eclairer

 

[petchy]

bonsoir mimile
voila un code de notre cher @+thierry qui est devenu _thierry
et quand tu clickeras sur une case ça fera la conversion

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set cmt = ActiveSheet.Comments
Dim valCell As Currency

For Each c In cmt
c.Delete
Next
On Error Resume Next
If Target.Value = '' Then

Else
valCell = Target.Value * 6.55957
With Target.AddComment
.Text valCell & ' F'
.Shape.Height = 15
.Shape.Width = 100
End With
End If
End Sub

 

[mimile]

merci pour une si rapide reponse
je sais inserer des formules dans des cases même avec une
condition ,mais la inserer ce que tu viens de me dire
je ne sais absolument pas

pour voir comment c'est fait tu m'envoyer une feuille ou cette fonction est deja inserée merci
ou peut etre un listing avec pas à pas ce qu'il fut faire
en tous les cas deja merci

 

[petchy]

Re

tu va dans VBA (alt+F11) et tu met le code dans ta feuille (tu click 2 fois sur ta feuille)qui se trouve a gauche dans VBA,j'espere t'avoir aidé

 

[mimile]

extra ça marche

merci

 

[mimile]

rebonjour
je viens d'introduire la formule dans une feuille et je constate
que les cases contenant une formule n'accepte pas la solution

les cases sans formules fonctionnent tres bien alors que les cases avec des formules comme somme ou moyenne ou divisions
ne reagissent pas en cliquant dessus
merci de vos reponses

 

[mimile]

rebonjour

encore merci pour la solution

ce n'est pas les cases avec formule qui marchent pas mais les cases
fusionnées avec le signe 'fusionner et centrer' qui ne fonctionne pas avec la macro pour afficher une belle avec la valeur en franc

 

[petchy]

bonjour

envoi ton exemple sur le forum B)

 

[Minick]

Salut,

J'ai un peu modifié le code pour palier a ce probleme de cellules fusionnées

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim valCell As Currency
    Dim C As Comment
    
    If Not ActiveSheet.Comments Is Nothing Then
        For Each C In ActiveSheet.Comments
            C.Delete
        Next
    End If

    valCell = 0

    If Target.MergeCells = True Then
        If IsNumeric(Target.Value2(1, 1)) Then
            valCell = Target.Value2(1, 1) * 6.55957
        End If
    Else
        If IsNumeric(Target.Value) Then
            valCell = Target.Value * 6.55957
        End If
    End If

    If valCell  0 Then
        With Cells(Target.Row, Target.Column).AddComment
            .Text Round(valCell, 2) & ' F'
            .Shape.Height = 15
            .Shape.Width = 100
        End With
    End If
End Sub

@+

Message édité par: Minick, à: 22/02/2005 14:06

 

[Minick]

Re,

C'est bizarre dans le code il ne veut pas prendre le different ('')

Il faut donc changer cette ligne :
If valCell 0 Then

Par

If valCell 0 Then

@+

 

[Minick]

aarrrfffffffffffff

c'est pas uniquement dans le code qu'il ne veut pas

alors j'essai autrement
Je disais donc qu'il faut donc changer cette ligne :

If valCell 0 Then

Par

If valCell 0 Then
ATTENTION: Il faut enlever le ' _ '

Désolé pour le bidouillage pour me faire comprendre, j'espere que cela va fonctionner

@+


ARRRRRRRFFFFFFFFFFFFFF ca marche toujours pas, autre tentative

Message édité par: Minick, à: 22/02/2005 14:17

Bon ca veut toujours pas alors en litterature ca donne cela:
If valCell 'Signe Inferieur' 'Signe Superieur' 0 Then

En remplacant le texte en pourpre par les signes respectifs.

@+

Message édité par: Minick, à: 22/02/2005 14:22

 

[mimile]

bonjour
je vois l'interet que l'on porte à mon probleme

d'apres le dernier intervenant il a pas tout à fait trouvé mais je garde espoir d'avoir la solution dans les prochaines heures
en tout les cas moi avec mes connaissances en excell aurait jamais pu resoudre cela merci encore

 

[mimile]

mimile écrit:

bonjour
je vois l'interet que l'on porte à mon probleme

d'apres le dernier intervenant il a pas tout à fait trouvé mais je garde espoir d'avoir la solution dans les prochaines heures
en tout les cas moi avec mes connaissances en excell aurait jamais pu resoudre cela merci encore

en effet il y aune erreur

 

[PascalXLD]

Bonjour le fil

J'essaies Minick

If valCell 0 Then

Bon courage

donc on peut < et > mais pas le différent

Message édité par: Pascal76, à: 22/02/2005 15:07

 

[Minick]

mimile écrit:

mimile écrit:

bonjour
je vois l'interet que l'on porte à mon probleme

d'apres le dernier intervenant il a pas tout à fait trouvé mais je garde espoir d'avoir la solution dans les prochaines heures
en tout les cas moi avec mes connaissances en excell aurait jamais pu resoudre cela merci encore

en effet il y aune erreur

Ou as tu une erreur (sur quelle ligne de code ) ???

@+