Export variables

Bonjour,

Je fais appel à votre aide (encore une fois) pour m'aider sur une macro.

1. Dans mon fichier, je récupère les N° lignes contenant le nom "JEAN" et les N° lignes contenant Tristan.

2. J'arrive à exporte UNE ligne dans un onglet "JEAN".

3. J'aimerais pouvoir modifier ma macro pour prendre toutes les lignes (D14:D17) pour les exporter dans l'onglet "JEAN". Et en faire de même avec les lignes Tristan (I14:I17) dans l'onglet "TRISTAN"

Sub Import()

Dim LgJean, LgTristan As Long

Application.ScreenUpdating = False

Set classeurJean = Sheets("Jean")

Set classeurSource = Sheets("Sheet1")

LgJean = classeurSource.Range("D14").Value

LgTristan = classeurSource.Range("I14").Value

classeurSource.Range("A" & LgJean & ":D" & LgJean).Cells.Copy

classeurJean.Range("A1:D1").Paste

classeurSource.Range("A" & LgTristan & ":D" & LgTristan).Cells.Copy

classeurTristan.Range("A1:D1").Paste

Application.DisplayAlerts = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Merci

Bonjour,

une astuce en passant : manuellement ou par code, pas mieux que le filtre avancé !

Tout est dans l'aide d'Excel, dans l'aide du VBA ( AdvancedFilter )

(code livré sur un plateau en utilisant le Générateur de macros !) ou encore dans les tutoriels sur le net …

Oui, merci.

Je reste bloqué pour récupérer les valeurs d'une plage de cellules pour, par la suite l'associer aux N° de ligne que je sélectionnerais et exporterais.

Je ne vois pas de rapport avec la demande initiale !

Si personne d'autre ne répond, envisager alors une présentation claire & exhaustive …