Petit Soucil de division de feuille

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion JeanMikael
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JeanMikael

Guest
Re-re Bonjour le forum,


J'ai cette macro :


Code: 
Sub distribue4()
Dim n As Integer
Dim ftr As String
'declaration de collection
Dim criteres As Collection
Set criteres = New Collection
'creation de la collection des criteres
Application.ScreenUpdating = False

For n = 2 To Range("g65536").End(xlUp).Row
  On Error Resume Next
    criteres.Add Range("g" & n), CStr(Range("g" & n))
  On Error GoTo 0
Next n

'ajout d'une feuille par critere
For n = 1 To criteres.Count

  Sheets.Add.Name = "Erreur " & criteres(n)

  Sheets("Feuil1").Range("A1:AD1").Copy Destination:=ActiveSheet.Range("A1")

Next n

'tansfert vers les feuilles
For n = 2 To Sheets("Feuil1").Range("g65536").End(xlUp).Row

  ftr = "Erreur " & Sheets("Feuil1").Range("g" & n)
 
  Sheets("Feuil1").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)

Sheets("Feuil1").Select

Next n

Application.ScreenUpdating = True

End Sub

Cette macro me permet de créer un onglet pour chaque valeur rencontrer dans la colonne G, dans cette colonne ce sont des chiffre jusque là tout va bien, mon soucil c'est que dans ma colonne j'ai par exemple des chiffre de 0 à 9 donc mon code va crée un onglet nommé Erreur 1 par exemple et ce que je souhaiterai c'est ajouter un 0 pour les onglet qui vont de Erreur 1 à 9 donc j'aurai par exemple comme nom d'onglet Erreur 01, j'ai essayé de mettre dans ma colonne G un format personnalisée qui met un 0 devant les chiffres allant de 1 à 9 met la macro lorsqu'elle divise les onglets ne tient pas compte du format personalisée, comment faire pour obtenir le résultat souhaité ?
d'avance merci de votre aide, bonne après-midi.

Cordialement,
Jean-Mikaël
 
Trier par date Trier par votes
Re : Division d'Onglet

Re-re Bonjour le forum,


J'ai cette macro :



Code: 
Sub distribue4()
Dim n As Integer
Dim ftr As String
'declaration de collection
Dim criteres As Collection
Set criteres = New Collection
'creation de la collection des criteres
Application.ScreenUpdating = False

For n = 2 To Range("g65536").End(xlUp).Row
  On Error Resume Next
    criteres.Add Range("g" & n), CStr(Range("g" & n))
  On Error GoTo 0
Next n

'ajout d'une feuille par critere
For n = 1 To criteres.Count

  Sheets.Add.Name = "Erreur " & criteres(n)

  Sheets("Feuil1").Range("A1:AD1").Copy Destination:=ActiveSheet.Range("A1")

Next n

'tansfert vers les feuilles
For n = 2 To Sheets("Feuil1").Range("g65536").End(xlUp).Row

  ftr = "Erreur " & Sheets("Feuil1").Range("g" & n)
 
  Sheets("Feuil1").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)

Sheets("Feuil1").Select

Next n

Application.ScreenUpdating = True

End Sub

Cette macro me permet de créer un onglet pour chaque valeur rencontrer dans la colonne G, dans cette colonne ce sont des chiffre jusque là tout va bien, mon soucil c'est que dans ma colonne j'ai par exemple des chiffre de 0 à 9 donc mon code va crée un onglet nommé Erreur 1 par exemple et ce que je souhaiterai c'est ajouter un 0 pour les onglet qui vont de Erreur 1 à 9 donc j'aurai par exemple comme nom d'onglet Erreur 01, j'ai essayé de mettre dans ma colonne G un format personnalisée qui met un 0 devant les chiffres allant de 1 à 9 met la macro lorsqu'elle divise les onglets ne tient pas compte du format personalisée, comment faire pour obtenir le résultat souhaité ?
d'avance merci de votre aide, bonne après-midi.

Cordialement,
Jean-Mikaël
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

JeanMikael à dit:
Re-re Bonjour le forum,


J'ai cette macro :


Code: 
Sub distribue4()
Dim n As Integer
Dim ftr As String
'declaration de collection
Dim criteres As Collection
Set criteres = New Collection
'creation de la collection des criteres
Application.ScreenUpdating = False
 
For n = 2 To Range("g65536").End(xlUp).Row
  On Error Resume Next
    criteres.Add Range("g" & n), CStr(Range("g" & n))
  On Error GoTo 0
Next n
 
'ajout d'une feuille par critere
For n = 1 To criteres.Count
 
  Sheets.Add.Name = "Erreur " & criteres(n)
 
  Sheets("Feuil1").Range("A1:AD1").Copy Destination:=ActiveSheet.Range("A1")
 
Next n
 
'tansfert vers les feuilles
For n = 2 To Sheets("Feuil1").Range("g65536").End(xlUp).Row
 
  ftr = "Erreur " & Sheets("Feuil1").Range("g" & n)
 
  Sheets("Feuil1").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)
 
Sheets("Feuil1").Select
 
Next n
 
Application.ScreenUpdating = True
 
End Sub

Cette macro me permet de créer un onglet pour chaque valeur rencontrer dans la colonne G, dans cette colonne ce sont des chiffre jusque là tout va bien, mon soucil c'est que dans ma colonne j'ai par exemple des chiffre de 0 à 9 donc mon code va crée un onglet nommé Erreur 1 par exemple et ce que je souhaiterai c'est ajouter un 0 pour les onglet qui vont de Erreur 1 à 9 donc j'aurai par exemple comme nom d'onglet Erreur 01, j'ai essayé de mettre dans ma colonne G un format personnalisée qui met un 0 devant les chiffres allant de 1 à 9 met la macro lorsqu'elle divise les onglets ne tient pas compte du format personalisée, comment faire pour obtenir le résultat souhaité ?
d'avance merci de votre aide, bonne après-midi.

Cordialement,
Jean-Mikaël
Cliquez pour agrandir...
Salut
comme j'ai la flemme, j'ai pas tout regarder, juste la description du problème
remplacer :
ftr = "Erreur " & Sheets("Feuil1").Range("g" & n)
par
ftr = "Erreur " & format(Sheets("Feuil1").Range("g" & n);"00")
Juste une question au hazard : si t'as un problème d'erreur Excel en plein milieux de ta macro, comment tu exécute ScreenUpDating = True ?
Mais il n'y a aucun risque d'erreur,... normalement
A+
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

Bonjour Gorfael,

Tout d'abord merci de ta réponse je vais tester sa, en ce qui concerne ta question je ne sais pas sa mais encore jamais arrivé 🙂
Bonne après-midi.

Cordialement,
Jean-Mikaël
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

Re-, JeanMikael, bonjour Gorfael

une autre solution :

Sheets.Add.Name = IIf(Len(criteres(n)) = 1, "Erreur 0" & criteres(n), "Erreur " & criteres(n))

Gorfael,
Il me semble que le ScreenUpdating est remis automatiquement à True lorsqu'on stoppe la macro (par End Sub ou arrêt suite à Bug), mais peut-être me trompais-je?
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

Re, bhbh

La ligne que tu m'a filé à l'air de marcher le seul truc c'est que le programme
s'arrete à cette ligne :

Code: 
Sheets("Feuil1").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)

Cordialement,
Jean-Mikaël
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

Merci bhbh mais hélas toujours une erreur à cette ligne :

Code: 
Sheets("Feuil1").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)
 
Vote positif 0 Vote négatif
Re : Petit Soucil de division de feuille

Re-,
effectivement, difficile de dépanner si tu n'appliques pas les conseils qu'on te donne...😉, et que nous, on essaie avec ce qu'on t'a préconisé...

ton code modifié :

Dim criteres As Collection
Set criteres = New Collection
'creation de la collection des criteres
Application.ScreenUpdating = False
For n = 3 To Range("g65536").End(xlUp).Row
On Error Resume Next
criteres.Add Range("g" & n), CStr(Range("g" & n))
On Error GoTo 0
Next n
'ajout d'une feuille par critere
For n = 1 To criteres.Count
Sheets.Add.Name = IIf(Len(criteres(n)) = 1, "Erreur 0" & criteres(n), "Erreur " & criteres(n))
Sheets("liste").Range("A1:AD1").Copy Destination:=ActiveSheet.Range("A1")
Next n
'tansfert vers les feuilles
For n = 3 To Sheets("liste").Range("g65536").End(xlUp).Row
ftr = "Erreur " & Sheets("liste").Range("g" & n)
ftr = IIf(Len(ftr) < 9, "Erreur 0" & Sheets("liste").Range("g" & n), "Erreur " & Sheets("liste").Range("g" & n))
Sheets("liste").Range("A" & n & ":AD" & n).Copy Destination:=Sheets(ftr).Range("A65536").End(xlUp).Offset(1, 0)
Next n
Application.ScreenUpdating = True
End Sub

Celui là fonctionne, je l'ai testé...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Autres Listbox-transfère la recherche dans une ListBox vers une feuille de calcul
2
Réponses
18
Affichages
528
dysorthographie
dysorthographie
deudecos
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
182
deudecos
deudecos
L
  • Résolu(e)
Microsoft 365 Erreur d'exécution 1004 : la méthode select de la classe Worksheet a échoué
Réponses
7
Affichages
268
LaurentVasseur
L
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
TooFatBoy
A
  • Question Question
XL 2019 Mélange aléatoire colonne A sur colonne G ne fonctionne pas
Réponses
3
Affichages
375
arvin
A
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
562
mikeduff
M
lynyrd
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
786
lynyrd
lynyrd
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
585
sylvanu
sylvanu
anthoYS
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
621
anthoYS
anthoYS
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
897
n_turf
N
Lu76Fer
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
848
Lu76Fer
Lu76Fer
Electron24
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
Electron24
Eric 888
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
129
Eric 888
Eric 888
VBA_dev_Anne_Marie
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
VBA_dev_Anne_Marie
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
AtTheOne
treza88
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
340
sousou
sousou
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
patricktoulon
Retour