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

VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

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

nico91410

Guest
Salut !

J’aimerais faire une macro qui recherche la valeur d’une cellule (par exemple une référence) puis qui recherche la colonne associé à cette référence (par exemple le prix) puis qui copie dans un autre fichier le prix dans les bonnes colonnes et lignes (qui ont bien sur les mêmes intitulés).

Le fichier joint est simplifié (je dois avoir un total de 3000 lignes).

Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

il faudrait que tu joignes un exemple des 2 fichiers (sans données confidentielles), avec 2 lignes pour le fichier arrêt et une dizaine pour l'autre
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

re

Code: 
Sub test2()
Dim couplerecherché As String, coupletrouvé As String
 
StartAnalyse = 5
EndAnalyse = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Range("a65536").End(xlUp).Row
 
For i = 2 To 6 '2 lignes fichier arrêt
     couplerecherché = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 1).Value & _
     Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 7).Value
     
    'recherche dans autre fichier
    trouve = 0
    For j = StartAnalyse To EndAnalyse
        coupletrouvé = Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 3).Value & _
        Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 5).Value
         If LCase(couplerecherché) = LCase(coupletrouvé) Then
                Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 41).Value = _
                Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 3).Value
                trouvé = 1
         End If
         If trouvé = 1 Then MsgBox "trouvé": Exit For ' sortie dès que l'on trouve
    Next
    If trouvé = 0 Then MsgBox ("non trouvé pour ligne " & i) ' pb si pas trouvé dans liste
Next
End Sub

les pbs :
EndAnalyse = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Range("a65536").End(xlUp).Row
tu avais mis range("b65536"), b est vide donc endanalyse était tout le temps 1

j'avais mis deux fois couplerecherché (après copier/coller oublié de mettre coupletrouvé)

tes sites sont écris différemment (majuscules), j'ai modifié en forçant une comparaison en minuscules avec
If LCase(couplerecherché) = LCase(coupletrouvé) Then
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

Salut !

Désolé de ne répondre que maintenant, mais la semaine est un peu chargé :s.
Merci encore pour ton aide.

La macro ci-dessus ne fonctionne pas dans mon fichier, ensuite quand je test ta macro dans les fichiers que j'ai mis sur le forum, il indique bien qu'il a trouvé les résultats mais il remplit la case de la première ligne uniquement.

Je regarde ça dans les détails cet après midi.
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

Re

quand on confond trouve et trouvé

code modifié à tester

Code: 
Sub test2()
 Dim couplerecherché As String, coupletrouvé As String
  
 StartAnalyse = 5
 EndAnalyse = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Range("a65536").End(xlUp).Row
 StartRecherche = 2
 EndRecherche = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Range("a65536").End(xlUp).Row
  
 For i = StartRecherche To EndRecherche '2 lignes fichier arrêt
      couplerecherché = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 1).Value & _
      Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 7).Value
      
     'recherche dans autre fichier
     trouve = 0
     For j = StartAnalyse To EndAnalyse
         coupletrouvé = Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 3).Value & _
         Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 5).Value
          If LCase(couplerecherché) = LCase(coupletrouvé) Then
                 Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 41).Value = _
                 Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 3).Value
                 trouve = 1
          End If
          If trouve = 1 Then MsgBox "trouvé": Exit For ' sortie dès que l'on trouve
     Next
     If trouve = 0 Then MsgBox ("non trouvé pour ligne " & i) ' pb si pas trouvé dans liste
 Next
 End Sub
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

Avec cette macro, cela fonctionne :
Sub test2()
Dim couplerecherché As String, coupletrouvé As String

StartAnalyse = 5
EndAnalyse = Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Range("C65536").End(xlUp).Row

For i = 2 To 6 '2 lignes fichier arrêt
couplerecherché = Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 1).Value & _
Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 7).Value

'recherche dans autre fichier
trouve = 0
For j = StartAnalyse To EndAnalyse
coupletrouvé = Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 3).Value & _
Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 5).Value
If (couplerecherché) = (coupletrouvé) Then
Workbooks("Tableau de bord arrêt de prod SCtest.xlsm").Sheets("Tableau Suivi").Cells(j, 41).Value = _
Workbooks("Arrêts - Calcul du Négo_v1.xlsm").Sheets("Références").Cells(i, 3).Value
trouvé = 1
End If
'If trouvé = 1 Then MsgBox "trouvé": Exit For ' sortie dès que l'on trouve
Next
'If trouvé = 0 Then MsgBox ("non trouvé pour ligne " & i) ' pb si pas trouvé dans liste
Next
End Sub
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

Re

comme je te le disais, il faut changer trouve= 0 en trouvé = 0, (ou changer les trouvé en trouve) sinon tu ne seras jamais sûr de la valeur de la variable
 
Vote positif 0 Vote négatif
Re : VBA Rechercher la valeur d'une cellule puis de la colonne puis copier la valeurs

Parfait, la requête est en prod.

Merci beaucoup pour ton aide ! !

😀
 
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

N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
312
Nico Gre
N
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
538
laurent950
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
515
sousou
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
2 K
Alamyr
A
  • Résolu(e)
XL 2019 Augmenter la vitesse de traitement
2 3
Réponses
37
Affichages
1 K
dysorthographie
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
299
sylvanu
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
1 K
TooFatBoy
B
  • Question Question
XL 2016 Somme automatique des prix associés aux produits sélectionnés sur Excel
Réponses
6
Affichages
374
bkarima1
B
M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
422
mamarus1
M
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
673
Jaykerz
J
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
2 K
richard31
R
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
297
mapomme
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
304
Cousinhub
A
  • Question Question
XL 2010 Colorier les n plus grandes valeurs d'une plage EXCEL
3 4 5
Réponses
63
Affichages
2 K
TooFatBoy
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
352
patricktoulon
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
3 K
Dranreb
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
847
Lu76Fer
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
416
luno123
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…