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

Copie de données vers une autre feuille en face du bon code produit

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

davidp

XLDnaute Occasionnel
Bonjour à tous ,

je m'excuse de vous déranger une nouvelle fois , mais là ,je suis bloqué.

Je réalise une extraction de CA en fonction d'un code produit ( cela peut aller de 5 lignes à 300 lignes), je cherche ensuite à coller les résultats de la colonne b et c en face du bon code produit (colonne A) sur une autre feuille appelée " collage final" .

Je ne sais pas si cela est réalisable , mais je vous remercie d'avance pour votre aide .

Bonne soirée à tous

DAVIDP
 

Pièces jointes

Trier par date Trier par votes
Re : Copie de données vers une autre feuille en face du bon code produit

Bonsoir,

Est-ce qu'une formule te conviendrait?

Par exemple en B2 et copiée vers le bas:
Code: 
=SI(ESTNA(RECHERCHEV($A2;extraction!$A$2:$C$55;2;FAUX));0;RECHERCHEV($A2;extraction!$A$2:$C$55;2;FAUX))

et en C2:
Code: 
=SI(ESTNA(RECHERCHEV($A2;extraction!$A$2:$C$55;3;FAUX));0;RECHERCHEV($A2;extraction!$A$2:$C$55;3;FAUX))

Bien à toi,

mth

Edit: sourire.. histoire de sortir mon vocabulaire 🙂 xoxo ça se dit? (si pas ça tu me diras Etienne pour m'éviter des gaffes 🙂 )
@ +
m
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Salut Davidp,
voici une autre proposition, par macro celle-là.

VB: 
Option Explicit

Sub Test()
Dim Code_Produit As String
Dim DL As Long, i As Long
Dim c, Valeur1, Valeur2

Application.ScreenUpdating = False
Sheets("extraction").Select
DL = Cells(65536, 1).End(xlUp).Row

For i = 2 To DL
    Sheets("extraction").Select
    If Cells(i, 2).Value <> "" And Cells(i, 3).Value <> "" Then
        Code_Produit = Cells(i, 1).Value
        Valeur1 = Cells(i, 2).Value
        Valeur2 = Cells(i, 3).Value
        Sheets("collage final ").Select
        Set c = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1)).Find(Code_Produit, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then
            Cells(c.Row, 2).Value = Valeur1
            Cells(c.Row, 3).Value = Valeur2
        End If
        Code_Produit = ""
        Valeur1 = ""
        Valeur2 = ""
        
    End If
Next i

End Sub

Bonne soirée,

Étienne

Edit : Nous sommes définitivement sur la même page ce soir M 🙂 xxx
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Bonsoir etienne 2323

Je te remercie également pour ton aide , c'est bluffant...

je vais regarder le code de plus prés afin de comprendre , mais j'ai réalisé le test , cela fonctionne , et je crois comprendre que la macro analyse toutes lignes , c'est top

Bonne soirée et encore un grand merci

DAVIDP
 
Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Rebonjour le forum ,

désolé de revenir vers vous , car je suis bloqué.

En effet , j'ai utilisé la macro d'étienne2323 , mais celle ci ne veux pas fonctionner sur le fichier en annexe ( j'ai volontairement masquer une feuille), j'ai le message suivant " l'indice n'appartient pas à la sélection" , alors là , je ne comprend pas.

Nb: Par contre , sur le fichier d'étienne , elle fonctionne!

Si quelqu'un peux m'expliquer afin de résoudre le problème ,

je vous remercie d'avance.

Bonne journée à tous
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Bonjour à tous 🙂

Tu as sur cette ligne:
Code: 
 Sheets("collage final ").Select
un espace après final. Or dans ton fichier, l'onglet se nomme "collage final" sans espace à la fin contrairement à ton premier fichier.

Tout semble ok si tu corriges ce point.

Bonne soirée,

mth
 
Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Bonjour,

Comme ceci elle devrait mieux fonctionner, feuille visible ou non

Mais attention aux noms de feuilles! il y avait un espace en fin de Sheets("Collage final ")

C'est une macro à mettre dans un module général et pas dans ThisWorkbook.

VB: 
Sub Test()
    Dim Code_Produit As String
    Dim DL As Long, i As Long
    Dim c, Valeur1, Valeur2
    Dim shDest As Worksheet
    Set shDest = Sheets("collage final")
    Application.ScreenUpdating = False
    With Sheets("extraction")
        DL = .Cells(65536, 1).End(xlUp).Row
        For i = 2 To DL
            If .Cells(i, 2).Value <> "" And .Cells(i, 3).Value <> "" Then
                Code_Produit = .Cells(i, 1).Value
                Valeur1 = .Cells(i, 2).Value
                Valeur2 = .Cells(i, 3).Value
                Set c = shDest.Range(shDest.Cells(1, 1), shDest.Cells(shDest.Cells(65536, 1).End(xlUp).Row, 1)).Find(Code_Produit, LookIn:=xlValues, lookat:=xlWhole)
                If Not c Is Nothing Then
                    shDest.Cells(c.Row, 2).Value = Valeur1
                    shDest.Cells(c.Row, 3).Value = Valeur2
                End If
                Code_Produit = ""
                Valeur1 = ""
                Valeur2 = ""
            End If
        Next i
    End With
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Copie de données vers une autre feuille en face du bon code produit

Bonjour HASCO,

Un grand merci , effectivement tu as raison.

Cela faisait 2H que je cherchai...

Bonne journée et merci encore

DAVIDP
 
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

B
  • Question Question
XL 2019 finaliser projet avec douchette code barre et userform
Réponses
2
Affichages
117
bedochon
B
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
625
laurent950
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
208
sylvanu
C
  • Résolu(e)
XL 2021 Afficher une page d'un UserForm à partir des données collectées dans une autre feuille
Réponses
2
Affichages
211
Dan
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
327
Nico Gre
N
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
454
flc13090
E
  • Résolu(e)
Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?
2
Réponses
20
Affichages
747
Elnono51
E
L
  • Résolu(e)
Power Query Découper une colonne en plusieurs colonnes
Réponses
11
Affichages
697
chris
  • Résolu(e)
Microsoft 365 Modifier un code copie donnée chaque feuil séparément
Réponses
11
Affichages
433
ExcelDow
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
W
  • Résolu(e)
XL 2019 Placer ou remplacer une photo .jpg au-dessus de la cellule [B6] contenant du texte à conserver
2
Réponses
21
Affichages
418
TooFatBoy
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
375
Webperegrino
W
H
  • Question Question
Microsoft 365 Aide formule excel somme évaluation en cas d'absence
2 3
Réponses
33
Affichages
1 K
hd_kevin
H
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
866
Max
M
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
530
TooFatBoy
B
  • Question Question
Microsoft 365 Bon de commande avec recapitulatif des lignes saisies sur une autre feuille
Réponses
1
Affichages
589
djidji59430
I
  • Question Question
Microsoft 365 Atteindre la première case vide après collage
Réponses
5
Affichages
300
job75
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
432
DAVID-44-
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…