Bosoin l'aide vba
Résolu
douniaazeddine
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
douniaazeddine Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
douniaazeddine Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Bosoin l'aide vba
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
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
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
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.
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.
si que je veux j'ai expliqué dans cette photo
http://im46.gulfup.com/ScrjfT.jpg