Conversion Automatique de valeur dans les cellules
2 réponses
Eric
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés
dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier :
Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me
permettrait de convertir simultanément toutes mes cellules de services.
Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Hervé
Bonsoir Eric, Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A (A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en face de chaque abréviation) se trouve le nom complet correspondant. Adapte à tes besoins mais avant tout fais un test dans un nouveau classeur avec des valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer() Dim Col As New Collection Dim Plage As Range Dim Nom As Range Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom Set Nom = .Range(.[B1], .[B65536].End(3)) Set Plage = .Range(.[A1], .[A65536].End(3)) End With
'si tu veux mettre ta liste dans une 'autre feuille en colonne A par exemple 'afin qu'elle ne soit pas à coté de la liste complète '''With Worksheets("Feuil2") ''' Set Nom = .Range(.[A1], .[A65536].End(3)) '''End With
For Each Cel In Nom Col.Add Cel.Offset(0, 1), Cel Next Cel
For Each Cel In Plage Cel = Col(Cel) Next Cel
Set Cel = Nothing Set Nom = Nothing Set Plage = Nothing Set Col = Nothing End Sub
Hervé.
"Eric" a écrit dans le message news:
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier : Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me permettrait de convertir simultanément toutes mes cellules de services. Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Bonsoir Eric,
Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A
(A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en
face de chaque abréviation) se trouve le nom complet correspondant. Adapte à
tes besoins mais avant tout fais un test dans un nouveau classeur avec des
valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer()
Dim Col As New Collection
Dim Plage As Range
Dim Nom As Range
Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom
Set Nom = .Range(.[B1], .[B65536].End(3))
Set Plage = .Range(.[A1], .[A65536].End(3))
End With
'si tu veux mettre ta liste dans une
'autre feuille en colonne A par exemple
'afin qu'elle ne soit pas à coté de la liste complète
'''With Worksheets("Feuil2")
''' Set Nom = .Range(.[A1], .[A65536].End(3))
'''End With
For Each Cel In Nom
Col.Add Cel.Offset(0, 1), Cel
Next Cel
For Each Cel In Plage
Cel = Col(Cel)
Next Cel
Set Cel = Nothing
Set Nom = Nothing
Set Plage = Nothing
Set Col = Nothing
End Sub
Hervé.
"Eric" <vitus@wanadoo.fr> a écrit dans le message news:
mn.3c177d57385e7f09.31945@wanadoo.fr...
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés
dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier :
Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me
permettrait de convertir simultanément toutes mes cellules de services.
Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Bonsoir Eric, Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A (A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en face de chaque abréviation) se trouve le nom complet correspondant. Adapte à tes besoins mais avant tout fais un test dans un nouveau classeur avec des valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer() Dim Col As New Collection Dim Plage As Range Dim Nom As Range Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom Set Nom = .Range(.[B1], .[B65536].End(3)) Set Plage = .Range(.[A1], .[A65536].End(3)) End With
'si tu veux mettre ta liste dans une 'autre feuille en colonne A par exemple 'afin qu'elle ne soit pas à coté de la liste complète '''With Worksheets("Feuil2") ''' Set Nom = .Range(.[A1], .[A65536].End(3)) '''End With
For Each Cel In Nom Col.Add Cel.Offset(0, 1), Cel Next Cel
For Each Cel In Plage Cel = Col(Cel) Next Cel
Set Cel = Nothing Set Nom = Nothing Set Plage = Nothing Set Col = Nothing End Sub
Hervé.
"Eric" a écrit dans le message news:
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier : Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me permettrait de convertir simultanément toutes mes cellules de services. Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Eric
Parfait je vais tester ta solution. Merci infiniment.
Eric
Hervé a formulé ce jeudi :
Bonsoir Eric, Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A (A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en face de chaque abréviation) se trouve le nom complet correspondant. Adapte à tes besoins mais avant tout fais un test dans un nouveau classeur avec des valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer() Dim Col As New Collection Dim Plage As Range Dim Nom As Range Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom Set Nom = .Range(.[B1], .[B65536].End(3)) Set Plage = .Range(.[A1], .[A65536].End(3)) End With
'si tu veux mettre ta liste dans une 'autre feuille en colonne A par exemple 'afin qu'elle ne soit pas à coté de la liste complète '''With Worksheets("Feuil2") ''' Set Nom = .Range(.[A1], .[A65536].End(3)) '''End With
For Each Cel In Nom Col.Add Cel.Offset(0, 1), Cel Next Cel
For Each Cel In Plage Cel = Col(Cel) Next Cel
Set Cel = Nothing Set Nom = Nothing Set Plage = Nothing Set Col = Nothing End Sub
Hervé.
"Eric" a écrit dans le message news:
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier : Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me permettrait de convertir simultanément toutes mes cellules de services. Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Parfait je vais tester ta solution.
Merci infiniment.
Eric
Hervé a formulé ce jeudi :
Bonsoir Eric,
Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A
(A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en
face de chaque abréviation) se trouve le nom complet correspondant. Adapte à
tes besoins mais avant tout fais un test dans un nouveau classeur avec des
valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer()
Dim Col As New Collection
Dim Plage As Range
Dim Nom As Range
Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom
Set Nom = .Range(.[B1], .[B65536].End(3))
Set Plage = .Range(.[A1], .[A65536].End(3))
End With
'si tu veux mettre ta liste dans une
'autre feuille en colonne A par exemple
'afin qu'elle ne soit pas à coté de la liste complète
'''With Worksheets("Feuil2")
''' Set Nom = .Range(.[A1], .[A65536].End(3))
'''End With
For Each Cel In Nom
Col.Add Cel.Offset(0, 1), Cel
Next Cel
For Each Cel In Plage
Cel = Col(Cel)
Next Cel
Set Cel = Nothing
Set Nom = Nothing
Set Plage = Nothing
Set Col = Nothing
End Sub
Hervé.
"Eric" <vitus@wanadoo.fr> a écrit dans le message news:
mn.3c177d57385e7f09.31945@wanadoo.fr...
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés
dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier :
Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me
permettrait de convertir simultanément toutes mes cellules de services.
Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Parfait je vais tester ta solution. Merci infiniment.
Eric
Hervé a formulé ce jeudi :
Bonsoir Eric, Une piste. Pour l'exemple, la liste à modifier se trouve en colonne A (A1:Ax), en colonne B (B1:Bx) se trouve les abréviations et en colonne C (en face de chaque abréviation) se trouve le nom complet correspondant. Adapte à tes besoins mais avant tout fais un test dans un nouveau classeur avec des valeurs inscrites comme indiqué pour bien comprendre le fonctionnement :
Sub Completer() Dim Col As New Collection Dim Plage As Range Dim Nom As Range Dim Cel As Range
On Error Resume Next
With Worksheets("Feuil1") 'adapter le nom Set Nom = .Range(.[B1], .[B65536].End(3)) Set Plage = .Range(.[A1], .[A65536].End(3)) End With
'si tu veux mettre ta liste dans une 'autre feuille en colonne A par exemple 'afin qu'elle ne soit pas à coté de la liste complète '''With Worksheets("Feuil2") ''' Set Nom = .Range(.[A1], .[A65536].End(3)) '''End With
For Each Cel In Nom Col.Add Cel.Offset(0, 1), Cel Next Cel
For Each Cel In Plage Cel = Col(Cel) Next Cel
Set Cel = Nothing Set Nom = Nothing Set Plage = Nothing Set Col = Nothing End Sub
Hervé.
"Eric" a écrit dans le message news:
Bonjour,
Par le jeu d'un export, j'obtiens des noms abréges de services placés dans chacunes des cellules.
Par quel moyen puis-je les convertir par leur Nom Entier : Exemple : MG = Moyens Généraux
Ce qui me plairait bien c'est d'avoir une icône à cliquer qui me permettrait de convertir simultanément toutes mes cellules de services. Car tous les mois ce sont les mêmes données.
Une macro ?
Comment la mettre en place ?
Par avance, merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
