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

XL 2013 Remplir une cellule de texte en fonction du contenu d'une deuxième cellule en recopiant une troisième cellule'

Créer une discussion

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
B

BrunoVG

XLDnaute Nouveau
Bonjour,

Je souhaite remplir une cellule VIDE (sans y insérer de formule) en y recopiant le TEXTE d'une autre cellule en fonction du résultat d'une formule calculée dans une troisième cellule. Il me semble que cela ne soit possible qu'en macro, à moins qu'il existe une fonction permettant "d'envoyer" du contenu dans une cellule vide à partir d'une autre cellule. Quelqu'un peut il me confirmer mon à priori et, le cas échéant, me donner la macro qui va bien?
Ci-joint le fichier d'exemple (simplifié pour la compréhension).

Merci beaucoup, ça fait des heures que j'essaye, toujours en vain.....
 

Pièces jointes

Solution
Bonjour,

Si j'ai bien compris, faites un click-droit sur le nom de l'onglet puis "visualiser le code", vous tomberez sur le code ci-dessous.

J'ai corrigé votre formule Equiv, il manquait le troisième paramètre (0) pour avoir une correspondance exacte.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" And Not IsError(Range("C4")) And Range("C4") > 0 Then Range("D4") = Range("A4:A8")(Range("C4"))
End Sub

A bientôt
Trier par date Trier par votes
Bonjour,

Si j'ai bien compris, faites un click-droit sur le nom de l'onglet puis "visualiser le code", vous tomberez sur le code ci-dessous.

J'ai corrigé votre formule Equiv, il manquait le troisième paramètre (0) pour avoir une correspondance exacte.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" And Not IsError(Range("C4")) And Range("C4") > 0 Then Range("D4") = Range("A4:A8")(Range("C4"))
End Sub

A bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
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

A
  • Question Question
XL 2010 Surligner texte en fonction d'une valeur en cellule K
Réponses
7
Affichages
221
ascal44
A
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
425
rtlv17
R
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
269
didier09
G
  • Question Question
Microsoft 365 Résultat dans une cellule en fonction d'une autre cellule
Réponses
1
Affichages
92
vgendron
  • Question Question
XL 2016 [Resolu]Fond de couleur de la cellule en fonction du texte choisi
Réponses
12
Affichages
191
job75
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
184
sylvanu
  • Question Question
XL 2019 coloriser une partie du contenu de la cellule
Réponses
8
Affichages
157
mapomme
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
210
tristan05
Y
  • Résolu(e)
XL 2016 Remplacer du texte par une image dans une application
Réponses
8
Affichages
177
OKBI
O
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
229
piga25
Z
  • Question Question
Microsoft 365 Rendre visible un onglet en fonction du contenu d'une cellule
Réponses
2
Affichages
187
zorol
Z
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
300
spike29
S
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
924
fanfan38
P
  • Question Question
Microsoft 365 Extraire la totalité du contenu d'une cellule si une cellule commence par un nombre
2
Réponses
16
Affichages
665
PR.
P
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
713
iliess
I
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
991
jojo4738
J
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
284
crocrocro
C
E
  • Question Question
Microsoft 365 Création d'un filtre sur une cellule avec recherche de mot indexé
Réponses
3
Affichages
158
elgringo123456
E
  • Question Question
Microsoft 365 VBA : fonction qui calcule une durée entre 2 dates en années, mois et jours
Réponses
8
Affichages
202
BenHarber
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…