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

Copie automatique

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

nikobell

Guest
Bonjour à tous,

Je souhaite à partir d'un classeur contenant 2 feuilles, sélectionner une donnée dans la première feuille, la rechercher dans la 2ème feuille, puis copier la valeur correspondante à cette donnée dans la 1ère feuille.

Pour résumer voici le code sur une cellule:

Code: 
 Range("B15").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Cells.Find(What:="a32349", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    Range("C4519").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Feuil1").Select
    Range("D15").Select
    ActiveSheet.Paste

Quelqu'un peut il m'aider à automatiser cela?

Merci d'avance

Nikobell
 
Trier par date Trier par votes
Re : Copie automatique

Salut,

La valeur correspondante à cette donnée (située en colonne A) se trouve dans la colonne C correspondante.

Peux tu m'aider du coup?

Merci

Niko
 
Vote positif 0 Vote négatif
Re : Copie automatique

Re bonjour,

voici un code "allégé" sans les ".Select" qui sont inutile en VBA (le défaut de l'enregistreur de macro):

Code: 
Sub test()
valeur = Range("B15").Value
Sheets("Feuil2").Select
Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
ActiveCell.Offset(0, 2).Copy Sheets("Feuil1").Range("D15")
End Sub
 
Vote positif 0 Vote négatif
Re : Copie automatique

Merci Skoobi!

Maintenant je veux le faire sur toute ma feuille, il me semble que la boucle For est la meilleure solution, en code ca donne ca, mais ca ne marche pas :
Code: 
Sub test()
For i = 2 To 10
valeur = Range("B" & i).Value
Sheets("Feuil2").Select
Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
ActiveCell.Offset(0, 2).Copy Sheets("Feuil1").Range("D" & i)
Next i
End Sub

Peux tu me dire ce qui ne va toujours pas?

Niko
 
Vote positif 0 Vote négatif
Re : Copie automatique

En fait cette boucle fonctionne, toutefois, certaines valeurs recherchées ne sont pas présentes dans ma feuille 2. Comment faire pour que cela affiche un 0 lorsque mes valeurs ne sont pas présentes?
Je pense à un If mais je ne sais pas quelle valeur préciser derrière (null?)
Pour t'illustrer mon propos:
Code: 
Sub test()
For i = 1 To 50
Sheets("Feuil1").Select
valeur = Range("B" & i).Value
Sheets("Feuil2").Select
If Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate = null [I]Je veux préciser ici que si la valeur n'existe pas[/I]
Range("D" & i) = 0 [I]Alors on lui attribue 0[/I]
Next i
Else If ActiveCell.Offset(0, 2).Copy Sheets("Feuil1").Range("D" & i)
Next i
End Sub

Merci d'avance pour ton aide

Niko
 
Vote positif 0 Vote négatif
Re : Copie automatique

Re bonsoir,

comme ceci:

Code: 
Sub test()
For i = 1 To 50
Sheets("Feuil1").Select
valeur = Range("B" & i).Value
Sheets("Feuil2").Select
[COLOR=Blue][B]Set trouve[/B][/COLOR] = Cells.Find(What:=valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False)
[COLOR=Blue][B]If trouve Is Nothing Then[/B][/COLOR]
Range("D" & i) = 0
[COLOR=Blue][B]Else: [/B][/COLOR]ActiveCell.Offset(0, 2).Copy Sheets("Feuil1").Range("D" & i)
[COLOR=Blue][B]End If[/B][/COLOR]
Next i
End Sub
 
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

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
128
Eric 888
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
709
Phil69970
E
  • Résolu(e)
XL 2019 chercher une date dans une colonne vba
Réponses
12
Affichages
893
sylvanu
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
711
Jojo973
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
760
Francky79
F
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
487
Anthony_51
A
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
411
lestoiles1
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
678
Dégé59
D
S
  • Question Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
545
dysorthographie
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
639
Phillip
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
569
de_hanstrapp
D
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
661
Oneida
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
591
youguybass
Y
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
633
job75
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
740
Usine à gaz
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…