Discussion :

[mouftie]

Bonjour,
j'ai une macro évènement qui traduit ca en CA couleur Jaune pale, rs en RS couleur Jaune vif.

Cela fonctionne très bien, sauf que si je sélectionne plusieurs cellules (contiguë ou non), que je saisie ca ou CA et que je valide avec Ctrl + Entrée, il ne se passe rien.
Voici mon code

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
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GetOut
'Mise en forme conditionnelle des congés
If Not IsNumeric(Target) Then
Select Case Application.Intersect(Target, Range("E11:AI50"))    'Target
Case "CA", "ca"     
    With Target
    'Saisie automatiquement mise en majuscule
        .Value = UCase(Target.Value)
        .Interior.ColorIndex = 36    'Jaune pale
    End With
Case "RS", "rs"
    With Target
        Target.Value = UCase(Target.Value)
        Target.Interior.ColorIndex = 6 'Jaune fluo
    End With
Case Else
    Target.Value = UCase(Target.Value)
    Target.Interior.ColorIndex = 0  'Blanc
End Select
End If
GetOut:
End Sub

Est-ce que quelqu'un peut m'aider, svp ?
Merci

[jeanmidudu]

Un petit conseil déjà pour optimiser ton code :
Utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Then Else

plutôt que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select case

. C'est une particularité de VBA, le If then else est plus rapide que le select case.

Ensuite, peux-tu expliquer comment fonctionne ton code, car je pense qu'il y a des façons plus simples de le programmer.

[casefayere]

Bonjour,
et j'ajouterais a la réponse de Jeanmidudu, tu auras du mal à voir l'erreur ou la mauvaise syntaxe avec des instructions comme celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo GetOut

mieux vaut prévoir une absence d'erreur

[OBO29]

Bonjour,

Pour ma part, je propose cette idée :
Il faut effectuer le traitement sur chaque cellule de ta plage et non la plage complète ?

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
31
32
33
34
35
36
 
Dim Blocage_rebond As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Plage_Cell As Range
    Dim Cell As Variant
 
    If Blocage_rebond Then GoTo GetOut
    Blocage_rebond = True
 
    On Error GoTo GetOut
 
    Set Plage_Cell = Application.Intersect(Target, Range("E11:AI50"))
 
    For Each Cell In Plage_Cell
        If Not IsNumeric(Cell.Value) Then
            Select Case Cell.Value
 
            Case "CA", "ca"
                Cell.Value = UCase(Target.Value)
                Cell.Interior.ColorIndex = 36    'Jaune pale
 
            Case "RS", "rs"
                Cell.Value = UCase(Target.Value)
                Cell.Interior.ColorIndex = 6 'Jaune fluo
 
            Case Else
                Cell.Value = UCase(Target.Value)
                Cell.Interior.ColorIndex = 0  'Blanc
 
            End Select
        End If
    Next Cell
    Blocage_rebond = False
GetOut:
End Sub

A+

[mouftie]

Bonsoir Jean et Dom,
Merci pour votre réponse
J'avais lu qu'il fallait privilégier les select case...
Mais si tu le dis, je veux bien te croire, car mon code est très très long à s'exécuter.

Pour expliquer mon code, c'est un planning de saisie des congés pour un groupe de collègues qui permet de voir le présentéisme journalier et les statistques des absences pour savoir combien il nous reste de congés à prendre par exemple.

Je reprends le classeur, ce n'est pas moi qui l'est écrit, celui qui l'a fait est parti à la retraite.

Donc il s'agit d'onglets mensuels sur lesquels est reporté le nom de chaque collègue sur 2 lignes, une pour le matin et l'autre pour l'après midi.
Donc si on saisit une 1/2 journée d'absence il n'y a pas de pb, si on veut saisir toute une plage (ex une semaine matin et AM), il ne se passe rien, aucune mise en forme.


Dom, j'ai retirer la gestion des erreurs :
Si je sélectionne une plage, que je saisie "ca" et que je valide par Ctrl + entrée, j'ai un message d'erreur "Incompatibilité de type" sur la ligne Case "CA", "ca"
A noter que le code a été écrit sans "Option Explicit"

Merci encore à vous de bien vouloir m'aider.

[mouftie]

J'ai trouvé un truc qui fonctionne un peu, mais ça ne s'arrête pas "(Ne répond pas)" alors que c'est apparement fini
Voici mon code test

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Mise en forme conditionnelle des congés
Dim Cel As Range
If Not IsNumeric(Target) Then
For Each Cel In Target
    If Cel = "ca" Or Cel = "CA" Then
        With Target
        'Saisie automatiquement mise en majuscule
            .Value = UCase(Cel.Value)
            .Interior.ColorIndex = 36    'Jaune pale
        End With
 
    End If
Next
End If
End Sub

Est-ce que quelqu'un voit le pb ?
Merci

[OBO29]

Bonjour,

As-tu essayé le code que je t'ai proposé plus tôt ?

A+

[joe.levrai]

Bonjour,

ah, les plannings dans Excel ... c'est jamais la joie à mettre en place.

quand on m'a demandé de réaliser un truc simple pour les managers, j'ai opté pour ceci :


- en colonne A : les jours de l'années
- en ligne 1 : le nom des collaborateurs écrits sur deux colonnes fusionnées (matin et après midi). seule la ligne 1 possède des fusions, il n'y en a nul part ailleurs
- à l'intérieur de ce calendrier croisé, toutes les cellules sont des listes de validation, les managers choisissent le motif (le fichier sert à gérer les absences tout motif), et il demeure possible de "COLLER" un motif sur plusieurs cellules, tant que le motif figure dans ta liste de validation
- des mises en forme conditionnelles colorient les cellules en fonction du motif choisi dans les listes de validation


si ça peut t'inspirer ... pas besoin de VBA pour cette configuration (j'en ai ajouté pour proposer des extractions, synthèse et ajouter/mettre en off des collaborateurs ... mais c'est du luxe)

[mouftie]

Bonsoir Joe,
Merci pour ta réponse.
Le pb, je c'est que ce planning est aujourd'hui utilisé par pas mal de services et qu'il nous a été imposé.
J'ai moi-même créé plusieurs plannings, demain je vais reprendre mes notes pour voir si je peux pas adapter. Je sais qu'on peut saisir une plage d'un coup avec une mise en forme.
Peut-être qu'un mixte des 2...

[joe.levrai]

Voici un exemple que j'ai construit rapidement, dans l'idée de ce que j'expliquais

ça ne coute rien d'y jeter un œil, qui sait ? De le proposer pour faire évoluer vos affaires si ça te plait ?

y'a aucune macro dedans, je ne les aient pas sous la main

[mouftie]

Merci beaucoup Joe, je regarde ça dans 1 heure et je te fais un retour.
C'est très gentil.

[OBO29]

J'ai trouvé un truc qui fonctionne un peu, mais ça ne s'arrête pas "(Ne répond pas)" alors que c'est apparement fini
Voici mon code test

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Mise en forme conditionnelle des congés
Dim Cel As Range
If Not IsNumeric(Target) Then
For Each Cel In Target
    If Cel = "ca" Or Cel = "CA" Then
        With Target
        'Saisie automatiquement mise en majuscule
            .Value = UCase(Cel.Value)
            .Interior.ColorIndex = 36    'Jaune pale
        End With
 
    End If
Next
End If
End Sub

Est-ce que quelqu'un voit le pb ?
Merci

Bonjour,

Je pense que le problème est :
Tu modifie une cellule -> appel du programme -> le programme modifie une cellule -> appel du programme .....
d'où Blocage_rebond dans le code que je t'avais proposé.
A+

[Invité]

Bonjour,
Il faut inhiber les évènements pour éviter que ton programme parte en vrille(Application.EnableEvents = True)!

[patricktoulon]

Bonjour
essaie cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
  Dim plage As Range, cel As Range
    Set plage = Range("A1:C9") ' remplace  l'adresse de ta plage ici
    With plage
        .Replace What:="rs", Replacement:="RS", LookAt:=xlWhole
        .Replace What:="ca", Replacement:="CA", LookAt:=xlWhole
        For Each cel In .Cells
            If cel.Value = "RS" Then cel.Interior.ColorIndex = 36
            If cel.Value = "CA" Then cel.Interior.ColorIndex = 28
        Next
    End With
End Sub

ou bien si tu veux que cela soit dynamique
dans le module thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
        If .Value = "ca" Or .Value = "rs" Then .Value = UCase(.Value)
            If .Value = "RS" Then .Interior.ColorIndex = 36
            If .Value = "CA" Then .Interior.ColorIndex = 28
 
    End With
End Sub

tu peux même ajouter une condition sur le sheets que tu veux que cela soit opérationnel

[RyuAutodidacte]

Bonjour tout le monde,
@patricktoulon tu m'a devancé, j'étais quasi prêt à envoyer ma réponse quand j'ai vu la tienne qui correspondait à peu de chose à la mienne
c'est pas grave, je vais en profiter pour poser ma question alors, je voulais savoir si on pouvait faire la même chose avec une variable tableau ??

[patricktoulon]

Bonjour tout le monde,
@patricktoulon tu m'a devancé, j'étais quasi prêt à envoyer ma réponse quand j'ai vu la tienne qui correspondait à peu de chose à la mienne
c'est pas grave, je vais en profiter pour poser ma question alors, je voulais savoir si on pouvait faire la même chose avec une variable tableau ??

je ne vois pas très bien ce que tu entends par la même chose avec un tableau tout du moins je crois que tu métrise pas la définition de variable tableau

une variable tableau est du type variant!!!!
elle peut contenir
des éléments de type string,numerique,object je dis bien les éléments!!! pas le tableau lui même
tu peux cependant faire un tableau de couleur mais les valeurs seront soit du string soit des numérique

ici dans cet exercice on applique une couleur si la valeur est = x ou y , on est donc en présence d'une pseudo MFC

enfin peut être que j'ai mal compris ta demande

[RyuAutodidacte]

En effet je suis loin de connaitre l'ensemble des possibilités dans les variables tableau, je continue d'apprendre pour m'améliorer
je vais essayer d'être plus clair :
Dans une variable tableau dont on aura déterminé la range du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VA = Feuil1.Range("A1:C9").Value

on poura je le pense touver les valeurs du type "RTT" par exemple en VA(x, y)
Donc je voulais savoir si il y avait possibilité de retranscrire l'adresse tableau VA(x, y) afin de la faire correspondre à l'adresse de la Range (qui pourrait être par exemple Feuil1.Range("B7")) pour lui donner la couleur choisie

Edit : j'ai voulu le tester dans le cas d'un For Each , mais je suppose que cela ne doit pas être possible
La boucle For x = … est surement mieux approprié … ???

[mouftie]

Bonjour à Tous

Joe, C'est une idée extrement intéressante et je suis sûre de la réutiliser un jour, malheureusement, dans mon cas je ne peux pas utiliser de liste déroulante, car par défaut, les cellules sont validés par une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=OU(ET(ESTNUM(XEF1048548)=VRAI;XEF$10<>"Dim";XEF$7<>"F";XEF$9<>"");ET(ESTNUM(EQUIV(XEF1048548;Liste_AbsenceCodes;0))=VRAI;XEF$10<>"Dim";XEF$7<>"F";XEF$9<>""))

qui permet de calculer le nb de jours travaillés dans le mois pour la personne....

Ryu Merci çà toi

Patrick,
C'est exactement ce qu je cherche à faire. Merci beaucoup ; la macro fonctionne à merveille ; par contre je ne sais pas utiliser le code évènementiel
Je l'ai copié dans thisworkBook, ça fonctionne bien aussi, si je saisie cellule par cellule, mais si je sélectionne un bloc, que je saisie ca et que je valide par Ctrl + Entrée, j'ai un message d'erreur sur la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Value = "ca" Or .Value = "rs" Then

avec le message "incompatibilité de type".
je suppose qu'il faut passer par un for each ?
Effectivement, j'ai réussi avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cel As Range
For Each Cel In Target
With Cel
        If .Value = "ca" Or .Value = "rs" Then .Value = UCase(.Value)
            If .Value = "RS" Then .Interior.ColorIndex = 36
            If .Value = "CA" Then .Interior.ColorIndex = 28
End With
Next
End Sub

Merci à tous pour votre aide.

[mouftie]

Patrick, tu as dit

tu peux même ajouter une condition sur le sheets que tu veux que cela soit opérationnel

Je n'ai pas très bien compris ce que tu veux dire, tu m'as écrit un code à mettre dans thisworkbook, (je ne connaissais pas), cela veut dire que c'est opérationnel sur toutes les feuilles ?
Par contre on peut exclure quelques onglets ?

[casefayere]

Bonsoir

Par contre on peut exclure quelques onglets ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Sh.Name = .....Then