Discussion :

[Pitchoun82]

Bonjour,
Je suis debutante en VBA et j'ai un ptit probleme, alors si vous pouviez m'aider, ça serait super sympa! :-)

Alors j'ai:
- Un text box: dans lequel je met le nom de la feuille.
- Un refedit: dans lequel je peux selectionner la cellule à partir de laquelle je
vais afficher le resultat dans la nouvelle feuille.

Si je rentre un nom de feuille qui existe deja dans le classeur, je veux qu'en cliquant sur le refedit, le pop-up du refedit (qui permet de selectionner la cellule) ne s'affiche pas. Savez vous comment remediez a cela?

Voici mon code:

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
 
Private Sub Refedit_DropButtonClick()
 
If Combobox.Value = "Sur une nouvelle feuille" Then
    NF = TextBox.Value
 
    'Parcours des feuilles
    For i = 0 To Worksheets.Count - 1
        'Verifie si le nom de la feuille existait deja
        If Sheets(i + 1).Name = NF Then
         ' Cas : le nom de la feuille existe deja dans le classeur!
            MsgBox ("Ce nom de feuille existe déjà, veuillez choisir un autre nom")
        '''''''' Je veux interdire ici le pop up du refedit qui permet de selectionner 
        '''''''' la cellule
        '''''''' et remettre le focus au TextBox (pour que l'utilisateur mette un 
        '''''''' nom de feuille qui n'existe pas dans le classeur
        End If
 
     Next
 
 
    ' Cas: Le Nom de la feuille n'existait pas, donc tout est OK
    ' se placer sur la nouvelle feuille et selection de la cellule
    Worksheets.Add(after:=ActiveSheet).Name = NF
End If
 
End Sub

J'espere que j'ai ete claire, si vous avez des questions, n'hesitez pas.
Merci d'avance
:-)

[Pierre Fauconnier]

Bonjour

Ne serait-il pas plus simple de contrôler la saisie du textbox avec l'événement

Code :

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

1
2
3
4
5
6
7
 
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If FeuilleExiste(textbox1) then
        msgbox "Veuillez..."
        cancel=true
    End If
End Sub

et dans une feuille standard, tu crées une fonction perso qui teste si la feuille existe

Code :

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

1
2
3
4
 
Function FeuilleExiste(NomFeuille as string) as boolean)
    ...
End Function

[Pitchoun82]

Merci beaucoup! Ca marche!