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

copier des valeurs dans une autre feuille

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

philipos_353

Guest
bonjour,

j'ai besoin de votre aide pour trouver une macro voici une partie du fichier qui contient plus de 9000 lignes afin de :
copier la valeur de la colonne I (prix) de la feuille1 dans la feuille 2 en colonne Q (PU), la comparaison se ferai avec la colonne L de la feuille 2 et la C de la feuille 1, seul valeur commune au deux feuilles ( le NOI).

merci beaucoup,
cordialement,


philippe
 

Pièces jointes

Trier par date Trier par votes
Re : copier des valeurs dans une autre feuille

je reponds peut etre a coté ,
Mais a tu essayé la formule RechercheV?
explication
a placer dans la cellule ou tu veux rapatrier la valeur
=RECHERCHEV(L2;Feuil1!C:J;3;"faux")
puis tu etant a l'ensemble de tes cellules
nicoloc
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

nicoloc à dit:
je reponds peut etre a coté ,
Mais a tu essayé la formule RechercheV?
explication
a placer dans la cellule ou tu veux rapatrier la valeur
=RECHERCHEV(L2;Feuil1!C:J;3;"faux")
puis tu etant a l'ensemble de tes cellules
nicoloc
Cliquez pour agrandir...
désolé nicoloc,
j'avais essayé ceci mais cela ne fonctionne pas.
merci encore
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

bonjour philipos

Voila une macro qui devrait faire ce que tu souhaites

Mais....
Attention dans la feuille 1 il y a un joyeux melange de formats
La comparaison se faisant sur la valeur (et non l'affichage) il faudra commencer par mettre en uniformité dans les 2 feuiles

Code: 
Sub report()
For n = 2 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
 Set c = Sheets("Feuil2").Columns("L").Find(Sheets("Feuil1").Range("C" & n), LookIn:=xlValues, lookat:=xlWhole)
 If Not c Is Nothing Then
   Sheets("Feuil2").Cells(c.Row, c.Column + 5) = Sheets("Feuil1").Range("C" & n).Offset(0, 6)
 End If
Next n
End Sub
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

Bonjour,

Je cherche une macro pour comparer des fichier sur un critere commun
extraire les données (je joue sur les déplacements puis copie le résultat).
La fonction recherche n'est pas viable dans mon cas.
Aussi je souhaiterais utiliser une boucle avec recherche tant que la cellule contient une valeur. Je joint un début de macro, ne vous moquez pas.
Elle fonctionne mais si elle ne trouve pas de valeur elle me met une herreure ?
Sub test()
'
' test Macro
' Macro enregistrée le 04/12/2007 par Frédéric MARTIN
'
'
Dim Var
Sheets("Feuil1").Select
Range("A1").Select
Var = ActiveCell.Value

Do While Var > 0
'Selection.Copy
Sheets("Feuil2").Select

Cells.Find(What:=Var, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Select
Var = ActiveCell.Value
Loop
End Sub
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

bonjour FREDPLONGEUR

Teste:

Code: 
......
Sheets("Feuil2").Select

[COLOR=blue]Set c=[/COLOR]Cells.Find(What:=Var, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)'.Activate
[COLOR=blue]if not c is nothing then
[/COLOR]ActiveCell.Offset(0, 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -1).Select
Var = ActiveCell.Value
[COLOR=blue]End if[/COLOR]
Loop
....
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

Merci beaucoup PierreJean
Je te joints mon fichier exemple
La feuille 1 ne possède que les critères, la feuille2 les
critères et les données a recopier.
J'ai repris ton programme, mais la fonction de recherche ne fonctionne
pas au deuxcième passage de la macro.
Je n'ai pu encore tester dans le cadre de "si pas trouvé" celle ci doit
continuer sur les autres critères en laissant le champ non trouvé vide.
Cette macro va me servir à la gestion de différents Tarifs avec comparaison.
Je débute en VB (dans le temps je travaillais avec Quick basic)
 

Pièces jointes

Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

Re

Vois si cela va mieux

Code: 
Sub test()
'
' test Macro
' Macro enregistrée le 04/12/2007 par Frédéric MARTIN
'
 Dim Var As Range
    Sheets("Feuil1").Select
    Range("A1").Select
    Set Var = ActiveCell
Do While Var.Value > 0
    Sheets("Feuil2").Select
    Set c = Cells.Find(What:=Var.Value, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)        
    If Not c Is Nothing Then
        Var.Offset(0, 1) = c.Offset(0, 1)
    End If
   Set Var = Var.Offset(1, 0)
Loop
End Sub
 
Vote positif 0 Vote négatif
Re : copier des valeurs dans une autre feuille

super ça marche, je vais l'adapter à mes tableaux
Merci beaucoup pour ton aide PierreJean
Grace à toi je vais pouvoir avancer plus rapidement
Merci également au FORUM
 
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

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
529
laurent950
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
419
MATLEA
M
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
201
berru76
B
M
  • Résolu(e)
XL 2021 Fonction pour rechercher des données, puis à reporter dans une 2ème feuille avec 1 critère
Réponses
13
Affichages
375
job75
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
330
PRy
P
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
698
MANU64360
M
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
318
job75
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
391
mapomme
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
401
job75
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
311
Nico Gre
N
D
  • Résolu(e)
XL 2019 plusieurs critères
Réponses
5
Affichages
246
Dand87
D
T
  • Question Question
Microsoft 365 Identifier si une cellule contient une valeur parmi une liste de valeur
Réponses
5
Affichages
378
TRANSPLANT69
T
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
514
sousou
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
679
Phil69970
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
135
dysorthographie
L
  • Résolu(e)
Microsoft 365 RechercheV avec une condition poids
2
Réponses
16
Affichages
398
Lina
L
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
424
safranien
S
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
657
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…