Discussion :

[Julien91080]

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

[Philippe Tulliez]

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 :

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

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

[Julien91080]

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

[Philippe Tulliez]

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 :

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

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

[Julien91080]

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

[Philippe Tulliez]

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

[Julien91080]

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

[Philippe Tulliez]

Bonjour,

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.

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

[Julien91080]

Quelle genre de procédure de rafraichissement?

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

Code :

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

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

[Philippe Tulliez]

Bonjour,

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.

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.

[clementmarcotte]

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.

[Julien91080]

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