[Excel] Selectionner et copier en fonction de Résolu/Fermé

Question

Bonjour, 

J'ai tenter de faire une macro pour extraire une plage de données d'un onglets sur d'autre onglets.
J'ai réussi grâce a l'aide de Vaucluse à le faire en partant d'un seul Onglet vers un autre mais maintenant j'aimerai le faire vers plusieurs et je ne trouve pas la solution...
Les plages à copier/Coller sont différentes a chaque fois et sont issue d'une formule
Range("INDIRECT(Z2)").Select où Z2 est la cellule qui contient la plage a copier pour le 1er onglet puis en Z3 pour l'onglet suivant et ainsi de suite...

j'aimerais aussi pouvoir connaitre l'adresse de la plage collé afin de l'inclure dans des formules présentent dans l'onglet créer...

Mon explication est pas bien compréhensive un exemple sera plus parlant j'espère.
https://www.cjoint.com/?0GsvbwzY1Dy

En esperant vous lire je vous remercie par avance.

Elglouton

Configuration: Windows XP / Firefox 13.0.1

elglouton · Answer

Je ne sais pas si je me suis mal expliqué ou si ce sujet n'a pas de réponse. 
En fait je voulais savoir si il était possible d'intégrer une boucle dans ce type de formule Range("INDIRECT(Z2)").Select 
J'ai tenté de cette façon mais ca ne fonctionne pas... 

Sub CreeFeuilleEssais()
Dim NFeuil As String
Dim NomOnglet, Plage, poli As Integer 'valeur de la cellule
For Plage = 8 To 25 Step 8
For NomOnglet = 3 To 25 Step 8 'boucle for
For poli = 2 To 5 Step 1
If Sheets("Saisie").Cells([NomOnglet], [9]).Value <> "" Then
        NFeuil = Cells([NomOnglet], [9]).Value
        If FeuilExist(NFeuil) Then
            Sheets(NFeuil).Activate
            Exit Sub
        Else
            Sheets("Type").COPY After:=Sheets(ThisWorkbook.Sheets.Count)
            ActiveSheet.Name = NFeuil
            ActiveSheet.Range("Z1").Value = Sheets("Saisie").Cells([Plage], [9]).Value
        End If
    End If
    Sheets("Données Chessel").Select
    Range("INDIRECT([poli],[26])").Select 'je tente de copier/coller chaque plage dans l'onglet correspondant
    Selection.COPY
    Sheets(NFeuil).Select
    Range("A24").Select
    ActiveSheet.Paste
    'Paste.Address = donnée
    'Je tente de connaitre l'addresse de la plage collé afin de faire correspondre les differentes formules
    'Et aussi pouvoir introduire "uniformité" les bares en rose en fin de plage
    Next poli
    Next NomOnglet
    Next Plage
End Sub


En esperant avoir une bride de réponse merci par avance

[Excel] Selectionner et copier en fonction de

1 réponse

Discussions similaires