Modifier un bout de code

Version imprimable

31/05/2009, 08h24
eliot.raymond

Modifier un bout de code

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
31/05/2009, 18h31
Gorfael

Salut eliot et le forum
Pas de code, juste un fichier qui impose une version 2007. Pas glop, pas glop!
A+
31/05/2009, 18h55
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 :ccool:

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

A plus tard !
31/05/2009, 19h32
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

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:

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:

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

Tu dis..
A+

01/06/2009, 11h40
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

Citation:

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
01/06/2009, 19h12
LeForestier

Les 3 bibliothèques dont je parle sont...

Citation:

AccesibilityCplAdmin
ATPVBAEN.XLAM
EUROTOOL.XLAM

J'ai pourtant essayer avec le 2007 mais elles ne sont pas disponnibles non plus.
Et le fait qu'elles sont notées en "Manquant", les autres bibliothèques foire aussi.
++
01/06/2009, 19h25
eliot.raymond

Bonsoir Leforestier, forum

Merci bien pour ta réponse, j'ai virer les trois fichiers que tu m'a conseillé, le temps dira si c'est bon, pour l'instant c'est tout bon et te confirme que ton code de ce matin aussi.RAS.

Merci encore a toi, je te souhaite une excellente soirée
A plus tard sans doute
Raymond