Classer variable par onglet

[azerty29]

Bonjour,

On peut voir ( piece jointe ) que ma colonne 2 (B) présente plusieurs fonction
Ce fichier est obtenue par une importation c'est a dire que il peut y avoir 5 comme 10 lignes, a chaque ouverture cela peut etre modifié. il existe de nombreuses fonctions, chaque ligne contient une seule fonction.

J'aurais aimé les classer par page et que cela se fasse automatiquement,
Lorsque je lance ma page, si j'active les macro que mon importation au lieu de tous mettre sur une seule page les classe par fonction et par page

Sur la page 1 se sont mes données obtenue par une importation et j'aimerai obtenir un resultat qui ressemble au autres pages.

Merci
Cordialement

 

[Pierrot93]

Re : Classer variable par onglet

Re,

tous marche sauf le fait que les feuille les lignes ne soit pas masqués

en l'état ce sont les colonnes qui sont masquées, non les lignes... tu as mis un point d'arrêt ? la macro est bien déclenchée lorsuqe tu rajoutes une feuille ?

 

[azerty29]

Re : Classer variable par onglet

Les colonnes oui pardon

je comprend pas ton truc de point d'arret? a quoi cela sert-il ? que fait ce point d'arret

 

[Pierrot93]

Re : Classer variable par onglet

Re,

ce point d'arrêt comme son nom l'indique arrête l'exécution du code... il te permet donc de voir si la procédure événementielle c'est bien déclenchée... en suite utilisation de la touche F8 pour exécuter le code pas à pas et vérifier que chaques lignes s'exécutent et que le résultat souhaité est là...

 

[azerty29]

Re : Classer variable par onglet

Il ne prend pas en compte tes lignes de code, que je les mettre comme tu me la dis, j'ai meme essayer avant et il execute seulement mon import et mon compteur, ta partie il ne le prend pas du tout en compte

 

[Pierrot93]

Re : Classer variable par onglet

Bonjour,

Il ne prend pas en compte tes lignes de code, que je les mettre comme tu me la dis, j'ai meme essayer avant et il execute seulement mon import et mon compteur, ta partie il ne le prend pas du tout en compte

Attention, ce code est une procédure événementielle et ce déclenche automatiquement lorsqu'une nouvelle feuille est créée....

bonne journée
@+

 

[Pierrot93]

Re : Classer variable par onglet

Re,

un petit fichier à tester, tu click droit sur un onglet => insérer... espérant que tu puisses t'en inspirer...

 

[azerty29]

Re : Classer variable par onglet

Bah ça marche quand tu rajoute manuellement
Mais lorsque que je clic sur mon bouton pour créer automatiquement mes onglet a ce moment la rien ne se passe !

 

[Pierrot93]

Re : Classer variable par onglet

Re,

le fichier avec une macro qui créé un onglet et l'on voit bien que la procédure est déclenchée...

 

[Pierrot93]

Re : Classer variable par onglet

Re,

A voir également si dans ton code tu n'arrête pas les procédures événementielles avec une instruction de ce type :

Application.EnableEvents = False

 

[azerty29]

Re : Classer variable par onglet

Moi j'ai ça !

 

[Pierrot93]

Re : Classer variable par onglet

Re,

je ne vois pas dans ton code que tu insères de nouvelles feuilles... je vois seulement une "copy" et dans le cas la procédure donnée ne se déclenche pas... normal....

 

[azerty29]

Re : Classer variable par onglet

j'ai ça dans ma thisWorbook

Private Sub Workbook_Open()
Recupere


compteur = 0
For Each cellule In Sheets(1).Range("B6:B100")
If Not IsNumeric(cellule) And cellule <> "" Then compteur = compteur + 1
Next cellule
If compteur = 0 Then MsgBox ("Il y a aucun indicateur inférieur au seuil!")
If compteur > 0 Then MsgBox ("Il y a " & compteur & " indicateur(s) inferieur au seuil! Cliquer pour Trier!")


End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Columns("AX:BL").Hidden = True
Sh.Columns(49).Select
End Sub

 

[Pierrot93]

Re : Classer variable par onglet

Re,

j'ai ça dans ma thisWorbook

bah... pas de code d'insersion de feuille non plus.... dans ton module après le code de "copy" de la feuille tu rajoute une ligne :

ActiveSheet.Columns("AX:BL").Hidden = True

 

[azerty29]

Re : Classer variable par onglet

Sub Bouton99_Clic()
Application.ScreenUpdating = False

Sheets("fonction").Visible = True
Sheets("Modèle").Visible = True


Application.DisplayAlerts = False
For j = 4 To Sheets.Count
Sheets(4).Delete
Next j
Application.DisplayAlerts = True

Sheets("fonction").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear


Sheets("fonction").Range("A1").Value = Sheets("Feuil1").Range("B5").Value
Sheets("Feuil1").Activate
Range("B5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("fonction").Range("A1"), Unique:=True
Selection.Copy
Sheets("fonction").Activate
Nbligne = Range("A1").CurrentRegion.Rows.Count
For f = 2 To Nbligne
newfeuille = Sheets("fonction").Cells(f, 1).Value
Sheets("Modèle").Copy after:=Sheets(3)
ActiveSheet.Name = newfeuille
Next f


Sheets(1).Activate
Range("b6").Select



Do While ActiveCell.Value <> ""
Feuille = ActiveCell.Value
'MsgBox Feuille
For i = 4 To Sheets.Count
If Sheets(i).Name = Feuille Then
cherche = True
ligne = ActiveCell.Row
Rows(ligne).Copy
Sheets(Feuille).Activate
Range("b10000").End(xlUp).Offset(3, -1).Select
Selection.PasteSpecial

Else
cherche = False

End If
Next i

'If cherche = False Then
'Sheets(Feuille).Add
' End If

'Destination =
' Range("a60000").End(xlUp).Offset(1, 0).PasteSpecial

'Rows(Destination).Paste
'End If

Sheets(1).Activate
ActiveCell.Offset(1, 0).Select
Loop
Sheets("fonction").Visible = False
Sheets("Modèle").Visible = False
Application.ScreenUpdating = True
ActiveSheet.Columns("AX:BL").Hidden = True
End Sub

Je l'ai rajouter içi mais rien ne se passe non plus

 

[Pierrot93]

Re : Classer variable par onglet

Re,

A placer après ceci peut être :

For f = 2 To Nbligne
newfeuille = Sheets("fonction").Cells(f, 1).Value
Sheets("Modèle").Copy after:=Sheets(3)
ActiveSheet.Name = newfeuille
Next f