VBA=onglet1+onglet2 = onglet 3

alex53 · 29 Février 2012

Bonjour le Forum,

Apres recherches dans le forum, je ne trouve pas de reponse a mon probleme.

Tout est dans le titre: je souhaite additionner les infos de onglet1+onglet2 dans onglet 3.

J ai essaye un code, qui bien sur ne fonctionne pas.

Je joint l'exemple tres simple que j'ai fait en ce qui concerne mon probleme.

Merci pour votre aide

phlaurent55 · 29 Février 2012

Re : VBA=onglet1+onglet2 = onglet 3

Bonjour Alex, le forum

avec ce code:

Code:

Sub Macro2()
Application.ScreenUpdating = False
Sheets("principale+complementaire").Select
    Range("A2:B" & Range("A65535").End(xlUp).Row + 2).ClearContents
    Sheets("complementaire").Select
    Range("A2:B" & Range("A65535").End(xlUp).Row).Select
    Selection.Copy
    Sheets("principale+complementaire").Select
    Range("A" & Range("A65535").End(xlUp).Row + 1).Select
    ActiveSheet.Paste
    Sheets("principale").Select
    Range("A2:B" & Range("A65535").End(xlUp).Row).Select
    Selection.Copy
    Sheets("principale+complementaire").Select
    Range("A" & Range("A65535").End(xlUp).Row + 1).Select
    ActiveSheet.Paste
    [A1].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

à+
Philippe

CelluleVide · 29 Février 2012

Re : VBA=onglet1+onglet2 = onglet 3

Bonjour,
Essai en PJ version 2003 a adapter.
Bonne journée

alex53 · 1 Mars 2012

Re : VBA=onglet1+onglet2 = onglet 3

Merci a vous deux.
Ca marche.

Alex53

VBA=onglet1+onglet2 = onglet 3

alex53

Guest

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

CelluleVide

XLDnaute Occasionnel

Pièces jointes

alex53

Guest

Discussions similaires

VBA=onglet1+onglet2 = onglet 3

alex53

Guest

Pièces jointes

phlaurent55

Nous a quittés en 2020

Pièces jointes

CelluleVide

XLDnaute Occasionnel

Pièces jointes

alex53

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency