Discussion :

[eliot.raymond]

Bonjour a tous et toutes, bonjour forum,

Mis le fichier version 2003 Mea culpa je savais pourtant, désolé messieurs.

Mon code refait des siennes mais cette fois je l'aurai avec votre aide et si vous avez un instant de dispo, car je crois bien avoir trouver le souci.

Une partie du petit code que je joint fonctionne mais pas correctement.

Voyez SVP le fichier, j'ai écrit des explications quand au fonctionnement du code, j'ai essayer d'ètre le plus clair possible, enfin j'espère.

Si quelqu'un pouvait me refaire juste la fin du code d'une autre façon, afin que je n'ai plus l'erreur de disparition du signe de l'euro.

Je vous souhaite un excellent Dimanche a tous et merci

Raymond

[Gorfael]

Salut eliot et le forum
Pas de code, juste un fichier qui impose une version 2007. Pas glop, pas glop!
A+

[DeaD78]

Salut !

Même problème : soit tu proposes une version compatible aux autres Excel (.xls donc) que tu peux faire avec Excel2007 soit tu copies-colles ton code entre balises sur le fofo, ce qui sera nettement plus simple

Pour info, pour ma part, je préfère m'occuper des codes visibles sur le fofo plutôt que de ceux donnés en fichier. Et je ne dois pas être le seul

A plus tard !

[eliot.raymond]

Bonsoir a tous, forum bonsoir

Voila j'ai mis le fichier en version 2003

obliger de mettre un fichier, j'y ai mis les explications

Au plaisir de vous relire, et bonne soirée a vous et aussi merci

Raymond

[LeForestier]

Bonjour,
Bien que tu ai mis ton classeur en xls, il y a 3 références ajoutées que je n'ai pas, ce qui fait que toutes mes bibliothèques ne fonctionnent pas corectement. De toute façons tu ferais bien de les supprimé vu que tu ne les emploi pas.
Test ce code à part les première lettres en majuscule Left et Mid ne fonctionne pas, ça devrais aller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lig As Long
    Lig = ActiveCell.Row
    If Cells(Lig, 10).Interior.ColorIndex = 2 Then   'Test si fond blanc = 2
        Cells(Lig, 11) = Cells(Lig, 10)    'Récupèrer la valeur et somme
        Cells(Lig, 10) = "Valider"                  'Message valider colonne J N°10
        With Range(Cells(Lig, 1), Cells(Lig, 10))
            .Interior.ColorIndex = 16
            With .Characters(1, 1).Font
                .ColorIndex = 6                                              'Couleur noire
                .Bold = False         'Non gras
            End With
            With .Characters(1, 1).Font
                .ColorIndex = 3                                                    'V en rouge
                .Bold = True                                                       'V en gras
            End With
        End With
    ElseIf Cells(Lig, 10).Interior.ColorIndex = 16 Then                'Barre gris fonçé 16
        Range(Cells(Lig, 1), Cells(Lig, 10)).Interior.ColorIndex = 2       'Test si fond = 2
        Cells(Lig, 10) = Cells(Lig, 11)     'Replace la somme
        Cells(Lig, 11) = ""                   'Efface cellule colonne K
        With Range(Cells(Lig, 1), Cells(Lig, 10))
            .Interior.ColorIndex = 2
            With .Characters(1, 1).Font
                .ColorIndex = 1                                                    'V en rouge
                .Bold = False                                                       'V en gras
            End With
        End With
    End If
End Sub

C'est inutile de refaire tout le tableau à chaque fois.
Tout aussi inutile.. Application.ScreenUpdating.. la macro est trop courte.
J'ai aussi optimiser ton code, par exemple..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range(Cells(Lig, 10) ,Cells(Lig, 10)) = ""
'est remplacer par
Cells(Lig, 10)  = ""

Tu dis..
A+

[eliot.raymond]

Bonjour a tous et toutes, forum bonjour,

Bonjour Leforestier,

Merci pour ta réponse et le code modifier, je l'ai intégrer a la place de l'ancien et ca fonctionne bien et je n'ai plus d'erreur de disparition du symbole de l'euro.

Sinon pour ce message, tu veux bien me préciser ce que tu me conseil de virer SVP

Bien que tu ai mis ton classeur en xls, il y a 3 références ajoutées que je n'ai pas, ce qui fait que toutes mes bibliothèques ne fonctionnent pas corectement. De toute façons tu ferais bien de les supprimé vu que tu ne les emploi pas

.

Encore merci beaucoup, je te souhaite une très bonne journée.

A plus tard Raymond