excel vba application format sur sélection multiple automatique

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:

---

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

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

Code:

---

If Then Else

---

plutôt que

Code:

---

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.

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:

---

On Error GoTo GetOut

---

mieux vaut prévoir une absence d'erreur

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:

---

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+

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.

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:

---

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,

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

A+

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)

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...

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

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

Citation:

---

Envoyé par 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:

---

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+

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

Bonjour
essaie cela

Code:

---

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:

---

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

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
:D 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 ??

Citation:

---

Envoyé par 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
:D 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

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:

---

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é … ???

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:

---

=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:

---

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:

---

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.

Patrick, tu as dit

Citation:

---

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 ?

Bonsoir

Citation:

---

Par contre on peut exclure quelques onglets ?

---

Code:

---

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

---