[Excel] Selectionner et copier en fonction de
Résolu
elglouton
Messages postés
189
Date d'inscription
Statut
Membre
Dernière intervention
-
elglouton -
elglouton -
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
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
A voir également:
- [Excel] Selectionner et copier en fonction de
- Fonction si et - Guide
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Comment copier une vidéo youtube - Guide
1 réponse
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
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