Discussion :

[renaultt2]

Bonjour
Je renseigne une Inputbox (Juillet)

Code :

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

1
2
3
Dim Mytext As String
'renseigner la variable mois et année
   Mytext = InputBox("Saisir le mois")

je crée une nouvelle feuille avec le nom Juillet

Code :

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

1
2
3
 With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Mytext
    End With

Je vais dans une autre feuille, copier un tableau. puis je veux revenir à ma feuille (Juillet). je code

Code :

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

  Worksheets(" " & Mytext & " ").Select

J'ai une erreur d'exécution '9'
Je ne comprends pas pourquoi.0

Pouvez-vous m'aider ???
Cordialement

[Guy7700]

Bonjour,

Plutôt que

Code :

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

Worksheets(" " & Mytext & " ").Select

, essaye

Code :

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

Worksheets(" " & Mytext & " ").Activate

Bàt,

[renaultt2]

C'est la même chose.
J'avais déjà essayé.
Cordialement

[Guy7700]

Tu avais ouvert un sujet sur la même problématique dans lequel quelqu'un t'avait répondu avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub CreateSheet()
Dim mytext as String
 
mytext = InputBox("Saisir le mois")
 
    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = mytext
    End With
End Sub

Il fait le travail, il créera toujours en dernière position une feuille portant le nom que tu renseigneras dans l'inputbox.

Bàt,

[mfoxy]

Merci Guy,

Pour ce positionner sur une feuille dont le nom est dans une variable

Code :

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

1
2
 
ThisWorkbook.Worksheets(Mytext) .Select

Ps, le fait de sélectionner une feuille pour y coller qq chose est rarement une bonne idée, et à répétition cause des flash écran et un ralentissement certain du code.

La bonne pratique de codage voudrait que tu passes directement ton copier-coller sans selectionner/passer sur l'onglet de destination, par exemple

On copie la plage A1 à D4 de l'onglet nommé Sheet1 vers E5 de la feuille Sheet2

Code :

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

1
2
3
 
Worksheets("Sheet1").Range("A1:D4").Copy _ 
    destination:=Worksheets("Sheet2").Range("E5")