Discussion :

[juju05]

Bonjour,

A partir d'une zone de saisie de date dans un formulaire, je souhaite récupérer le nom du mois et l'année et me positionner sur la feuille en question dans le classeur.

Le nom de chaque feuille est constitué du nom du mois et de l'année (exemple : Septembre 13).

Je souhaite savoir si cette feuille existe et me positionner dessus pour y renseigner des cellules.

Merci d'avance.
Julien.

[Invité]

Bonjour,

Une solution possible

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub RechercherFeuille(DateEtudiee As Date)
 
Dim MoisEtudie As String
Dim Continuer As Boolean
Dim Sh As Worksheet
 
 
    Select Case Month(DateEtudiee)
       Case 1
           MoisEtudie = "Janvier " & Mid(Year(DateEtudiee), 3, 2)
       Case 2
           MoisEtudie = "Février " & Mid(Year(DateEtudiee), 3, 2)
       Case 3
           MoisEtudie = "Mars " & Mid(Year(DateEtudiee), 3, 2)
       Case 4
          MoisEtudie = "Avril " & Mid(Year(DateEtudiee), 3, 2)
       Case 5
          MoisEtudie = "Mai " & Mid(Year(DateEtudiee), 3, 2)
       Case 6
          MoisEtudie = "Juin " & Mid(Year(DateEtudiee), 3, 2)
       Case 7
          MoisEtudie = "Juillet " & Mid(Year(DateEtudiee), 3, 2)
       Case 8
          MoisEtudie = "Août " & Mid(Year(DateEtudiee), 3, 2)
       Case 9
          MoisEtudie = "Septembre " & Mid(Year(DateEtudiee), 3, 2)
       Case 10
          MoisEtudie = "Octobre " & Mid(Year(DateEtudiee), 3, 2)
       Case 11
          MoisEtudie = "Novembre " & Mid(Year(DateEtudiee), 3, 2)
       Case 12
          MoisEtudie = "Décembre " & Mid(Year(DateEtudiee), 3, 2)
    End Select
 
    Continuer = True
 
    For Each Sh In Sheets
        Select Case Sh.Name
            Case MoisEtudie
                 Continuer = False
        End Select
    Next Sh
 
    If Continuer = False Then
        Sheets(MoisEtudie).Activate
       ' MsgBox ("Date étudiée : " & DateEtudiee & " - Mois trouvé : " & ActiveSheet.Name)
    'Else
       ' MsgBox ("Il n'existe pas de feuille pour la date étudiée !")
    End If
 
End Sub

Pour tester :

Code :

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

1
2
3
4
5
Sub TestRechercherFeuille()
 
    RechercherFeuille ActiveCell
 
End Sub

Cordialement.

[Marc-L]

Bonjour,

il y a plus simple : si le texte est une date valide (IsDate),

le formater comme un nom de feuille (Format et Application.Proper)

puis en testant si le nom existe via ma fonction ExistSheet déjà publiée sur ce site, une petite recherche et voilà !

Le tout en quatre lignes de code (hors ExistSheet) …

[lian76us]

Salut,

voici un code simple en supposant que la cellule à saisir se trouve en A1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
Dim r As Range
Set r = Range("A1")
r.NumberFormat = "mmmm yy"
On Error Resume Next
Sheets(r.Text).Activate
If Err.Number <> 0 Then
  MsgBox "Feuille """ & r.Text & """ non trouvé"
End If
End Sub

Lian