Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changement automatique de valeur [Résolu]

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fredtu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fredtu

XLDnaute Junior
Bonjour,
J'ai recherché mais je n'ai pa trouvé la réponse à ma question.

Est-il possible de changer automatiquement la valeur d'une cellule en fonction de son contenu ?

Je m'explique :

Dans ma colon, j'ai des noms et je souhaiterai qu'Excel m'affiche en correspondance la ville de résidence.
Exemple :
A
Jacques
Denis
Pierre
François
Jean
Max

Je voudrai qu'automatiquement Jacques et Denis soient modifiés en Lille, Pierre et François en Roubaix, Jean et Max en Tourcoing.

J'ai cherché du côté de la mise en forme automatique mais la mise en forme des cellules ne correspond pas à ma demande.

Merci d'avance pour votre aide.
 
Trier par date Trier par votes
Bonjour fredtu, bonjour chère ânesse,

Il suffit d'exécuter cette macro (pour la colonne A) :
Code: 
Sub Changer()
Dim a, c As Range, x As Variant
a = [{"Jacques","Lille";"Denis","Lille";"Pierre","Roubaix";"François","Roubaix";"Jean","Tourcoing";"Max","Tourcoing"}]
On Error Resume Next
For Each c In [A:A].SpecialCells(xlCellTypeConstants, 2)
  x = Application.VLookup(c, a, 2, 0)
  If Not IsError(x) Then c = x
Next
End Sub
Elle peut être exécutée quand et comme vous voulez.

Par exemple en l'appelant dans une macro évènementielle Worksheet_Change ou Selection_Change.

A+
 
Vote positif 0 Vote négatif
Re,

Autre solution, si les noms à remplacer peuvent être une partie des textes des cellules :
Code: 
Sub ChangerPartie()
Dim a, i As Byte
a = [{"Jacques","Lille";"Denis","Lille";"Pierre","Roubaix";"François","Roubaix";"Jean","Tourcoing";"Max","Tourcoing"}]
For i = 1 To UBound(a)
  [A:A].Replace a(i, 1), a(i, 2), xlPart
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Bonjour à tous,
Salut ma très chère G.,
Salut mon cher Gérard,

Fredtu : quand tu te décideras à déposer un fichier tu découvriras certainement d'autres possibilités. En particulier une possibilité de mettre les concordances dans une feuille sur 2 colonnes.

Bises +++ 00
A+++ mon Ami
A+ à tous
 
Vote positif 0 Vote négatif
Bonjour à tous,

Merci d'avoir pris le temps de me répondre et à Job75 de me proposer une réponse qui marche parfaitement.
Toutefois, comme je veux laisser l'accès à d'autres personnes qui ont encore moins de compétences sous excel que moi, et pensent que VBA est un groupe de variété américain, j'ai opté pour une autre solution : créer une feuille avec 2 colonnes. La première avec les noms, la seconde avec les villes de correspondances. Dans mon tableau, j'ai rajouté une une colonne avec une formule de type =SI(C3="";"";RECHERCHEV(C3;TG!$A$1:$B$249;2;0)), qui me permet de rapatrier la ville et me facilite la gestion via un TCD.

Encore merci pour vos réponses.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Prendre les 10 1ère valeur d'une plage en fonction de 2 critères
2 3
Réponses
43
Affichages
3 K
merinos-BernardEtang
J
  • Question Question
XL 2019 Faire varier un pourcentage en fonction de valeurs "texte" d'une autre cellule
Réponses
4
Affichages
713
Jean Pierre 93
J
N
  • Résolu(e)
XL 2016 Somme valeur cellule couleur MFC
Réponses
3
Affichages
1 K
NIKITACAM
N
M
  • Question Question
XL 2019 Récupérer la valeur de la cellule et sa mise en forme
Réponses
1
Affichages
3 K
Dudu2
A
  • Question Question
XL pour MAC outils tableau, création automatique de ligne à partir d'un autre tableau
Réponses
5
Affichages
1 K
axel211
A
R
  • Résolu(e)
XL 2013 choic automatique
Réponses
4
Affichages
1 K
Romaricbienvenu
R
  • Question Question
XL 2016 recherche valeur de cellule
Réponses
5
Affichages
1 K
richardlion
H
  • Question Question
XL 2010 Sauvegarde automatique d'un tableau de données actualisé
Réponses
4
Affichages
1 K
hsf
H
  • Question Question
XL 2010 Résolu Autre problème, la transformation de "false" en "FAUX" automatiquement.
Réponses
4
Affichages
884
jeff1494
B
  • Résolu(e)
Microsoft 365 Remplacer une valeur saisie après recherche dans une liste sur un autre onglet
Réponses
4
Affichages
2 K
benoitoleron
B
F
  • Question Question
XL 2010 Recherche de valeur compliquée
Réponses
0
Affichages
555
fb62840
F
A
  • Question Question
étirer recherchev sur une base de données
Réponses
2
Affichages
2 K
axel211
A
B
  • Question Question
XL 2016 Mise en forme si valeurs différentes d'une plage de cellules
Réponses
8
Affichages
1 K
BASSAN L
B
V
  • Question Question
XL 2013 [Résolu] -VBA-Insertion de ligne fonction de la valeur d'une cellule et copie de valeur
Réponses
10
Affichages
1 K
Vincent_2311
V
P
  • Question Question
XL 2010 TCD avec champ numérique ET max de ce champ
Réponses
2
Affichages
1 K
pruvieros
P
J
  • Question Question
Création d'onglet automatique avec import de données d'une url
Réponses
6
Affichages
2 K
Jucyla
J
M
  • Question Question
Insertion de ligne et changement mise en page [Résolu]
Réponses
2
Affichages
806
MlleJen
M
T
  • Question Question
changement de couleur d'un graphique en fonction de variables
Réponses
4
Affichages
2 K
Tchokz
T
F
  • Question Question
modification de planning (copie forme et valeur en liaison avec une source maitre)
Réponses
7
Affichages
1 K
flox69
F
S
  • Question Question
Mise en Forme Conditionnelle / icones/valeur comprise entre 2 valeurs/2 cas de sortie
Réponses
4
Affichages
5 K
Stardust
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…