Discussion :

[patmicro]

Bonjour à tous les lecteurs:

Dans un classeur j'ai une feuille nommée Feuille de base
A l'aide d'une macro je duplique cette feuille pour ensuite la renommer manuellement en cellule B2

A ce stade je bloque sur la procédure
De plus je veux inclure une procédure si une feuille porte déjà le même nom

Une fois le nom de la feuille inscrit on passe en cellule C3

Suite de ma procédure qui est OK



Ensuite dans un autre code je veux inclure le nom de ma nouvelle feuille que je récupère en cellule B2 pour l'inscrire en colonne A de ma feuille Liste Questionnaire

Je doit inscrire le nom de ma nouvelle feuille en colonne A juste après la dernière cellule NON vide puisque à chaque nouvelle feuille on décale d'une cellule vers le bas.
Je bloque sur ce point.

Par avance je vous remercie pour aide.

1ere Macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Nouveau_Thème()
'
'on rend visible la feuille de base
    Worksheets("Feuille de base").Visible = True
 
    'On sélectionne la feuille de base
        Sheets("Feuille de base").Select
        'On duplique la feuille de base
            Sheets("Feuille de base").Copy Before:=Sheets(3)
            'On se positionne sur la cellule "B2"
                Range("B2").Select
            If MsgBox(" Veuillez Nommer votre thème en cellule B2!") Then
                'Ecriture
                'Instruction de validation
           SendKeys ("{ENTER}")
 
 'il faut gérer le cas d'une feuille portant déja le même nom
 
 
                If MsgBox("Attention :  une feuille porte déja ce même nom" & Chr(10) & Chr(10) & "Veuillez attribuer un nouveau nom à cette feuille!!!") Then
 
                  'si ok on passe à la cellule C3 pour remplir le questionnaire
 
            'End If
            End If
        End If
   Contôle_remplissage
    'Nommer_Nouveau_questionnaire
    'Contrôle_Cellules
 
End Sub

2eme Macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Nommer_Nouveau_questionnaire()
    Dim resultat As String
 
    resultat = InputBox("Veuillez Nommer votre thème en cellule B2!", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
 
    If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
        'MsgBox resultat
'Je veux copier le nouveau nom que j'ai écrit dans l'InputBox en Cellule B
    Range("b2").Select
    'ActiveSheet.Paste
    Application.CutCopyMode = False
    End If
 
    'Contôle_remplissage
End Sub

Je reviendrai vers vous pour compléter en fonction de mes idées.

Par avance je vous remercie.

[MarcelG]

Salut,

Pour ce faire
- copier la feuille
- instruire une méthode InputBox (de type texte) dont le résultat sera mémorisé, exemple "lenom"
- tester si une feuille de ce nom n'existe pas et boucler tant que le nom existe
- lui affecter comme propriété Nom le résultat de l'InputBox (de type texte), soit la variable lenom
- la cellule B2 étant affectée de la même valeur, lenom

Pour ce faire, tu peux consulter ces 2 espaces
Copier une feuille
Méthode InputBox
les boucles

Attention, pour tester si une feuille existe, surtout ne pas boucler sur le nom de la collection des feuilles avec un Exit For.
Mais plutôt

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function ExistFeuille(lenom As String) As Boolean
 
Dim trouvéWks As Boolean
Dim n As Long
 
trouvéWks = False
n = 1
 
With ActiveWorkbook
        Do While n <= .Sheets.Count And trouvéWks = False
                trouvéWks = (StrComp(.Sheets(n).Name, lenom, vbTextCompare) = 0)
                n = n + 1
        Loop
End With
 
ExistFeuille = trouvéWks
 
End Function

Au demeurant, plusieurs variantes existent à ce sujet

[Pierre Fauconnier]

Salut.

Ca veut dire quoi "renommer manuellement en cellule B2"?

Que cherches-tu à réaliser? Ne l'explique pas par du code ou avec du langage Excel, mais comme si tu n'y connaissais rien et que tu devais rédiger un cahier des charges...

Au passage, lorsque tu postes du code, sélectionne-le puis clique sur le bouton # des outils de mise en forme, ça aidera à y voir plus clair... Quoique.

[patmicro]

Bonsoir Pierre : Pardon je me suis mal exprimé. j'ai omis de dire que j'ai déjà une macro qui nomme ma feuille Lorsque j'inscris quelque chose en cellule B2.

Méthode
Je duplique une feuille nommée "Feuille de base" dans laquelle le nom de cette feuille est déjà présent en cellule B2.
Dans la nouvelle Feuille dupliquée en cellule B2 je donne un nouveau nom dans B2 qui par macro renomme l'onglet.
Dans une autre Feuille qui se nomme "Liste" je voudrais insérer le nom de cet onglet ou plutôt la valeur inscrite en cellule B2 de chaque nouvelle Feuille en colonne A mais de façon incrémentée en partant de A2

Donc :exemple 1 en A2 le nom de la feuille nommée test 1
:exemple 1 en A3 le nom de la feuille nommée test 2
etc.