[Excel] Selectionner et copier en fonction de
Résolu/Fermé
elglouton
Messages postés
189
Date d'inscription
dimanche 19 avril 2009
Statut
Membre
Dernière intervention
11 novembre 2022
-
18 juil. 2012 à 21:01
elglouton - 20 juil. 2012 à 19:50
elglouton - 20 juil. 2012 à 19:50
A voir également:
- [Excel] Selectionner et copier en fonction de
- Fonction si et - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
- 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
