Résultats de la recherche

Bonjour, Y-a-t’il moyen de centrer la fenêtre du "MsgBox" sur la page Excel qui est ouverte et non pas sur le centre de l'écran ? 🤔 voici mon code au cas où : Private Sub CommandButton5_Click() Dim reponse As Integer reponse = MsgBox(" Verrouiller les Prix Unitaires ?", vbQuestion +...

Bonjour, Je voudrais verrouiller les cellules que si elles sont vides... La macro verrouille bien les cellules vides mais déverrouille également les cellules non vides et verrouillées... voir pièce jointe. quelqu’un peut m'aider ? Sub Verrouille() Dim Cel As Range Dim Plage As Range Dim Mg...

bonjour, j'ai créé deux commandes "CommandButton"... une pour déverrouiller certaines cellules et l'autre pour reprotéger la feuille. je voudrais savoir s'il était possible d'exécuter également "Private Sub Proteger_Click()" à la fermeture du fichier au cas, on oublierait de le faire ...

Bonjour, Quelqu'un pourrait me créer un VBA pour juste pouvoir changer la couleur de police & changer la couleur de remplissage sur une feuille protégée. merci ;) Benoît

Bonjour, je voudrais voir si il est possible de faire un calcul en fonction de l'attribut de la police ? voir exemple :-) merci d'avance, Benoît

Bonjour, je voudrais mettre le nom du fichier dans une cellule... mais sans l'extension. Possible ? voici mon code : Function NomFichier() As String NomFichier = ThisWorkbook.Name End Function merci d'avance, Ben

bonjour, je n'arrive pas à afficher/masquer lignes avec case d'option (contrôle de formulaire)... voici mon code : Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("G2")) Is Nothing Then Select Case Target.Value Case Is = 1...

Bonjour, J'ai mis une protection automatique sur deux feuilles : Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Feuil1").Protect Password:="1234" Sheets("Feuil3").Protect Password:="1234" End Sub comment est-ce que je peux faire pour ne pas avoir deux fois le message à...

bonjour, je voudrais masquer le mot de passe "1234" à l'écriture du genre avec des "gros points" ou des "étoiles"... possible ? voici mon code : Private Sub Worksheet_Activate() MDP = InputBox("Tapez le Mot de Passe autorisant l'accès en lecture & écriture.", "Mot de Passe ?", "") If MDP <>...

bonjour, voici mon code : Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Feuil1").Protect "1234", UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True End Sub...

Bonjour, Quelqu'un peut m'aider pour : 1) vba pour grouper des colonnes automatiquement à la fermeture du fichier 2) mot de passe pour dégrouper les colonnes qui on été fermées automatiquement à la fermeture du fichier Merci pour votre aide :) Ben

Bonjour, je voudrais copier toutes les cellules déverrouillées non contiguës d’une feuille de calcul avec un bouton et coller les valeurs des cellules vers une autre feuille de calcul (autre fichier), MAIS à la même place ! Avec : Ctrl V Quelqu’un peut m’aider ? Merci d’avance pour votre aide...