Boucle - Création d'onglet

[MERLIN]

Bonsoir à tous !!

Je n'arrive pas à créer une macro laquelle pourrait créer autant d'onglet qu'il y a de valeur dans la colonne A sans les doublons bien évidemment. (voir fichier en PJ)
L'onglet devrait porter le nom = Code & "-" & Nom.

D'avance merci car je suis encore au stade d'apprenti dans le domaine des boucles.
ET je buche dessus depuis quelques temps...
MERLIN

 

[ROGER2327]

Re : Boucle - Création d'onglet

Bonjour MERLIN

Essayez cette procédure :

[COLOR="DarkSlateGray"][B]
CODE SUPPRIMÉ

Voir le message #5[/B][/COLOR]

À placer de le module de la feuille Feuil1" ou dans un module standard.​

ROGER2327
#3221

 

[Papou-net]

Re : Boucle - Création d'onglet

Bonsoir ROGER2327, MERLIN,

Voici une boucle peut-être plus accessible pour un débutant ?

Espérant avoir contribué.

Cordialement.

 

[MERLIN]

Re : Boucle - Création d'onglet

Bonjour MERLIN

Essayez cette procédure :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oDat, i&
   Application.ScreenUpdating = False
   On Error GoTo E
   With Sheets("Feuil1")
      oDat = Intersect(.Range(.Range("A2"), .Range("A2").SpecialCells(xlCellTypeLastCell)), .Columns("A:B")).Value
   End With
   On Error GoTo 0
   If IsEmpty(oDat) Then GoTo E
   For i = 1 To UBound(oDat, 1)
      If oDat(i, 1) & "-" & oDat(i, 2) <> "-" Then
         Application.Worksheets.Add After:=Me
         On Error GoTo S
         ActiveSheet.Name = Format(oDat(i, 1), "0000") & "-" & oDat(i, 2)
         On Error GoTo 0
      End If
   Next i
E: Application.ScreenUpdating = True
Exit Sub
'
S: Application.DisplayAlerts = False
   ActiveSheet.Delete
   Application.DisplayAlerts = True
   Resume Next
End Sub[/B][/COLOR]

À placer de le module de la feuille Feuil1" ou dans un module standard.​

ROGER2327
#3221

Bonjour ROGER2327,

Lorsque je lance la macro. J'ai le droit à ce gentil message...
"Erreur de compilation : utilisation incorrecte du mot clé Me"

 

[ROGER2327]

Re : Boucle - Création d'onglet

Re...

Bonjour ROGER2327,

Lorsque je lance la macro. J'ai le droit à ce gentil message...
"Erreur de compilation : utilisation incorrecte du mot clé Me"

Normal ! J'ai commis une énorme bourde...

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oDat, i&
   Application.ScreenUpdating = False
   On Error GoTo E
   With Sheets("Feuil1")
      oDat = Intersect(.Range(.Range("A2"), .Range("A2").SpecialCells(xlCellTypeLastCell)), .Columns("A:B")).Value
      On Error GoTo 0
      If IsEmpty(oDat) Then GoTo E
      For i = 1 To UBound(oDat, 1)
         If oDat(i, 1) & "-" & oDat(i, 2) <> "-" Then
            Application.Worksheets.Add After:=[COLOR="Red"]Sheets(.Name)[/COLOR]
            On Error GoTo S
            ActiveSheet.Name = Format(oDat(i, 1), "0000") & "-" & oDat(i, 2)
            On Error GoTo 0
         End If
      Next i
   [COLOR="Red"]End With[/COLOR]
E: Application.ScreenUpdating = True
Exit Sub
'
S: Application.DisplayAlerts = False
   ActiveSheet.Delete
   Application.DisplayAlerts = True
   Resume Next
End Sub[/B][/COLOR]

devrait être mieux.
Mille excuses !​

ROGER2327
#3223

 

[ROGER2327]

Re : Boucle - Création d'onglet

Re...

(...)

Voici une boucle peut-être plus accessible pour un débutant ?

(...)

C'est certain ! Mais il vaut mieux ne pas tenter d'exécuter deux fois cette procédure.​

ROGER2327
#3224

 

[kiki29]

Re : Boucle - Création d'onglet

Salut, sans doute perfectible , à tester plus à fond

 

[MERLIN]

Re : Boucle - Création d'onglet

MERCI à tous !! C'est 100% ce que je voulais !!
Bonne fin de nuité pour les non couchés ^^