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'

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

  • recopier.xlsx
    11.2 KB · Affichages: 10
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

Hasco

XLDnaute Barbatruc
Repose en paix
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

  • recopier.xlsm
    16.2 KB · Affichages: 7
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

Y
  • Résolu(e)
XL 2013 Colorier une cellule en fonction d'une valeur
Réponses
3
Affichages
279
Yvan1
Y
  • Question
XL 2019 problème d'automatisation d'attribution couleur d'une cellule en rapport d'une valeur texte d'une autre cellule
Réponses
10
Affichages
525
Ferbank
G
  • Question
Microsoft 365 Envoie de données aléatoirement.
Réponses
14
Affichages
429
GClaire
G
E
  • Question
Microsoft 365 utilisation de la fonction rechercher/remplacer pour ajouter un caractère d'annihilation par ' en amont de chaque contenu de la cellule
Réponses
2
Affichages
132
elgringo123456
E
M
  • Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
155
JHA
J
P
  • Question
XL 2021 Zone de texte incomplète faisant référence à une cellule
Réponses
2
Affichages
189
gbinforme
G
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
354
Laliepomm
L
  • Résolu(e)
XL 2013 Ajuster Automatiquement la Hauteur d'une Cellule Fusionnée en Fonction du Texte
Réponses
9
Affichages
475
TooFatBoy
D
  • Question
Microsoft 365 Colorer une plage en fonction d'un contenu de cellule
Réponses
8
Affichages
354
de_hanstrapp
D
C
  • Résolu(e)
Microsoft 365 Trouver résultat en fonction de la dernière ligne d'une colonne
Réponses
7
Affichages
145
Chounoé
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…