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

Remplir une colonne B suivant valeur de la colonne C

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kenavo
  • 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
K

kenavo

Guest
Bonjour,

Je cherche à faire une macro qui me permettrait de remplir une colonne B suivant les valeurs de la colonne A
Je m explique dans une colonne A j'ai des noms
toto
martin
toto
Dans la colonne B je souhaite remplir automatique : si Toto alors mettre 10 a toto les ligne toto, si Martin mettre 60....
Je souhaite faire cela car c'est un fichier extrait d' une base de données mais le champ nom à affecter ne figure pas dedans
Cf piece jointe

Merci d' avance
 

Pièces jointes

Trier par date Trier par votes
Re : Remplir une colonne B suivant valeur de la colonne C

Bonjour,

C'est aussi faisable par formule :

B2 :
Code: 
=Si(A2;"";"";CHOISIR(EQUIV(A2;{"toto";"max";"martin";"titi"};0);10;11;15;60))
à copier vers le bas.
 
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Merci ta proposition marche très bien, mais je souhaiterais inserer une macro dans mon projet afin de tout automatisé
Mais je garde précieusement ta solution
 
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bonjour kenavo, salut hoerwind,

J'aime bien la formule d'hoerwind, pourquoi ne pas l'utiliser en VBA :

Code: 
Sub EntrerValeurs()
Dim F As String, plage As Range
F = "=IF(RC1="""","""",CHOOSE(MATCH(RC1,{""toto"";""max"";""martin"";""titi""},0),10,11,15,60))"
Set plage = Range("A2", Range("A65536").End(xlUp))
With plage.Offset(, 1)
  .FormulaR1C1 = F
  .Value = .Value 'supprime les formules
End With
End Sub

Cette manière de faire est très rapide car pas de boucle...

A+
 
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bojour,

juste une petite chose, comment faire pour lui dire dans quelle feuille la macro soit s'executer, dans mon cas ce n'est pas la feuil1 mais une feuille nommé sheet1 ( feuille nome ainsi lors d l'extration des données ( je ne veux pasmodifier son nom))
Le code est dans un module et non dans la feuille, qd il est ds module1 je n'arrive pas à le faire marcher
Bonne fin de WE
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bonsoir kenavo,

Dans un module, le code précédent fonctionne si Sheet1 est la feuille active.

On peut l'activer en début de macro par Sheets("Sheet1").Activate

Sinon, préciser la feuille ainsi :

Code: 
Sub EntrerValeurs()
Dim F As String
F = "=IF(RC1="""","""",CHOOSE(MATCH(RC1,{""toto"";""max"";""martin"";""titi""},0),10,11,15,60))"
With Sheets("Sheet1").Range("B2:B" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
  .FormulaR1C1 = F
  .Value = .Value 'supprime les formules
End With
End Sub

J'en ai profité pour simplifier en n'utilisant pas la variable plage.

A+
 
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Re,

Peut-être faut-il préciser aussi le classeur :

Code: 
Sub EntrerValeurs()
Dim F As String
F = "=IF(RC1="""","""",CHOOSE(MATCH(RC1,{""toto"";""max"";""martin"";""titi""},0),10,11,15,60))"
With ThisWorkbook.Sheets("Sheet1")
  With .Range("B2:B" & .Range("A65536").End(xlUp).Row)
    .FormulaR1C1 = F
    .Value = .Value 'supprime les formules
  End With
End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bonsoir


Pour le plaisir de croiser du beau linge xldien 😉

Une autre façon d'écrire
VB: 
Sub a4Fun()
Dim c As Range, t
t = [{"toto","max","martin","titi"}]
For Each c In Columns(1).SpecialCells(xlCellTypeConstants, 23)
c.Offset(, 1) = Choose(Application.Match(c, t, 0), 10, 11, 15, 60)
Next
End Sub

PS: kenavo
Tu devrais modifier ton titre en:
Remplir une colonne B suivant valeur de la colonne A , non 😉 ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bonjour,
Merci beaucoup!!

Ma macro est ok maintenant et marche comme je voulais : complète ma colonne et me génére un tableau croisé

Bonne journée à tous et toutes
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Bonjour,

Je ne comprends pas pourquoi alors que je n'ai modifié que mes critères ({""BTP"";""BMCO"";""PMX"";""BPOP"";""MTTP"";""FRDF"";""FFT"";""ESF"";""""},0),11 650 252,07 050 252,36 000 252,53 332 252,24 152 252, 56 500 S52,79 100 252,86 100 252))" et maintenant j'ai une erreur sur la ligne :
.formulaR1C1

mon code :
Code: 
Sub EntrerValeurs()
Dim F As String
F = "=IF(RC3="""","""",CHOOSE(MATCH(RC3,{""BTP"";""BMCO"";""PMX"";""BPOP"";""MTTP"";""FRDF"";""FFT"";""ESF"";""""},0),11 650 252,07 050 252,36 000 252,53 332 252,24 152 252, 56 500 S52,79 100 252,86 100 252))"
With Sheets("Sheet1").Range("O2:O" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
  .FormulaR1C1 = F
  .Value = .Value 'supprime les formules
End With
End Sub

Je ne comprends pas comment marche formulaR1C1...

Bon WE
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Remplir une colonne B suivant valeur de la colonne C

Ok l'erreur venait des espaces et d' une lettre dans un code!!
11 650 252,07 050 252,36 000 252,53 332 252,24 152 252, 56 500 S52,79 100 252,86 100 252

Problème réglé grâce aux doubles quote : ""52S85""

Et je vais tt de même chercher une aide sur formulaR1C1....

Bon après midi à toutes et tous
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 (RESOLU) XL 2024 LTSC Problèmes de remplissage automatique en colonne
Réponses
6
Affichages
224
kdet
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
436
sylvanu
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
520
job75
T
  • Question Question
Microsoft 365 Faire la somme de cellules d'une colonne ayant le même nom dans une autre colonne.
Réponses
6
Affichages
388
Thibox
T
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
811
floflatch22
F
S
  • Question Question
XL 2019 Remplir une combobox avec une ligne
2
Réponses
17
Affichages
2 K
fanch55
R
  • Résolu(e)
XL 2019 Combinaison (A,B,C) à répartir dans une colonne par macro
Réponses
7
Affichages
623
Rabeto
R
R
  • Question Question
XL 2016 userform / remplir combobox suivant une autre combobox
Réponses
3
Affichages
715
ChTi160
  • Question Question
XL 2021 Calcul jours, TCD et outil de pilotage via TCD
Réponses
6
Affichages
609
Raziel abel
T
  • Résolu(e)
XL 2010 Formule - Copier une formule dans toutes les lignes de la colonne C
Réponses
6
Affichages
486
tchi456
T
L
  • Résolu(e)
XL 2019 Renvoyer une valeur colonne A avec la dernière valeur de la colonne B
Réponses
5
Affichages
692
Gégé-45550
A
  • Question Question
Microsoft 365 recherche multicritère de la valeur suivante
2
Réponses
29
Affichages
2 K
alexga78
A
T
  • Résolu(e)
XL 2016 Code vba permettant de faire une recherche soit dans la colonne A ou B
Réponses
8
Affichages
568
telemarrk
T
  • Question Question
Microsoft 365 Calculer une somme en colonne A par rapport au même nombre de jours de la colonne B
Réponses
14
Affichages
718
job75
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
J
  • Question Question
XL 2021 Créer une fonction qui renvoie le nombre de critères sélectionné dans 1 filtre
Réponses
2
Affichages
362
Johann RSW
J
Y
  • Question Question
Microsoft 365 Afficher le résultat de la colonne C et F dans la colonne D
Réponses
3
Affichages
445
job75
S
  • Résolu(e)
Microsoft 365 Automatiser une RechercheV en fonction de la valeur d'une colonne
Réponses
13
Affichages
1 K
Phil69970
B
  • Question Question
Microsoft 365 remplir automatiquement une quantité de case en fonction d'un chiffre
Réponses
4
Affichages
824
binouse
B
M
  • Question Question
Microsoft 365 Extraire une valeur de fin dans une colonne
Réponses
4
Affichages
527
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…