VBA Deplacer des onglets a la fin

[sonskriverez]

bonjour le forum,

Pour déplacer des onglets vers la fin j'utilise ceci

Sheets ( Array ("Bruno", "Alain", "Nicole")).Move after:=Sheets.Count)

et cela ne marche pas

Merci de votre aide

 

[Carnage029]

Re : VBA Deplacer des onglets a la fin

voilà un essai :

Sheets(Array("Feuil2", "Feuil3")).Select
Sheets(Array("Feuil2", "Feuil3")).Move After:=Sheets(3)

bien sur remplacer Feuil1 2 et 3 par les noms appropriés

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Je ne connais à l'avance le nbr d'onglets

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Prrdon je ne connais à l'avance le Nbr d'onglets

 

[Pierrot93]

Re : VBA Deplacer des onglets a la fin

Bonjour,

essaye ceci, non testé...

Sheets ( Array ("Bruno", "Alain", "Nicole")).Move after:=Sheets(Sheets.Count)

bon après midi
@+

 

[Carnage029]

Re : VBA Deplacer des onglets a la fin

désolé : Sheets("TOTO").Move After:=Sheets(Sheets.Count) devrait fonctionner (problème de parenthèses dans ton code)


Argggh : dévancé

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Ben non, marche toujours pas. Même en corrigeant la parenthèse

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

message d'erreur

Run-time '9'
Subscript out of range

 

[Pierrot93]

Re : VBA Deplacer des onglets a la fin

Re,

ca marche pas... veut dire quoi ? message d'erreur ou pas le résultat attendu ?

Fonctionne chez moi

Sheets(Array("Bruno", "Alain", "Nicole")).Move After:=Sheets(Sheets.Count)

code placé dans un mosule standard....

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Oui le deroulement du code plante, j'ai le debugger

Oui c'est dans un module std

voici le code complet, je tri par ordre alphabétique et je deplace a la fin certains onglets. Ce n'est peut-être pas comme cela qu'il faut faire !

Sub trier()

For i = 1 To Sheets.Count
For j = i + 1 To Sheets.Count
If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then Sheets(j).Move before:=Sheets(i)
Next j
Next i
Sheets(Array("Bruno", "Alain", "Nicole")).Move After:=Sheets(Sheets.Count)
Sheets(1).Select

End Sub

 

[Pierrot93]

Re : VBA Deplacer des onglets a la fin

Re,

vérie bien le nom des feuilles présentes dans l'array... casse et s'il n'y a pas une espcae qui traîne...

 

[Pierrot93]

Re : VBA Deplacer des onglets a la fin

Re,

A noter pas de souci chez moi sur l'exécution totale de ton code.... ce sous 2003.... le classeur à trier étant le classeur actif....

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Ok merci beaucoup, je vais gratter

 

[sonskriverez]

Re : VBA Deplacer des onglets a la fin

Grrr j'ai trouvé !! il y avait un espace dans mes nom d'onglets.

Désolé et merci pour votre aide

 

[Carnage029]

Re : VBA Deplacer des onglets a la fin

oui je me disais je viens de tester ton code chez moi ça marche 🙂

Bonne continuation