trier des lignes en fonction de feuille

[blackjack]

Bonjour tout le monde,

Voilà un problème tout simple (mais pas pour moi en tout cas)

1) des feuilles nommées que l'on doit trier par ordre alpha
2) un tableau récapitulatif ou chaque ligne représente une feuille et la première cellule reprend le nom de la feuille

Si je déplace ou trie des feuilles les données sur le récap sont bien déplacées aussi, mais pas la première cellule qui reste figée donc sur le tableau récap, je voudrais lier la première cellule à la ligne entière.

J'espère être assez clair (?? )

Merci à tous

 

[blackjack]

Re : trier des lignes en fonction de feuille

Formidable tout fonctionne
même l'ajout de feuilles qui s'incrémentent.

je me répète, mais merci encore pour ta patience

n'hesite pas à ton tour si tu as besoin d'un conseil en vba ou autre je suis à ta disposition (j'ai de bons copains sur un forum )

amicalement
jack

 

[blackjack]

Re : trier des lignes en fonction de feuille

Tu peux me rappeler comment enlever les selections après les tris ?
J'ai mis Range "A1" select. mais les tableaux mois sont toujours selectionner


sinon je confirmer tout fonctionne j'ai même testé le code pour boucler sur les feuilles c'est OK!!

Bonne fin de journée
jack

 

[wilfried_42]

Re : trier des lignes en fonction de feuille

re:

juste au dessus du range("A1").select tu mets :

Sheets(1).select ' ---> retour à la premiere page

Sheets(1).range("A1").select ne fonctionne pas, on ne peut pas selectionner une cellule si la feuille n'est pas pralablement selectionnée

 

[blackjack]

Re : trier des lignes en fonction de feuille

Merci
bonne journée

 

[blackjack]

Re : trier des lignes en fonction de feuille

re:

juste au dessus du range("A1").select tu mets :

Sheets(1).select ' ---> retour à la premiere page

Sheets(1).range("A1").select ne fonctionne pas, on ne peut pas selectionner une cellule si la feuille n'est pas pralablement selectionnée

ça ne déselectionne que janvier les autres mois restent noir

 

[wilfried_42]

Re : trier des lignes en fonction de feuille

re:

j'avais pas compris, si je m'etais un sou à chaque fois que je ne comprends pas, je serais riche lol

Range("A1").select à ajouter avant le next i dans la procedure tri_feuille

 

[blackjack]

Re : trier des lignes en fonction de feuille

elles sont toujours toues selectionnées sauf une

 

[wilfried_42]

Re : trier des lignes en fonction de feuille

re:

ton fichier en retrour

 

[blackjack]

Re : trier des lignes en fonction de feuille

Ok Compris

il fallait mettre l'info avant le next i et le call macro1

voilà j'ai encore appris quelque chose

merci

bonne journée

jack

 

[blackjack]

Re : trier des lignes en fonction de feuille

Encore une

comment fais tu pour nommer l'onglet en auto avec la saisie en B2

 

[wilfried_42]

Re : trier des lignes en fonction de feuille

re:

le code est dans thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Target.Address, 4) = "$B$2" Then ' si la cellule est bien la bonne
If ActiveSheet.Index > Sheets.Count - 12 Then Exit Sub ' si les feuilles Sont es mois je sors
If Range("B2").Value = "" Then Target = ActiveSheet.Name: Exit Sub si rien n'a ete mis dans B2, j'y remets le nom de la feuille
ActiveSheet.Name = Range("B2").Value ' Mise à jour du nom de la feuille
End If
End Sub

 

[blackjack]

Re : trier des lignes en fonction de feuille

Merci