IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Modifier un bout de code [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2008
    Messages
    704
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2008
    Messages : 704
    Par défaut 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

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    2 130
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 2 130
    Par défaut
    Salut eliot et le forum
    Pas de code, juste un fichier qui impose une version 2007. Pas glop, pas glop!
    A+

  3. #3
    Membre émérite
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    682
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 682
    Par défaut
    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 !

  4. #4
    Membre éclairé
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2008
    Messages
    704
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2008
    Messages : 704
    Par défaut
    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

  5. #5
    Inactif  
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    2 054
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juin 2007
    Messages : 2 054
    Par défaut
    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+

  6. #6
    Membre éclairé
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2008
    Messages
    704
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Seine Maritime (Haute Normandie)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2008
    Messages : 704
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. la sauvegarde des bouts de code ?
    Par blackhorus dans le forum Autres éditeurs
    Réponses: 2
    Dernier message: 02/10/2005, 13h34
  2. [XML][XSL] déplacer bout de code XML
    Par majanissa dans le forum XSL/XSLT/XPATH
    Réponses: 8
    Dernier message: 14/09/2005, 17h17
  3. Besoin d'explications sur un bout de code
    Par zizitop dans le forum C
    Réponses: 7
    Dernier message: 26/04/2005, 14h51
  4. bout de code à dechifrer svp
    Par bball dans le forum C
    Réponses: 32
    Dernier message: 20/01/2005, 23h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo