Discussion :

[Novice72]

Bonjour à toutes et à tous,

Je suis en train de finaliser une petite application. Toutefois, une petit bout de code me pose problème.
Une boite de dialogue me demande le nom que je donne à une future feuille qui regroupera deux ( ou plus ) autres feuilles.
Dans un second temps, Je crée cette feuille puis la renomme grâce à l' InputBox.

Mon problème est que je n'arrive pas à déplacer cette feuille crée pour la mettre à coté d'une autre feuille.
Quand je lance cette petite macro, il y a une erreur à la ligne 9 ( erreur de compilation me dit l'erreur ). Même en ajoutant les lignes 8 et 10
J'ai fait plusieurs essais en incluant la ligne 2 qui ici est en commentaire et j'ai remplacé "Fusionraces" de la ligne 9 par "Name" mais rien n'y fait.

Quelqu'un peut-il m'aider ?

Merci d'avance.

Novice72

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Macro1()
    Dim Fusionraces As String
   ' Dim sht As Worksheet
    Fusionraces = InputBox("Saisie du nom de la fusion: ", "Regroupement Races")
    Sheets.Add
    ActiveSheet.Name = Fusionraces
    Application.DisplayAlerts = False
    sht.Fusionraces.Move Before:=Sheets(10)
    Application.DisplayAlerts = True
    Range("A1").Select
End Sub

[Phil Free]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
 
Sub Macro1()
    Dim Fusionraces As String
    Dim sht As Worksheet
    Fusionraces = InputBox("Saisie du nom de la fusion: ", "Regroupement Races")
    Set sht = Sheets.Add(Sheets(10))
    sht.Name = Fusionraces
End Sub

rien de bien compliqué pourtant

[Novice72]

Bonjour et Merci Phil,

Il est vrai que rien n'est compliqué..... quand on sait. Comme tu le vois, de par mon pseudo, je ne suis pas "calé" en VBA. Je me débrouille avec l'enregistreur que j'arrive à modifier ou à faire du vrai code mais quelques fois je bloque quand je veux utiliser une fonction pour le première fois.
Je vais dès maintenant modifier mon programme grâce à toi.

Encore merci

Novice72