Transcoder valeurs sur EXCEL

Bonjour au forum,

Je voulais savoir s'il était possible, d'une quelconque manière, d'obtenir une transcodification automatique lors de la saisie?
Autrement dit, j'aimerai que lorsque dans une cellule d'une colonne définie, j'écrit Non, NON ou non j'obtienne un "N".

Je ne sais pas si cela relève du format de cellule, de la validation ou de VBA.

Qu'en pensez-vous?

Cordialement,

Julien

Bonjour,
Cela peux se faire à l'aide de la procédure événementielle Worksheet_Change de la feuille où à lieu l'encodage (C'est donc du VBA) ou la procédure événementielle B]Workbook_SheetChange[/B] du classeur (module ThisWorkbook)
Exemple pour la colonne B

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then Exit Sub Application.EnableEvents = False With Target Select Case LCase(Trim(.Value)) Case "non": .Value = "N" End Select End With Application.EnableEvents = True End Sub

---

Bonjour Philippe et merci de ta réponse.

Puis-je pousser le vice plus loin?

Dans ton exemple, tu défini en dure les "valeurs probables". Comment faire pour rendre ça dynamique?
Exemple, sur un onglet :

Code source Encodage Nombre de colonne
n N 2
Non N 2



Merci et a bientôt

Julien

Bonjour,

Dans une feuille paramètre dont la propriété CodeName est shtParam, tu commences une liste de deux colonnes à partir de la cellule A1
Par exemple

	A	B
1	non	N
2	oui	O
3	personnel	Perso

Dès que l'on rentrera une donnée correspondant en minuscule à la liste de la colonne A, la procédure renverra le caractère ou le mot se trouvant en colonne B de la même ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) Dim lstParam(), r As Integer If Target.Column <> 2 Then Exit Sub Application.EnableEvents = False lstParam = shtparam.Range("A1").CurrentRegion With Target For r = 1 To UBound(lstParam) If LCase(Trim(.Value)) = lstParam(r, 1) Then .Value = lstParam(r, 2): Exit For Next End With Application.EnableEvents = True End Sub

---

Un grand merci,

Cela ouvre pas mal de perspectives.

Je reste malgré tout étonné qu'il n'y ai pas un autre moyen que du VBA. Peut être un jour qui sait?

Excellente journée.

Cordialement,

Julien

Bonjour,

Pour des cas très simple et limités, il reste le format personnalisé
A lire Création, enregistrement et fusion de formats personnalisés

Bonjour Philippe,

J'ai un petit soucis avec la macro.
Elle fonctionne très bien avec les valeurs que je définit lors de la création de la macro.

Cependant, si je revient sur mon fichier un autre jour pour mettre un nouveau critère sur l'onglet "shtParam", la mise à jour ne se fait pas.

Du coup, est-il possible "rafraichir" la table critères? Est-il possible de lancer la macro manuellement (il s'agit là d'une autre demande peut-être)?

Merci par avance?

Cordialement,

julien

Bonjour,

Citation:

---

Cependant, si je revient sur mon fichier un autre jour pour mettre un nouveau critère sur l'onglet "shtParam", la mise à jour ne se fait pas.

---

C'est normal, il n'y a aucune procédure événementielle prévue pour la feuille nommée shtParam, il faut donc en prévoir une pour cette feuille.

Citation:

---

Est-il possible de lancer la macro manuellement

---

Bien entendu, il faut alors placer les lignes de code de la procédure événementielle dans une procédure SUB classique et indépendante

Quelle genre de procédure de rafraichissement?

Pour l'autre question, entends-tu ce genre de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub MAJ () Dim lstParam(), r As Integer 'If Target.Column <> 1 Then Exit SuB   Application.EnableEvents = False lstParam = shtParam.Range("A1").CurrentRegion With Target For r = 1 To UBound(lstParam) If LCase(Trim(.Value)) = lstParam(r, 1) And LCase(Trim(.Value)) = lstParam(r, 2) Then .Value = lstParam(r, 3): Exit For Next End With Application.EnableEvents = True End Sub

---

Merci pour tes conseils.

Julien

Bonjour,

Citation:

---

Quelle genre de procédure de rafraichissement ?

---

J'ai écris procédure événementielle et pas rafraîchissement. C'est à dire qu'il faudrait prévoir que si l'on modifie un élément de la liste se trouvant dans la feuille shtParam, il y a ait automatiquement une mise à jour de la colonne concernée par les modifications.

Citation:

---

Pour l'autre question, entends-tu ce genre de code:

---

Oui c'est presque cela sauf qu'ici il ne s'agit pas de l'objet Target mais de sa colonne.

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Oui c'est presque cela sauf qu'ici il ne s'agit pas de l'objet Target mais de sa colonne.

---

Target c'est un objet Range. Un objet Range a Obligatoirement un propriété Address et presque sûrement une propriété Column.

Bonjour Messieurs,


Je vais préciser ma demande. Je souhaite faire du "transcodage" automatique.

Lorsque que je reçois un fichier Excel, j'aimerai que la macro teste chaque ligne d'un onglet en fonction d'un onglet "Table de transcodification" qui peut évoluer et qui corrige la valeur en fonction de la dite table.

Bien conscient que cela est probablement plus compliqué, cela dépasse mes compétences.

Cordialement,

Julien