Débuggage... Ma macro ne fonctionne qu'à moitié
Résolu/Fermé
DJ333
Messages postés
5
Date d'inscription
lundi 25 mars 2019
Statut
Membre
Dernière intervention
27 mars 2019
-
26 mars 2019 à 09:51
DJ333 Messages postés 5 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 27 mars 2019 - 27 mars 2019 à 16:39
DJ333 Messages postés 5 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 27 mars 2019 - 27 mars 2019 à 16:39
A voir également:
- Débuggage... Ma macro ne fonctionne qu'à moitié
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Moitié a4 - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
27 mars 2019 à 14:32
27 mars 2019 à 14:32
Bonjour,
Il suffit de faire une seule boucle pour créer tes 12 feuilles, comme ceci:
Il suffit de faire une seule boucle pour créer tes 12 feuilles, comme ceci:
Option Explicit Sub For_X_to_Next_Ligne() Dim FL1 As Worksheet, NoCol As Integer Dim MySheet As Worksheet Dim NoLig As Long Set FL1 = Worksheets("Revue Patri") NoCol = 3 'lecture de la colonne c For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4) If FL1.Range("C" & NoLig) <> "" Then Sheets("Revue type").Select Sheets("Revue type").Copy After:=Sheets(2) Set MySheet = ActiveSheet MySheet.Name = FL1.Range("E" & NoLig) End If Next Set FL1 = Nothing End Sub
27 mars 2019 à 16:39
en effet tout fonctionne!