Discussion :

[Raphael13]

Bonjour à tous,

Je dois nommer, dans un classeur, un certain nombre de feuilles (qui peut varier) en fonction de leur cellule A2 (uniquement les caracteres 17, 18, 19 : ce sont trois chiffres et; les seuls de la cellules) et d'une deuxieme cellule B1 (le dernier mot : qui est soit MENSUEL soit CUMUL).

Cette macro doit pouvoir s'appliquer sur toutes les feuilles (qui peuvent varier) SAUF sur la derniere.

Exemple du resulat recherché : "051 Cumul" en nom de feuille

D'avance merci

Nb : je suis un débutant sur VBA (une nouvelle passion ^^) et comme tout bon débutant, je commance à maitriser les élements simples. Jusqu'à maintenant, je n'arrive qu'à nommer mes feuilles qu'en fonction d'une cellule unique et entière....

Si quelqu'un arrive à me trouver la réponse, peut-il me l'expliquer en l'annotant? (tant qu'à faire, je préferais comprendre plutot que recopier betement)

Voili, voila pour mes premiers pas sur le forum. Merci

[ucfoutu]

Nb : je suis un débutant sur VBA (une nouvelle passion ^^) et comme tout bon débutant, je commance à maitriser les élements simples. Jusqu'à maintenant, je n'arrive qu'à nommer mes feuilles qu'en fonction d'une cellule unique et entière....

si tu arrives à faire celà (en rouge), tu sais donc liure ce que contient une cellule.
Tu sais donc également lire ce que contient l'autre cellule.
Il ne te reste qu'à :
- apprendre la concaténation, qui se faiut ainsi (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
A = "toto"
B = "titi"
C = A & B ' C contiendtra "tototiti"

- lire dans ton aide en ligne ce à quoi sert la fonction Mid et l'utiliser pour extraire tes caractères de ta 1ère cellule
- lire dans ton aide en ligne l'opérateur Like et l'utiliser
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
A = "bbbb ssss dfrc coucou"
If A like "* coucou" then msgbox " le dernier mot est bien coucou"

Ma manière de te répondre me parait adaptée à ton voeu :

Si quelqu'un arrive à me trouver la réponse, peut-il me l'expliquer en l'annotant? (tant qu'à faire, je préferais comprendre plutot que recopier betement)

Ces indications devraient te permettre d'atteindre très facilement ton but.
Reviens si tu rencontres une difficulté, en nous précisant sur quelle partie.

[Raphael13]

bonsoir "UCfoutu",

la macro que j'ai fait (en m'inspirant d'exemples sur le net et en l'adaptant), ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then: Exit Sub
ActiveSheet.Name = Target
End Sub

Le probleme est que je dois valider la cellule B1 pour que cela fonctionne (vu le nombre de feuilles dans le classeur se n'est pas ... fameux )

Donc, je suppose que je suis parti sur la mauvaise piste et qu'il est inutile d'inclure les précisions que tu m'as apporté (ceci dit en passant : merci pour la rapidité et la démarche pédago)

Si on pouvait eclairer mon esprit ignorant ^^, merci

PS : si des personnes connaissent des sites complets, pédagogiques,... pouvant m'aider à progresser (voire plutot apprendre ^^), merci de me les communiquer

De plus, comment reussir à appliquer la macro sur, l'ensemble des feuilles excepté la dernière (sans connaitre d'avance le nombre)?
(quand je disais débutant, c'était au sens fort du terme ^^)