Macro

jeanpierre

Nous a quitté

Repose en paix

• 22 Octobre 2009

• #2

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

 

Pièces jointes

• test(1).zip

  14 KB · Affichages: 35
• test(1).zip

  14 KB · Affichages: 32
• test(1).zip

  14 KB · Affichages: 37

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 22 Octobre 2009

• #3

Re : Macro

Bonjour Pigvoy, le forum,

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

Edit: Bonjour Jean-Pierre même approche

JHA

 

Pièces jointes

• MFC Pigvoy.xls

  23 KB · Affichages: 44

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 22 Octobre 2009

• #4

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")

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.

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 22 Octobre 2009

• #5

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #6

Re : Macro

Salut pigvoy, JP🙂, JHA🙂, Hulk🙂, le Forum

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

Code:

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

 

Dernière édition: 22 Octobre 2009

Vote positif 0 Vote négatif

P

pigvoy

Guest

• 22 Octobre 2009

• #7

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #8

Re : Macro

Re Pigvoy, le Fil

Regarde le Fichier Joint

Bonne Journée

 

Pièces jointes

• pigvoy.zip

  6.7 KB · Affichages: 44

Vote positif 0 Vote négatif

P

pigvoy

Guest

• 22 Octobre 2009

• #9

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

 

Pièces jointes

• test.xls

  34 KB · Affichages: 58
• test.xls

  34 KB · Affichages: 56
• test.xls

  34 KB · Affichages: 51

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 22 Octobre 2009

• #10

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #11

Re : Macro

Re pivoy, JHA 🙂 le Fil

Peut être ce Code

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

 

Pièces jointes

• pigvoyV2.zip

  9.5 KB · Affichages: 34
• pigvoyV2.zip

  9.5 KB · Affichages: 33
• pigvoyV2.zip

  9.5 KB · Affichages: 35

Vote positif 0 Vote négatif

P

pigvoy

Guest

• 23 Octobre 2009

• #12

Re : Macro

Bonjour

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 24 Octobre 2009

• #13

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

 

Pièces jointes

• pigvoyV2.zip

  8.7 KB · Affichages: 30
• pigvoyV2.zip

  8.7 KB · Affichages: 31
• pigvoyV2.zip

  8.7 KB · Affichages: 36

Vote positif 0 Vote négatif

P

pigvoy

Guest

• 2 Novembre 2009

• #14

Re : Macro

bonjour

merci a tous pour votre aide....

ça fonctionne bien...

merci

 

Vote positif 0 Vote négatif