MACRO COPIER VALEUR CELLULE et trouver la valeur dans une autre feuille

  • Initiateur de la discussion Initiateur de la discussion ennida
  • 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 !

ennida

XLDnaute Junior
Bonjour,

pas trop douée en VBA🙁

Voilà je souhaite automatiser la copie d'une valeur d'une cellule en feuil1 et retrouver celle-ci dans ma plage de données en feuil2
Ex A1 contient cheval
Je copie la valeur A1 donc "cheval"
je vais dans feuille 2 et je recherche la valeur de A1 et si je la trouve je copie la ligne entière pour la coller dans une nouvelle feuille
Puis je retourne dans ma feuille 1 en A2 et recopie la valeur...et ainsi de suite...merci si🙂
 
Re : MACRO COPIER VALEUR CELLULE et trouver la valeur dans une autre feuille

Salut
Je suis moi même débutant, ça fait 2 semaines que je m'intéresse au VBA.
j'ai réussi a pondre un petit truc pour toi.

nous pouvons bien sur faire plus court et plus performant mais c'est déjà un début.

Code:
Sub Macro1()
Dim ValeurCellule
Dim i
For i = 1 To 20
    Worksheets("Feuil1").Activate
    Set ValeurCellule = Range("A" & i)
    ValeurCellule.Select
    Rows(ActiveCell.Row).Select
    Selection.Copy
    
    Worksheets("Feuil2").Activate
    Columns("A:A").Select
    
    On Error Resume Next
    If Selection.Find(ValeurCellule, LookIn:=xlFormulas, LookAt:=xlPart).Activate = ValeurCellule Then
    Else:
        Worksheets("Feuil3").Activate
        Rows(i & ":" & i).Select
        ActiveSheet.Paste
    End If
    On Error GoTo 0
    
    
Next i
Application.CutCopyMode = False
End Sub
 

Pièces jointes

- 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

Retour