Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate
For i = 1 To Sheets.Count
Sheets("onglets").Select
nonglet = Cells(i, 1).Value
Sheets(nonglet).Move before:=Sheets(i)
Next i
Sheets("paramètres").Activate
End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et
chiffres et mes onglets ne sont plus dans l'ordre voulu !
Je ne vois pas ou est l'erreur
Qui peut m'aider ?
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci
Bonsoir,
Sub trionglet()
For i = 1 To Sheets.Count - 1
nonglet = CStr(Sheets("onglets").Cells(i, 1).Value)
Sheets(nonglet).Move before:=Sheets(i)
Next i
End Sub
JB
On 28 mar, 19:16, "Lionel" <lionel...@wanadoo.fr> wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate
For i = 1 To Sheets.Count
Sheets("onglets").Select
nonglet = Cells(i, 1).Value
Sheets(nonglet).Move before:=Sheets(i)
Next i
Sheets("paramètres").Activate
End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et
chiffres et mes onglets ne sont plus dans l'ordre voulu !
Je ne vois pas ou est l'erreur
Qui peut m'aider ?
merci
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci
Lionel
CStr ? ca correspond a quoi ? Merci pour l'aide
"JB" a écrit dans le message de news:
Bonsoir,
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci
CStr ? ca correspond a quoi ?
Merci pour l'aide
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1175106204.897591.30360@b75g2000hsg.googlegroups.com...
Bonsoir,
Sub trionglet()
For i = 1 To Sheets.Count - 1
nonglet = CStr(Sheets("onglets").Cells(i, 1).Value)
Sheets(nonglet).Move before:=Sheets(i)
Next i
End Sub
JB
On 28 mar, 19:16, "Lionel" <lionel...@wanadoo.fr> wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a
partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate
For i = 1 To Sheets.Count
Sheets("onglets").Select
nonglet = Cells(i, 1).Value
Sheets(nonglet).Move before:=Sheets(i)
Next i
Sheets("paramètres").Activate
End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et
chiffres et mes onglets ne sont plus dans l'ordre voulu !
Je ne vois pas ou est l'erreur
Qui peut m'aider ?
merci
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci
JB
Conversion d'un nombre en chaîne de caractères
JB On 28 mar, 20:25, "Lionel" wrote:
CStr ? ca correspond a quoi ? Merci pour l'aide
"JB" a écrit dans le message de news:
Bonsoir,
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange nom s et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Conversion d'un nombre en chaîne de caractères
JB
On 28 mar, 20:25, "Lionel" <lionel...@wanadoo.fr> wrote:
CStr ? ca correspond a quoi ?
Merci pour l'aide
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1175106204.897591.30...@b75g2000hsg.googlegroups.com...
Bonsoir,
Sub trionglet()
For i = 1 To Sheets.Count - 1
nonglet = CStr(Sheets("onglets").Cells(i, 1).Value)
Sheets(nonglet).Move before:=Sheets(i)
Next i
End Sub
JB
On 28 mar, 19:16, "Lionel" <lionel...@wanadoo.fr> wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a
partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate
For i = 1 To Sheets.Count
Sheets("onglets").Select
nonglet = Cells(i, 1).Value
Sheets(nonglet).Move before:=Sheets(i)
Next i
Sheets("paramètres").Activate
End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange nom s et
chiffres et mes onglets ne sont plus dans l'ordre voulu !
Je ne vois pas ou est l'erreur
Qui peut m'aider ?
merci- Masquer le texte des messages précédents -
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange nom s et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Lionel
Tout fonctionne bien !!! Merci ! "JB" a écrit dans le message de news:
Conversion d'un nombre en chaîne de caractères
JB On 28 mar, 20:25, "Lionel" wrote:
CStr ? ca correspond a quoi ? Merci pour l'aide
"JB" a écrit dans le message de news:
Bonsoir,
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Tout fonctionne bien !!! Merci !
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1175106828.771628.185570@o5g2000hsb.googlegroups.com...
Conversion d'un nombre en chaîne de caractères
JB
On 28 mar, 20:25, "Lionel" <lionel...@wanadoo.fr> wrote:
CStr ? ca correspond a quoi ?
Merci pour l'aide
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1175106204.897591.30...@b75g2000hsg.googlegroups.com...
Bonsoir,
Sub trionglet()
For i = 1 To Sheets.Count - 1
nonglet = CStr(Sheets("onglets").Cells(i, 1).Value)
Sheets(nonglet).Move before:=Sheets(i)
Next i
End Sub
JB
On 28 mar, 19:16, "Lionel" <lionel...@wanadoo.fr> wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a
partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate
For i = 1 To Sheets.Count
Sheets("onglets").Select
nonglet = Cells(i, 1).Value
Sheets(nonglet).Move before:=Sheets(i)
Next i
Sheets("paramètres").Activate
End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et
chiffres et mes onglets ne sont plus dans l'ordre voulu !
Je ne vois pas ou est l'erreur
Qui peut m'aider ?
merci- Masquer le texte des messages précédents -
Tout fonctionne bien !!! Merci ! "JB" a écrit dans le message de news:
Conversion d'un nombre en chaîne de caractères
JB On 28 mar, 20:25, "Lionel" wrote:
CStr ? ca correspond a quoi ? Merci pour l'aide
"JB" a écrit dans le message de news:
Bonsoir,
Sub trionglet() For i = 1 To Sheets.Count - 1 nonglet = CStr(Sheets("onglets").Cells(i, 1).Value) Sheets(nonglet).Move before:=Sheets(i) Next i End Sub
JB
On 28 mar, 19:16, "Lionel" wrote:
bonjour
Ce code est censé trier mes onglets dans l'ordre de la liste situé a partir
de A1 de l'onglet "onglets".
Sub trionglet()
Sheets("onglets").Activate For i = 1 To Sheets.Count Sheets("onglets").Select nonglet = Cells(i, 1).Value Sheets(nonglet).Move before:=Sheets(i) Next i Sheets("paramètres").Activate End Sub
Mais le tri se fait jusqu'au onglets 1 à 24 car là il mélange noms et chiffres et mes onglets ne sont plus dans l'ordre voulu ! Je ne vois pas ou est l'erreur Qui peut m'aider ? merci- Masquer le texte des messages précédents -