Bosoin l'aide vba
Résolu
douniaazeddine
Messages postés
4
Statut
Membre
-
douniaazeddine Messages postés 4 Statut Membre -
douniaazeddine Messages postés 4 Statut Membre -
Salut j'ai bosoin d'aide en vba j'ai plus que 500 feuille je veux Quand je choisis le nom de la feuille avec une liste que j'ai deja créer excel allez automatiquement dans la feuille sélectionné et copie les données et revient sur la feuille accueil pour le coller
2 réponses
-
Bonjour,
en supposant que le nom de ta feuille à sélectionner est par exemple en E1
code à coller dans les propriétés de ta feuille, Clic droit sur l'onglet de ta feuille/Visualiser le code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [E15]) Is Nothing Then
Sheets([E15].Value).Range("A1:B10").Copy
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir. -
Re,
pas très clair il aurait été préférable d'avoir le fichier que la photo
code à tester, mais je doute que tu veuille copier d'un coup A5:J1000
Sub Importer()
On Error Resume Next
Sheets([C5].Value).Range("A5:J1000").Copy
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
