Macro

[pigvoy]

Bonjour

pouvez vous m aidez pour un macro....

merci

 

[jeanpierre]

Re : Macro

Bonjour pigvoy,

Peut-être pas besoin d'une macro pour cela.

Une simple mise en forme conditionnelle est plus efficace.

Dans Format/Mise en forme conditionnelle et choisir La formule est.

Vois ton fichier en retour.

Bonne journée.

Jean-Pierre

 

[JHA]

Re : Macro

Bonjour Pigvoy, le forum,

pas de macro mais par MFC, vois le fichier joint.

Edit: Bonjour Jean-Pierre même approche

JHA

 

[Hulk]

Re : Macro

Hello les amis,

Une autre version avec macro.

Le code est à placer dans la feuille (click-droit sur l'onglet voulu puis "Visualiser le code")

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim x As Range
    
    Set x = Range("A1:A" & Range("A65536").End(xlUp).Row)
    
    For Each x In x
        If x = "contractuel ORG" Then
            x.Interior.ColorIndex = 3
        Else
            x.Interior.ColorIndex = xlNone
        End If
    Next x

End Sub

Cdt, Hulk.

 

[jeanpierre]

Re : Macro

Re, Bonjour JHA,

Zup, j'ai zappé le coup de la ligne.

Dans ce cas, se positionner sur A2, clic sur le pinceau de la boîte à outils Standard et de B2 jusque la colonne souhaitée et vers le bas, tirer avec le clic gauche enfoncé.

Bonne journée.

Jean-Pierre

 

[Dull]

Re : Macro

Salut pigvoy, JP, JHA, Hulk, le Forum

Plus court VBA maisc'estjustepourlefun Car une MFEC est de loin la meilleur Solution

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Range("Tab") [COLOR=Green]'Insertion/Noms/Définir =DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A:$A)-1)[/COLOR]
    C.Interior.ColorIndex = IIf(C.Value = "contractuel ORG", 3, XlNone)
Next C
End Sub

 

[pigvoy]

Re : Macro

Je voudrai faire un changement...
Dans mon tableau il est deja utilisé la M Forme Conditionnelle et je ne peux pas mettre plus de 3 conditions.

c'est pour cela que j'aurai voulu un macro....
Par contre pouvez vous mettre l'ecriture en rouge (et pas la case) de la case a1 a CJ1.

Merci beaucoup de votre aide

 

[Dull]

Re : Macro

Re Pigvoy, le Fil

Regarde le Fichier Joint

Bonne Journée

 

[pigvoy]

Re : Macro

A voir cela ne fonctionne pas

Si j'ai admetons dans la case "A" Contractuel ORG alors les lettres doivent etre en rouge jusque la case "CJ"

ET si je mets en "A" contractuel et si la case "B" a quelque chose d'ecrit dedans pouvez vous mettre les lettres en bleu jusque la CJ...

Merci

par contre si je mets autre dans chose que contractuel ou contractuel ORG dans "a" alors les lettres redeviennent noir..

j'ai mis le fichier en piece jointes

merci

 

[JHA]

Re : Macro

Re,

la macro de "Dull" réclame un nom "TAB", si tu lis le code tu verras qu'il faut la nommer dans ton fichier:
'Insertion/Noms/Définir "Tab" =DECALER(Feuil1!$A$1:$CJ$1;;;NBVAL(Feuil1!$A:$A)-1)

Par contre, je ne pense pas que la macro te colorie les lignes, encore une fois il est beaucoup plus simple de passer par une MFC si tu n'as pas plus de 3 conditions.

JHA

 

[Dull]

Re : Macro

Re pivoy, JHA le Fil

Peut être ce Code

Private Sub Worksheet_Change(ByVal Target As Range)
For Each C In Range("Tab")
If C.Offset(0, 1) <> "" Then
    Range(C.Offset(0, 2), C.Offset(0, 2).End(xlToRight)).Font.ColorIndex = IIf(C.Value = "contractuel ORG", 3, 0)
End If
Next C
End Sub

n'oublie pas Insertion/noms/définir

 

[pigvoy]

Re : Macro

Bonjour

j'ai beaucoup de mal avec les macros...
mais je crois que ça ne fonctionne pas...

 

[Dull]

Re : Macro

Salut pigvoy, le Forum

Un dernier essai avec ce que j'ai Compris C.A.D

En ColA, si A1 = Contractuel ORG, les cellules de Droites jusqu'a Col CJ doivent être rouges
Si en Col A, A1 = Contractuel, les cellules de droites jusqu'a Col CJ doivent être Bleues SI en ColB il y a quelque chose
Sinon Couleur Normal

Est-ce Bien cela ? Sinon remet ton fichier avec les différents cas de figures

Bonne Journée

 

[pigvoy]

Re : Macro

bonjour

merci a tous pour votre aide....

ça fonctionne bien...

merci