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

Remplacer contenu d'une cellule suite recherche dans une autre feuille

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

Ludion62

XLDnaute Nouveau
Bonjour à tous,

Je souhaiterai remplacer automatiquement le contenu d'une cellule par le contenu d'une autre cellule si celle-ci correspond à un certain critère 🙄 ...

Je vois que je ne suis pas très clair !

Dans l'exemple joint, je souhaite remplacer le contenu des cellules de la colonne Nom (feuille NP) par la correspondance (colonne ID) de la feuille Ref seulement si l'on retrouve le nom dans cette même feuille ...

J'espère que c'est un peu plus clair pour vous 🙂

Merci par avance.

Ludion62
 

Pièces jointes

Trier par date Trier par votes
Re : Remplacer contenu d'une cellule suite recherche dans une autre feuille

Bonsoir Ludion, bonsoir le forum,

En pìece jointe ton fichier modifié avec un bouton Remplacer et le code ci-dessous :
Code: 
Private Sub CommandButton1_Click() 'bouton "Remplacer"
Dim pn As Range 'déclare la variable pn (Plage de l'Onglet Np)
Dim pr As Range 'déclare la variable pr (Plage de l'Onglet Ref)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
 
ActiveCell.Select 'enlève le focus au bouton
With Sheets("NP") 'prend en compte l'onglet "NP"
    'définit la plage pn
    Set pn = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
End With 'fin de la prise en compte de l'onglet "PN"
With Sheets("Ref") 'prend en compte l'onglet "Ref"
    'définit la plage pr
    Set pr = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
End With 'fin de la prise en compte de l'onglet "Ref"
For Each cel In pn 'boucle sur toutes les cellules de la plage pn
    Set r = pr.Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
    'si il existe au moins une occurrence, récupère l'ID
    If Not r Is Nothing Then cel.Offset(0, 1).Value = r.Offset(0, 1)
Next cel 'prochaine cellule de la boucle
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Remplacer contenu d'une cellule suite recherche dans une autre feuille

Merci Robert pour ta prompte réponse.
Mais je souhaite remplacer les valeurs de la colonne "Nom" et non celles de la colonne "Code".
J'aurais bien fait le changement moi-même, mais je ne vois où tu lui dis de modifier la colonne "Code" ...
Désolé mais je suis vraiment un débutant en VBA !

Merci de ta réponse.

Ludion62
 
Vote positif 0 Vote négatif
Re : Remplacer contenu d'une cellule suite recherche dans une autre feuille

Bonsoir Ludion, bonsoir le forum,

Heu attends je comprends plus rien là... Tu as un nom toto dans la colonne A de l'onglet NP. Tu recherches ce nom dans l'onglet Ref. Si toto existe dans Ref, tu remplaces toto par... toto !!!
J'ai déjà fait plus con remarque... Ou alors tu m'expliques...
 
Vote positif 0 Vote négatif
Re : Remplacer contenu d'une cellule suite recherche dans une autre feuille

Non la macro était bonne sauf qu'au lieu de renvoyer l'ID sur la colonne "Code" de la feuille "NP", je souhaite qu'il le renvoie sur la colonne "Nom" de la feuille "NP".
C'est un peu plus clair ?
 
Vote positif 0 Vote négatif
Re : Remplacer contenu d'une cellule suite recherche dans une autre feuille

Bonsoir Ludion, bonsoir le forum,

Ha ben oui là c'est plus clair. Non unique neurone peut fonctionner... En pièce jointe la version 2 modifiée :
Code: 
Private Sub CommandButton1_Click() 'bouton "Remplacer"
Dim pn As Range 'déclare la variable pn (Plage de l'Onglet Np)
Dim pr As Range 'déclare la variable pr (Plage de l'Onglet Ref)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
 
ActiveCell.Select 'enlève le focus au bouton
With Sheets("NP") 'prend en compte l'onglet "NP"
    'définit la plage pn
    Set pn = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
End With 'fin de la prise en compte de l'onglet "PN"
With Sheets("Ref") 'prend en compte l'onglet "Ref"
    'définit la plage pr
    Set pr = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
End With 'fin de la prise en compte de l'onglet "Ref"
For Each cel In pn 'boucle sur toutes les cellules de la plage pn
    Set r = pr.Find(cel.Value, , xlValues, xlWhole) 'définit la recherche r
    'si il existe au moins une occurrence, récupère l'ID
    If Not r Is Nothing Then cel.Value = r.Offset(0, 1)
Next cel 'prochaine cellule de la boucle
End Sub
Ce qui a changé c'est ça :
Code: 
If Not r Is Nothing Then cel.Value = r.Offset(0, 1)
à la place de ça :
Code: 
If Not r Is Nothing Then cel.Offset(0,1).Value = r.Offset(0, 1)
 

Pièces jointes

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)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
357
MANU64360
M
Y
  • Résolu(e)
Microsoft 365 Rechercher et remplacer éditer une procedure
Réponses
8
Affichages
231
YGU1
Y
M
  • Question Question
XL 2016 Remplacer nombres et symboles depuis une liste dans une autre feuille
Réponses
2
Affichages
422
Marjorie73
M
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
190
Diane272727
D
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
958
richard31
R
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
195
Raynaud.JF
R
Y
  • Résolu(e)
XL 2016 Remplacer du texte par une image dans une application
Réponses
8
Affichages
202
OKBI
O
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
221
job75
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
1 K
fanfan38
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
240
tristan05
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
182
mapomme
C
  • Question Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
514
chris427
C
  • Résolu(e)
XL 2021 Soucis d’effacement dans ma colonne AE
2
Réponses
23
Affichages
392
ARRU
M
  • Résolu(e)
XL 2019 recherche et comptage cellule avec critère
Réponses
8
Affichages
164
michelf
M
W
  • Question Question
Microsoft 365 Correspondance de mot dans une cellule
Réponses
3
Affichages
195
job75
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
393
Phil69970
  • Résolu(e)
Autres Copier/ Coller plage de données dans une autre cellule d'un même onglet
Réponses
6
Affichages
287
fenec
P
  • Question Question
XL 2021 inscrire le nombre d'une cellule dans une liste dans une colonne
Réponses
6
Affichages
216
OKBI
O
S
  • Question Question
Microsoft 365 Extraire dans une nouvelle feuille les cellules non vide d'une colonne
2
Réponses
15
Affichages
329
Gégé-45550
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
309
fuioplde
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…