Rapport de message :*
 

Re: macro argument: couleur de cell

Titre du sujet : Re: macro argument: couleur de cell
par myDearFriend! le 13/04/2008 18:53:48

Bonjour gilles, le Forum,

Ok, je pense avoir compris cette fois (enfin j'espère )... petit problème de vocabulaire visiblement, nous n'avons pas la même interprétation du mot consolider.

Tu trouveras ci-joint une version de ton exemple entièrement traité par VBA sur la base de ce que j'ai compris. Teste-le et dis-moi si c'est bien ça que tu souhaites et n'hésite pas si je reste à côté de la plaque ou si tu as besoin d'explications complémentaires...

J'ai conservé une MFC "classique" pour mettre en évidence les choix de l'utilisateur (je me suis permis de modifier toutefois les formules en critère MFC).
J'ai utiliser la procédure évènementielle suivante pour tout le traitement (dans le module de code de la Feuil1) ce qui a l'avantage d'éviter le recours à un bouton :
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
    'Si modif utilisateur en A3 ou C12
    If Not Application.Intersect(Target, Union(Range("A3"), Range("C12"))) Is Nothing Then
        'Recherche de l'élément en colonne E
        Set C = Columns("E").Find(Range("A3").Value)
        If Not C Is Nothing Then
            'Si A3 a été modifiée par l'utilisateur
            If Target.Address = "$A$3" Then
                Range("C12").Value = C.Offset(0, 1).Value
            Else
            'Si C12 a été modifiée par l'utilisateur
                C.Offset(0, 1).Value = Range("C12").Value
            End If
        End If
    End If
End Sub


Cordialement,