comment convertir un code en clair en excel Résolu

Question

Bonjour,

Tout d'abord je débute en excel, et je vois pas trop comment m'y prendre.

Je reçois des feuilles excel dont les certaines cellules sont remplies avec des codes.

Ces codes correspondent à un nom en clair. J'ai environ 100 codes.

j'ai une liste de correspondance de chaque code avec son nom en clair.

je voudrai lorsque que je copie la cellule de la feuille source dans ma feuille et dans sa cellule que le code et le nom en clair s'inscrive dans ma cellule.

Un petit exemple : Je reçois une feuille et dans la cellule A1 il y a "MATH"

Si je copie cette cellule de la feuille et que je la colle dans la cellule de ma feuille je voudrai que dans ma cellule il y ait MATH Mathématique.

Merci d'avance à toutes et tous qui vont m'aider.

debutante-excel · Accepted Answer

Bonsoir Furtif,

Non pas du tout, c'était juste un exemple.

En fait je peux reformuler ma demande.

je voudrai lorsque que je saisi ce que j'appelle un code en fait qui est généralement composé de 3 lettres et de 2 chiffres que la cellule se remplisse du code saisi ainsi que le nom en clair.

Exemple :

je saisi dans ma celulle VIL01

je fais ENTER

et dans ma celulle j'ai VIL01 Marseille

je saisi TRU60

et dans ma cellule j'ai TRU60 Saint quentin en yvelines.

Donc le code n'est pas le début des noms en clair.

J'espère que c'est plus clair pour tout le monde.

Je rappelle que j'ai une centaine de code et donc une centaine de nom en clair associé que j'ai en liste sur une feuiille excel. 

Merci de vos réponses.

Bonne soirée.

Furtif · Answer

Salut

Est-ce que tes "codes" sont toujours les premières lettres du nom complet ?

ex : MATH pour Mathématiques, PHILO pour Philosophie ... Etc.   ?

eriiic · Answer

re.... :-)

A part une macro pour ton truc je ne vois pas.
Sélectionne la zone que tu veux contrôler et nomme là zoneValidation.
Prépare ta liste de codes et de libellés (2 colonnes avec titres) dans un coin et nomme la 1ère cellule codes.
Les colonnes à gauche et à droite de ta liste doivent être vides ainsi que les 2 cellules après la dernière ligne.
Ta liste peut être dans une autre feuille.

Dans le code de ta feuille colle :
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s As String, i As Long
    Dim codes()
    If Intersect(Target, Range("zoneValidation")) Is Nothing Then Exit Sub
    If TypeName(Target.Value) <> "String" Then Exit Sub
    s = UCase(Target.Value)
    codes = Range("codes").CurrentRegion
    For i = 2 To UBound(codes)
        If s = UCase(codes(i, 1)) Then
            Application.EnableEvents = False
            Target.Value = codes(i, 2)
            Beep
            Application.EnableEvents = True
            Exit For
        End If
    Next i
End Sub

J'ai mis un bip lorsque la conversion est trouvée mais tu peux supprimer cette ligne
Voici un exemple:
http://www.cijoint.fr/cjlink.php?file=cj200802/cij8189101485714.xls

Dis moi si ça convient
Bonne soirée
eric

debutante-excel · Answer

RE,

Donc dans une feuille excel j'ai préparé mes références (codes et libellés).

J'ai laissé la colonne A vide

dans la colonne B j'ai mis un titre en B1 CODES

dans la colonne C j'ai mis un titre en C1 LIBELLES

en B2 commence mes codes et ainsi de suite B3, B4, B5.

en C2 commence mes libellés et ainsi de suite C3, C3, C4.

j'ai sélectionné la celulle B1 (qui est mon titre code que j'ai nommé) "Codes".

ensuite dans ma feuille excel j'ai sélectionné la partie de la colonne que je veux controler et je l'ai nommé "zoneValidation" par insertion nom définir zoneValidation.

Bon, jusque là je pense que j'ai suivi à la lettre tes instructions.

J'ai cliqué sur ton lien et j'ai téléchargé.

Quand je fait Outils Macro Macros je vois qu'il y a une macro cij8189101485714.xls!Macro1

Donc je suis sur une celulle de ma zone de validation. Je saisi un code et voilà il y a rien de plus dans ma cellule.

Comment je dois faire pour coller le code ??????

j'ai du oublier quelque chose !!!!!!!!!

je suis vraiment nulle lolll.

Eriiiiiiiiiiiiiiiiiiiic au se courssssssss

debutante-excel · Answer

Re,

Bon j'ai trouvé comment coller le code dans Outils Macro Visual basic Editor.

j'ai regardé dans ton exemple.

quand je saisi un code dans une cellule j'ai l'erreur suivante

erreur d'excéecution 1004 la méthode 'range' de l'objet '_Worksheet' a échouée

et la ligne suivante est en jaune

    codes = Range("codes").CurrentRegion

Bon là je suis bloquée, grrrrrrrrrrrrr j'en suis pas loin. 

Merci de votre aide.

eriiic · Answer

Bonjour,

Hé bé, ça t'a fait passer une nuit blanche... Quelle ténacité :-)
C'est bien dans ton classeur que tu as l'erreur et le classeur exemple fonctionne bien pour toi ?
Fais menu "edition / atteindre', as-tu bien 'codes' dedans et ta feuille avec la liste est-elle bien dans le même classeur que la macro (tu peux la masquer ensuite) ?
Je l'ai fait sur excel 2003...

Sinon, rien à voir avec ton pb, mais tu pouvais démarrer ta liste en colonne A. Le but était qu'il n'y ait pas de valeur à gauche, à droite, au-dessus et au-dessous de ta liste pour que le .currentregion retourne la liste et rien d'autre.

eric

débutante-excel · Answer

Bonjour eriiiiiiiiiic,

ouiiiiii ca marche super avec ton exemple et c'est exactement ca ce que je veux faire.

en fait dans ton exemple si on met les codes et le libellé sur une autre feuille ca ne marche plus

et c'est ca mon problème je pense.

voilà ou j'en suis 

merci de votre aide.

débutante-excel · Answer

RE eriiic,

Si tu passes sur le forum fais moi signe.

je trouve pas pkoi ca amrche pas avec mon exemple.

eriiic · Answer

re,

ok je vois mais là je sors...
peut-être ce soir
eric

gbinforme · Answer

bonjour débutante-excel,

En fait ton problème vient du fait que VBA ne peux pas gérer le "range" multi-feuilles si tu es sur une feuille.

Tu coupes tout le code d'Eric, dans la feuille, hormis la première et la dernière ligne et tu le colles dans thisworkbook entre ces deux lignes et tu vas voir que la fonction est opérationnelle en  multi-feuilles.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

bon test et @+

eriiic · Answer

Merci gb,
mais encore un tit problème, sûrement dû au .currentregion qui doit vouloir la feuille active mais je repars et je n'ai pas le temps de tester...
Si tu as le temps de lui ajouter stp (avec screenupdating peut-être..), sinon je verrai plus tard :-)
Merci
bonne soirée tout le monde
eric

gbinforme · Answer

bonjour eric,

Tu as dû avoir le problème en déplaçant la liste et en fait, il suffit de rajouter en tête de la macro :
    If Target.Count > 1 Then Exit Sub

afin d'éviter de passer sur les target.value qui ne fonctionnent pas en multicellules.

eriiic · Answer

re,
heuuuu, en fait j'ai eu un pb en déplaçant le code... il n'avait pas bougé
Voilà ce que c'est de faire en 2 min... :-)
Je laisse ton ajout qui effectivement peut servir, merci.

Donc, débutante, ton code à coller dans thisworkook :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim s As String, i As Long
    Dim codes()
    If Intersect(Target, Range("zoneValidation")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If TypeName(Target.Value) <> "String" Then Exit Sub
    s = UCase(Target.Value)
    codes = Range("codes").CurrentRegion
    For i = 2 To UBound(codes)
        If s = UCase(codes(i, 1)) Then
            Application.EnableEvents = False
            Target.Value = codes(i, 2)
            Beep
            Application.EnableEvents = True
            Exit For
        End If
    Next i
End Sub


et l'exemple:
http://www.cijoint.fr/cjlink.php?file=cj200802/cij7907429105854.xls

eric

débutante-excel · Answer

Bonsoir,

grrrr ca fait 3 fois que je poste et que ca amrche pas.

me revoilààààààà.

Bon, Eric merci bcppppp ca avance bien mais encore des soucis.

Dans ton exemple ca plante quand on veut rajouter des codes dans la liste.

Et autre problème, aie aie aie j'ai 2 zones dites zoneValidation.

un exemple.

http://www.cijoint.fr/cjlink.php?file=cj200802/cij1170539325903.xls

encore merci pour votre aide.

eriiic · Answer

Bonjour,

Pour le 2nd pb tu selectionnes l'ensemble de tes zones avant de définir ton nom, elles peuvent être discontinues.
Le 1er pb me laisse dubitatif, à-priori excel ne sait pas calculer une intersection sur 2 feuilles différentes. 
Tu peux le parer en mettant 
If Sh.Name <> "Feuil1" Then Exit Sub
en 1ère ligne de code. "Feuil1" étant le nom de la feuille où tu fais la saise, il faudra penser à modifier ici si tu renommes ta feuille.
Bonne journée
eric

debutante-excel · Answer

Bonsoir Ericccccc,

Me revoilàààà.

Bon ok ca marche en rajoutant la ligne au début du code.

Par contre concernant mes zones de validation, ca ne marche pas.

C'est peut etre que je ne sais pas sélectionner correctement 2 zones qui sont discontinues.

je grise la première colonne et ensuite j'appuie sur CTRL pour griser la 2 eme colonne .

Aie aie je sens que c'est pas ca, pfffff je suis vraiment nulle.

Mais bon j'avance quand meme.

Allez encore un pti coup de main.

Merci d'avance.

eriiic · Answer

Bonsoir,

Si si, c'est bien ça.
Essaie encore... ;-)
Si excel t'embete supprime d'abord ton ancienne définition et recrée la en 2 zones.
Ou sinon tu l'édites sous ce format =Feuil1!$C$8:$C$17;Feuil1!$K$8:$K$16 et tu valides par ok
eric

debutante-excel · Answer

Hellooooo,

Super Eric ca marcheeeeeeee.

Je deviens une Pro d'excel, macro VBA lolllll et ca marche.

Je continue et reviendrai surement t'embeter.

encore merci pour ton aide.

eriiic · Answer

Super :-)
Pas de soucis, tu ne m'as pas embeté
N'oublie pas de mettre en résolu quand ça te paraitra ok.
Bonne continuation et bonne journée
eric

debutante-excel · Answer

Re eric,

bon tout est Ok ca marche impec donc je mets en résolu.

et j'ouvre un autre post avec une autre tite demande.

Bonne journée.

debutante-excel · Answer

Re eric,

encore merci pour tout.

tout est ok maintenant.

j'ai mis en résolu.

et merci aussi à tous les autres pour leur aide.

Bonne journée.

debutante-excel · Answer

re eric,


au fait ca pose un vrai problème de devoir mettre le nom de la feuille excel dans ou code ou se trouve la zone à validier, car dans mon cas j'ai plusieurs feuilles mdrrrrrrrrrrrr.

il y a je suis certaine une astuce a trouver lolllll

debutante-excel · Answer

Re eriiicccccc,

au fait j'ai un pti souci lolllllll.

du fait qu'il faille mettre le nom de la feuille excel dans la macro ca veut dire que pour chaque feuille de mon classeur je dois modifier la macro lui donner un autre nom et changer le nom de la feuille dans le code.

ah nonnnn ne me dit pas ca eriicccccc

dis moi que excel et bon et fort et qu'il y a une astuce.

bonne journée et merci encore à toi Ericccccccc.

eriiic · Answer

re débutante :-)

pas bcp le temps d'approfondir mais non il n'y a pas de référence au nom de la feuille, juste à la zone nommée zoneValidation.
A la limite si tu veux simplifier met une apostrophe simple ' devant    
' If Intersect(Target, Range("zoneValidation")) Is Nothing Then Exit Sub pour le mettre en commentaire. 
Plus de nécessité de definir ce nom, et la macro réagira sur toutes les cellules de toutes les feuilles du classeur. En sachant que si la chaine exacte est trouvée  elle sera remplacée.
Par contre il faudra que le code soit quand même présent dans tous les classeurs, tu peux utiliser un classeur modèle et l'enrregistrer sous un autre nom ensuite.

eric

debutante-excel · Answer

Re Eriiiiiiccccc,

je te remercie bcp de d'aider peut être que j'abuse.

je récapitule mes problèmes, et ou j'en suis.

tu m'avais fournis une solution ou tu disais que les codes et le libellé pouvait etre sur une autre feuille que j'appelle références.

dans ce cas là quand on voulais rentrer un nouveau code dans la feuille références ca faisait une erreur 1004.

Tu avais solutionné le problème en me répondant celà :

Le 1er pb me laisse dubitatif, à-priori excel ne sait pas calculer une intersection sur 2 feuilles différentes.
Tu peux le parer en mettant
If Sh.Name <> "Feuil1" Then Exit Sub
en 1ère ligne de code. "Feuil1" étant le nom de la feuille où tu fais la saise, il faudra penser à modifier ici si tu renommes ta feuille.

et effectivement le problème etait résolu et tout fonctionné correctement.

en ce qui concerne les zones de validation discontinues on a aussi réglé le problème et tout allait bien.

Seulement voilà j'ai plusieurs feuilles dans le meme classeur à valider, feuilles Nom1 Nom2 à Nomx .

Donc de nouveau si je supprime " If Sh.Name <> "Nom1" Then Exit Sub " j'ai une erreur quand je rentre de nouveaux codes et en plus quand je suis sur une autre feuille que Nom1 ca plante aussi.

donc voilà je suis désolée grrrrrrrrrrrrrrr pas facile excel.

Bonne journée.

eriiic · Answer

ok, merci pour ce ralenti avec arret sur image
et bien essaie en remplaçant
If Sh.Name <> "Feuil1" Then Exit Sub 
par
If Sh.Name = "nom_de_ta_feuille_ou_est_ta_liste" Then Exit Sub 
et tu gardes en commentaire le contrôle de la zone de saisie...
dis moi ce que ça donne

eric

debutante-excel · Answer

re eric,

plus le m'acharne et moins ca marche.

je comprend plus rien

j'ai bien une macro dans mon classeur ??????

quand j'ouvre mon fichier il me demande bien d'activer les macros

mais quand je l'ouvre et que je fais outils macro macros je devrai voir le nom de ma macro ???

l'exemple ici 

http://www.cijoint.fr/cjlink.php?file=cj200803/cij3529993486057.xls

là je suis perdue !!!!!!!!!!! snif snif je perd espoir lollllll.

au secours.

eriiic · Answer

N'aie pas peur petit être, ta macro est bien dedans... :-)
Et que tu ne la vois pas c'est normal, il s'agit d'une macro 'évènement' (qui réagit à un événement dans le classeur ou une feuille), en l'occurence une cellule qui change de valeur (sub Private Sub Workbook_SheetChange()) et ces macros sont 'private'.
Pour être visible dans le menu une macro doit être publique.
Il faut regarder dans ThisWorkbook pour la voir.

D'ailleurs je sens la fatigue te gagner... ;-)
Quand j'écris remplace ... par If Sh.Name = "nom_de_ta_feuille_ou_est_ta_liste" Then Exit Sub 
il ne faut pas écrire nom_de_ta_feuille_ou_est_ta_liste tel que... mais "références"... hummm
Et c'est mieux de laisser la déclaration des variables avant toute ligne de code.
Voici la version (peu) corrigée
http://www.cijoint.fr/cjlink.php?file=cj200803/cij3554866966005.

Mais non, ne perd pas espoir, tu te débrouilles très bien pour une débutante :-)
eric

debutante-excel · Answer

re Eriiiiiic,

Merci pour tout le mal que tu te donnes.

Je crois que je vais devoir sortir les gris gris  lollllll

j'ai fichier non accessible sur ton url 

http://www.cijoint.fr/cjlink.php?file=cj200803/cij3554866966005.

bonne soirée et merci.

eriiic · Answer

effectivement il manquait le xls
http://www.cijoint.fr/cjlink.php?file=cj200803/cij3554866966005.xls

debutante-excel · Answer

re Eriiiccccc,

Bon ca roule ce coup ci, c'est nikel, ca marche super.

on se moque pas pour le If Sh.Name = "nom_de_ta_feuille_ou_est_ta_liste" Then Exit Sub 

voilà ce que c'est que de faire du copier coller   lollll.

encore merci et excellente soirée.

et là le problème est bien résolu.

Comment convertir un code en clair en excel

31 réponses

Newsletters