Problème erreur d'exécution

Bonsoir la communauté, je suis débutant dans la programmation et souhaite demandé votre aide sur un sujet. Je rencontre un problème pour activer un onglet via une macro. J'aimerai pouvoir rentrer des informations dans une cellule via MsgBox mais une fois les données insérée le programme n'arrive pas à trouver l'onglet alors que l'onglet est bien existant.

Merci pour votre aide

Bonne soirée

Sub Bouton7_Cliquer()

saisie:

'on initialise feuille à "paramètres"
feuille = "paramètres"

Worksheets("paramètres").Activate
Dim Racine As String              
Racine = Range("C2").Value

Dim Ajout_localisation As String  
Ajout_localisation = Range("C5").Value

Ajout_déroulé = Range("C6").Value

Dim NumOf As String         'numéro de l'OF qu'on met à jour
Dim feuilles As String

NumOf = Racine & InputBox("Entrer numéro d'OF", "Numéro d'OF")
feuilles = InputBox("Entrer une feuille", "Etage")

        Worksheets("feuilles ").Select                        'Problème rencontré à ce niveau
        Rows("33:33").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A33").Select
        Selection.Value = "NumOf"

End Sub

Bonjour,

Un essai ...

Sub Bouton7_Cliquer()
Dim Racine As String
Dim Ajout_localisation As String
Dim NumOf As String      'numéro de l'OF qu'on met à jour
Dim feuilles As String

   Worksheets("paramètres").Activate
   Racine = Range("C2").Value & " "
   Ajout_localisation = Range("C5").Value
   Ajout_déroulé = Range("C6").Value

   NumOf = Racine & InputBox("Entrer numéro d'OF", "Numéro d'OF")
   feuilles = InputBox("Entrer une feuille", "Etage")

   Worksheets(feuilles).Activate
   Rows("33:33").Select      'Problème rencontré à ce niveau
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Range("A33").Value = NumOf
End Sub

ric

Tout d'abord merci ric pour votre aide, j'ai essayé votre solution mais je rencontre toujours le même problème avec l'activation de la feuille sur cette ligne de code :

Worksheets(feuilles).Activate

Autant pour moi après plusieurs essai cela a fonctionné sauriez vous me dire où était l'erreur dans mon code ?

Merci pour votre aide

Rechercher des sujets similaires à "probleme erreur execution"