Résultats de la recherche

Re : Fermer projet dans Explorateur de projet Bonsoir, En executant ceci le projet du classeur fermé reste visible dans l'explorateur: Dim x As Workbook Sub Test1() Set x = Workbooks(Workbooks.Count) Workbooks(x.Name).Close False End Sub Jusqu'a ce que j'execute ceci...

Re : macro protection avec mot de passe Bonjour, Un parametre supplementaire est necessaire: ActiveSheet.Protect Password:="mot de passe", _ DrawingObjects:=True, Contents:=True, Scenarios:=True, _ AllowSorting:=True, AllowFiltering:=True, EnableOutlining:=True Cordialement, Tirex28/

Re : CommandBar, .OnAction et paramètre Bonjour, Essaye: .OnAction = "'xls_protect ""hidden""'"G=Guillemet, A=Apostrophe G+A+NomMacro+Espace+G+G+Parametre+G+G+A+G Cordialement, Tirex28/

Re : comment utiliser le nom VBA d'un onglet renommé ? Bonsoir, Le 'nom vba' d'une feuille correspond à sa propriété CodeName MsgBox Worksheets(1).CodeName Tu peux utiliser ce nom dans tes procédures pour faire référence à l'objet: MsgBox Feuil1.Name Cordialement, Tirex28/

Re : Boite de dialogue OUVRIR Bonsoir, tu peux intercepter l'erreur, la corriger et reprendre l'execution: Public Sub Ouvrir() Dim Fichier As Variant On Error GoTo errh ChDrive "D" ChDir "D:\Docs" Fichier = Application.GetOpenFilename("Bon de commande JETI...

Re : Localiser une ligne dans un tableau virtuel (Redim) ? Bonjour, Fais une copie de ton tableau dans un autre tableau, en excluant la 1ere ligne. Fais ta recherche dans le second tableau, puis ajoute 1 au resultat. Cordialement, Tirex28/

Re : Localiser une ligne dans un tableau virtuel (Redim) ? Bonsoir, Tu peux utiliser Min sur un tableau, tu peux aussi utiliser Match: Dim x() ReDim x(1 To 5) x(1) = 5 x(2) = 2 x(3) = -1 x(4) = 7 x(5) = 3 MsgBox Application.Match(Application.Min(x), x, False) Renverra...

Re : masquer le nom de la macro dans outils macro macros... Bonjour, Tu peux utiliser OnKey pour le raccourci, et Private Module pour masquer la macro: Option Private Module Sub test() Application.OnKey "^a", "Macro1" End Sub Sub Macro1() MsgBox "Macro1" End Sub...

Re : Nom de fonction perso forcé en minuscules Bonsoir, Petite astuce, pour que vos fonctions personnalisées s'affichent dans les feuilles de calcul en respectant la casse de leur déclaration dans VBE il suffit de leur affecter une catégorie de fonctions autre que personnalisée: Sub...

Re : continuer une macro après MsgBox...... Bonsoir, Sub Edition() Dim nom As Range On Error Resume Next Do Set nom = Application.InputBox("Selectionnez un Nom en colonne A !", "Nom?", Type:=8) If nom Is Nothing Then Exit Do Else...

Re : Menu déroulant Bonsoir, Essaye plutot: Source:=Sheets(ComboBox1.Value).Range("A1:B10"), PlotBy:=xlColumns Cordialement, Tirex28/

Re : Ouverture d'un USF avant fermeture d'un fichier Bonsoir, Ah non pas la, désolé et bonne soirée. Tirex28/

Re : Menu déroulant Bonsoir, A mettre dans le code de ta feuille C, ta combobox doit contenir les noms de tes feuilles de données. Private Sub ComboBox1_Change() Me.ChartObjects("Graphique 1").Chart.SetSourceData _ Source:=Sheets(ComboBox1.Value).Range("A1:A10")...

Re : Ouverture d'un USF avant fermeture d'un fichier Bonsoir, Tu peux ajouter ceci dans le module ThisWorkbook: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim q As Long If Not Me.Saved Then q = MsgBox("Voulez vous enregistrer les modifications apportées à '" _...

Re : clic droit sur un onglet Bonjour, Application.CommandBars("Ply").Reset Cordialement, Tirex28/

Re : Splash Screen à l'ouverture en mode "En écriture" Bonjour, Tu peux vérifier le statut du classeur à l'ouverture: Private Sub Workbook_Open() If Me.ReadOnly Then 'Le classeur est en lecture seule Else 'Le classeur est en lecture/ecriture End If End...

Re : Exporter vers un modèle Bonjour, Tu peux faire un copier coller intégral: Sub RecupDonnees() Dim Source As Range, Destination As Range Dim NomFichier As String, Chemin As String Chemin = "C:\Documents and Settings\User\Mes documents\" NomFichier = Dir(Chemin &...

Re : Message D Alerte Avant Execution Macro Bonjour, If MsgBox("Ton texte", vbOKCancel + vbExclamation) = vbOK Then 'Lancer l'impression End If Cordialement, Tirex28/

Re : macro qui appelle une macro à nom variable Bonjour, Une autre solution est de passer par Run: Application.Run Range("A1").Value Cordialement, Tirex28/

Re : optimisation Macro Bonsoir, Code et explications dans le fichier joint, en esperant que ca t'aide. Bonne fetes, Tirex28/