recherche

[nono555]

Bonjour,
quand j'ouvre mon classeur, j'aimerais avoir une macro qui cherche si une feuille du classeur du nom de "tretre" existe ou non.

Je voudrais également savoir si on peut désactiver sur un useform la croix rouge qui permet de fermer ce useform .

Merci d'avance.

 

[Hervé]

Re : recherche

bonjour

exemple de code à placer dans le module thisworkbook :

Private Sub Workbook_Open()
'tretre
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name = "tretre" Then
        MsgBox "tretre existe"
        Exit Sub
    End If
Next ws

If MsgBox("tretre n'existe pas, voulez vous créer la feuille ?", vbYesNo, "Attention") = vbYes Then
    With Sheets.Add
        .Move after:=Sheets(Sheets.Count)
        .Name = "tretre"
    End With
End If
End Sub

je reviens pour l'userform.

salut

 

[Hervé]

Re : recherche

re

il existe je crois, une méthode pour faire disparaitre la croix de fermeture.

je ne suis pas partisan de cette méthode compliquée; il me semble plus simple de gérer l'appui sur cette croix en interdisant la fermeture de l'userform lors de l'appui.

c'est ce que fait ce code :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

salut

 

[Hervé]

Re : recherche

re

Penses à ajouter un bouton pour la fermeture.

autre syntaxe possible :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = Not CBool(CloseMode)
End Sub

salut

 

[myDearFriend!]

Re : recherche

Bonsoir nono555, Hervé 😉, le Forum,

Je me permets d'en placer encore une autre...

[SIZE=2][COLOR=blue]Private Sub[/COLOR] UserForm_QueryClose(Cancel [COLOR=blue]As Integer[/COLOR], CloseMode [COLOR=blue]As Integer[/COLOR])
      Cancel = CloseMode = 0
[COLOR=blue]End Sub[/COLOR][/SIZE]

Cordialement,

 

[Hervé]

Re : recherche

re nono, salut didier 🙂

une derniere pour la route ?

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode - 1
End Sub

salut

PS : 😀😀😀