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

[ennida]

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

 

[yusukens]

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.

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

 

[ennida]

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

merci je teste de ce pas...