Comment dire en VBA?

flo2002 · 17 Mai 2006

Re bonjour le forum,

je cherche à faire une macro qui va m'extraire des données dans une feuille puis les coller dans une autre.
Pour cela j'aurai besoin de lui dire de trouver les données en collonne A à partir du premier texte rencontrer à partir de la ligne2 jusqu'au dernier texte et qu'il me selectionne puis copie ceci.

Merci d'avance!

si je n'ai pas été clair je peux retenter une explication.

Bernard_XLD · 18 Mai 2006

Salut

j'avais laissé de coté quand je t'avais vu en main avec AV qui a largement le niveau pour ce genre de chose. Un peu de patience, je regarde dés que j'ai un moment.

A+

Bernard_XLD · 18 Mai 2006

Re

essaye ce code, cela devrait t'aller. J'utilise une rechercheV VBA pour provoquer une erreur et l'extraction.

A+

Code:

Sub Extraction()
    Dim Cel As Range, Cel2 As String
    On Error GoTo Copie
    For Each Cel In Sheets(2).Range('B2:B' & Sheets(2).Range('B65536').End(xlUp).Row)
        Cel2 = WorksheetFunction.VLookup(Cel.Value, Sheets(1).Columns('B:B'), 1, False)
    Next Cel
    On Error Goto 0
Exit Sub
Copie:
    With Sheets(1).Range('B65536').End(xlUp)
        .Range('B2:C2').Value = Sheets(2).Range(Cel.Offset(0, 1).Address & ':' & Cel.Offset(0, 2).Address).Value
        .Range('D1').Copy Destination:=.Range('D2')
        .Range('A1').Copy Destination:=.Range('A2')
    End With
    Resume Next
End Sub

Ps: m'avait zappé deux caractères ????
N'oublie de remettre le calcul uto pour que cela fonctionne

Message édité par: yeahou, à: 18/05/2006 21:18

Bernard_XLD · 18 Mai 2006

Transfert données feuille à feuille sans doublons

code légérement modifié pour que cela fonctionne même si le calcul auto est désactivé

Code:

Sub Extraction()
    Dim Cel As Range, Cel2 As String
    On Error GoTo Copie
    For Each Cel In Sheets(2).Range('B2:B' & Sheets(2).Range('B65536').End(xlUp).Row)
        Cel2 = WorksheetFunction.VLookup(Cel.Value, Sheets(1).Columns('B:B'), 1, False)
    Next Cel
    On Error GoTo 0
Exit Sub
Copie:
    With Sheets(1).Range('B65536').End(xlUp)
        .Range('B2:C2').Value = Sheets(2).Range(Cel.Offset(0, 1).Address & ':' & Cel.Offset(0, 2).Address).Value
        .Range('D1').Copy Destination:=.Range('D2')
        .Range('A1').Copy Destination:=.Range('A2')
        .Calculate
    End With
    Resume Next
End Sub

Message édité par: yeahou, à: 18/05/2006 21:34

flo2002 · 19 Mai 2006

Re:Transfert données feuille à feuille sans doublons

Merci je vais tester et je tiens au courant.

Bernard_XLD · 23 Mai 2006

Re:Transfert données feuille à feuille sans doublons

Bonjour le fil

Eh Flo, c'était pas la peine de désespérer comme ça pour ne plus donner de nouvelles!

c'est résolu ou pas?

A+

Comment dire en VBA?

flo2002

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

flo2002

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires

Comment dire en VBA?

flo2002

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

flo2002

XLDnaute Impliqué

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency