Sujet Précédent Sujet Suivant

[Excel VBA]

François -  
 François -
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
@++

3 réponses

Réponse 1 / 3
François 59
 
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)
0
Réponse 2 / 3
Utilisateur anonyme
 
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
0
Réponse 3 / 3
François
 
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

@++
0