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

ennida · 27 Février 2008

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 · 27 Février 2008

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

ennida · 27 Février 2008

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

merci je teste de ce pas...

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

ennida

XLDnaute Junior

yusukens

XLDnaute Occasionnel

Pièces jointes

ennida

XLDnaute Junior

Discussions similaires