Développement de procédure à corriger

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:

---

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:

---

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.

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:

---

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

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.

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.