[Excel VBA] Fermé

Question

Bonjour,

J'ai créer un classeur excel contenant environ 100 feuilles. Afin de me simplifier la tâche, j'ai créer une macro m'aidant à trouver la feuille dont j'ai besoin :

Sub cherche()
  1:
   Dim maFeuil As String
   maFeuil=Inputbox(prompt:=Nom du client ?)
   Sheet(maFeuil).select
   Range("a1").select
      If sheet(mafeuil).select=false then
      inputbox(prompt:Ce client n'est pas encore créé)
      goto 1
      End if
 End Sub

la partie en italique souligné concerne la partie au cas ou la feuille excel n'existe pas, il me dit toujours erreur 9 ... Mais je ne trouve pas la solution pour qu'il me dise que ce client ne soit pas encore créé.

J'aimerais savoir comment faire (remplacer ma partie fausse), quelle ligne de code utiliser, car je suis un novice en vba.

Merci par avance pour vos réponses
@++

François 59 · Answer

PS : Excusez moi, mais si un modo pouvais modifier mon titre, je lui en remercie par avance (titre : [ExcelVba]Problème pour des feuilles inexistantes)

Utilisateur anonyme · Answer

Bonjour,

exemple :


Sub ChercheFeuille()

    Dim maFeuil As String
    Dim Feuille As Worksheet
    Dim Flag As Boolean
     
    Flag = False
    maFeuil = InputBox("Nom du client :", "Saisie du nom du client", "Prénom Nom")
     
    For Each Feuille In Worksheets
        If (Feuille.Name = maFeuil) Then
            Sheets(maFeuil).Select
            Range("a1").Select
            Flag = True
        End If
    Next
    
    If Not (Flag) Then
        Worksheets.Add.Name = maFeuil
        Range("a1").Select
    End If

End Sub



Lupin

François · Answer

Re,

Mon problème est résolu, merci beaucoup lupin, surtout que tu as fait la seconde partie de mon TAF, c'est a dire création de la feuille excel si elle n'existe pas. Je vais modifier ce script pour avoir ce que je veux mais franchement merci beaucoup Lupin

Bon week à vous tous

@++