retour automatique

[ORBAN]

Bonjour à tous,
J'aurais un probléme à vous soumettre et deux renseignements.
1) Combien peut on mettre d'onglets Maximum dans un classeur ?🙄
2) Peut on trier par ordre alphabétique les onglets ? (ils potent tous un nom et un prénom)🙄
3) mon probléme et le suivant je souhaiterais insérer des feuilles qui avec un commanbutton, cela est il possible de façon automatique ou bien dois-je mettre le boutton manuelement pour chaque fueille ? 😕
de plus ce button sert à faire un retour vers la feuille index, peut on trouver une solution pour que le VB fonctione pour toutes les nouvelles feuilles ou dois-je copier le VB dans chaque nouvelle feuilles ? 😕 j'ai joint un exemple.
merci de votre aide.

 

[pierrejean]

Re : retour automatique

bonjour ORBAN

1) je ne crois pas qu'il y ait de limite au nombre de feuilles autre que le poids du fichier au regard de la memoire du micro qui traite le fichier

2)
macro pour copier ta feuille

Sub copie()
Sheets("Feuil2").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("la cellule ou sont les noms et prenoms")
End Sub

avec une boucle on peut ainsi creer autant de feuilles que necesaire avec un bouton actif

3) macro pour classer les feuilles

Sub trifeuilles()
Dim x As Integer
Dim mini As String
Dim n As Integer
Application.ScreenUpdating = False
x = Sheets.Count
mini = Sheets(1).Name
While x > 0
  For n = 2 To x
   If Sheets(n).Name < mini Then mini = Sheets(n).Name
  Next n
 Sheets(mini).Move after:=Sheets(Sheets.Count)
 mini = Sheets(1).Name
 x = x - 1
Wend
Application.ScreenUpdating = True
End Sub

et vive le Senegal

 

[ORBAN]

Re : retour automatique

Bonjour et merci Monsieur Pierrejean,
Peut tu me dire ou je dois copier tes formules ? dans chaque feuille ou, dois-je créer un module ?
D'avance merci
et vive le Sénégal libre !!!

 

[pierrejean]

Re : retour automatique

re

les macros sont a copier dans un module

on peut ensuite les appeler par

Outils > Macro > Macros
selectionner et executer

 

[ORBAN]

Re : retour automatique

Merci PierreJean,
J'étais en train de le faire au moment ou j'ai reçus ton méssage 😱
Tout fonctionne bien et re merci, par contre quant je classe les onglet par ordre alpha, aprés le classement je suis au dernier onglet, serait il possible qu'aprés classement je revienne soit à la 1ére feuille, ou ce qui serait l'idéal à une feuille définis ?😕
t'en remerciant par avance😉

 

[ORBAN]

Re : retour automatique

Pierrejean,
autre probléme et suite à ton code j'ai B1=Nom et B2=Prénom, je n'arrive pas à associer le nom et le prénom j'ai écrit: ActiveSheet.name=Range("B1":"B2") mais ça ne marche pas 😡
merci encore de ton aide ! 😱

 

[Spitnolan08]

Re : retour automatique

Bonsoir Orban,
Re Pierrejean,

Essaie

ActiveSheet.name=Range("B1") & Range("B2")

Cordialement

 

[bqtr]

Re : retour automatique

Bonsoir ORBAN, pierrejean, Spitnolan08

Pour revenir sur la feuille de ton choix après le tri, compléte la macro de PierreJean comme ceci :

.../...
 x = x - 1
Wend
Sheets([COLOR=Blue]"nom de ta feuille"[/COLOR]).Activate
Application.ScreenUpdating = True
End Sub

Pour compléter la réponse de Spitnolan08, si tu veux un espace entre le nom et le prénom :

ActiveSheet.Name = Range("B1") & " " & Range("B2")

Bonne soirée

 

[ORBAN]

Re : retour automatique

Bonsoir à vous tous,
Merci beaucoup pour votre aide, et effectivement en lisant votre formule cela me parait logique ! 🙄
Je vais mettre tout cela en pratique demain, ici il est 18 h 00 et la plage me réclame !!! 😎
A demain et merci encore

 

[bqtr]

Re : retour automatique

Re,

Ouais, ici il est 20h30, la plage me réclame pas, pourtant c'est pas trop loin, et même si elle me réclamait, je ne risquerai même pas de mettre un doigt de pied dans l'eau.
Il pleut quasiment sans discontinuer depuis le mileu de la journée et il ne fait que 12°.😱

Bonne baignade 🙂

 

[ORBAN]

Re : retour automatique

Bonjour à bqtr; spitnolan08; PierreJean et vous tous en vos...et qualités 😉
Merci de votre aide tous fonctionne à merveille 😛
la plage hier soir était bonne et j'ai eu une pensées pour vous 🙂
Demain férié, good !!!
A trés bientot, Ici sur le forum, à Dakar ou aillieurs 🙄
Bonne journée et bon week end.