Discussion :

[LIDOUA]

Bonjour

Nous galérons en VBA sur notre projet

Nous avons une message box qui demande le mois

Et une feuille qui va se créer avec le nom "CDI " & Z
Z étant la valeur de la message box

Nous aimerions savoir si la feuille "CDI" & Z a été créé si
C'est le cas alors commencer à saisir
Sinon demander un autre mois

Vos réponses les plus rapides nous permettrons de retrouver la sérénité..

Mille merci d'avance

[keygen08]

Bonjour

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
Private Sub CommandButton1_Click()
Dim mois As String
On Error GoTo ressaisi
 
'definition de la variable mois
mois = TextBox1
'activer la feuille si elle existe
ActiveWorkbook.Sheets("CDI " & mois).Select
'et fin
Exit Sub
 
'si la feuille n'existe pas, on le precise à l'utilisateur
ressaisi:
MsgBox "Cette feuille n'existe pas"
'on vide le textbox pour une nouvelle saisi
TextBox1 = ""
End Sub

Par exemple

[Marc-L]

Bonjour,

sujet déjà traité plusieurs fois, sérénité retrouvée en effectuant une recherche dans ce forum

sur la fonction ExistSheet par exemple …