Contenu récent par Vinc

Re : Contrôles ActiveX - Boutons et BackColor J'ai modifié la fonction comme ci-dessous : Function Couleur(CouleurOri As String) If CouleurOri = 8454143 Then 'Jaune Couleur = 16711680 Exit Function ElseIf CouleurOri = 16711680 Then 'Bleu Couleur = 255 Exit Function ElseIf...

Bonjour, je suis en train de faire un formulaire sous Word 2007 avec des boutons activeX. J'ai plusieurs bouton avec la même fonction à savoir : (Couleur d'origine des boutons : Jaune) -Je clique 1 fois dessus il change son BackColor en Bleu -Je clique une deuxième fois dessus il...

Re : Afficher la date sur un Clic Bonjour, avec un double clic : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(ActiveCell, Range("C4:C25")) Is Nothing Then If ActiveCell.Offset(0, -1).Value Like "" Then Exit Sub MsgBox...

Re : Regrouper plusieurs Sub en VBA Il faut déjà savoir si le code a déjà fonctionné ou jamais fonctionné... Et surtout structurer ce que l'on veut faire exactement...

Re : Regrouper plusieurs Sub en VBA Bonjour, essai ceci : Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("G30")) Is Nothing Then If Range("G30") = "Exaprint" Then Rows("50:160").EntireRow.Hidden = True Rows("33:49").EntireRow.Hidden =...

Re : macro mot de passe Bonjour matt31, Pour protéger la feuille en incluant des autorisations que tu as cité : Worksheets(1).Protect Password:="MotDePasse", DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFiltering:=True

Re : Sauvegarder la feuille en html via VBA J'ai trouvé la solution, la méthode 'Publish' de l'objet 'PublishObject' fonctionne si au préalable on lui indique une plage de sélection avant l'exécution de la macro !... Par conséquent, avant l'exécution de la macro j'ai donc écrit le code...

Re : tester un textbox pour afficher un message si doublon Bonjour ngexcel, pour ouvrir une UserForm sans afficher le classeur : -Place le code ci-dessous dans "ThisWorkbook" Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

Re : Sauvegarder une copie d'un classeur avec SaveAs Bonjour Banosjo, J'utilise Excel 2007 et la fonction SaveCopyAs... ActiveWorkbook.SaveCopyAs (ThisWorkbook.Path & "\BDD_Planning\MARDI\BackUp_Planning.xlsm")

Re : Code Postal Bonjour apdf1, Sheets("feuil1").Range("B4").Value = Me.listbox1.Value Sheets("feuil1").Range("B5").Value = Me.listbox2.Value

Re : Afficher ou masquer un bouton Valider dans un USF Bonjour, essai ceci : If Me.CBDétergent.value = "" Then CmbValider.Visible = False else CmbValider.Visible = true End If

Re : mote de passer perdu Arff, pour une feuille je pouvais te venir en aide car j'ai eu ce cas, seulement, pour l'accès au code VB cela ne m'ai jamais arrivé ou plutôt si mais j'ai réussi à trouvé le code en tapant tous les mots de passe que j'ai l’habitude d'utiliser... Heureusement pour toi...

Re : mote de passer perdu Bonjour nkea.sat, tu souhaites enlever le mot de passe de la feuille ou de l'accès au code Visual Basic ?... Ensuite, je souhaites solliciter l'administrateur du forum car je ne sais pas si l'on peut partager ce genre de code ici ?... Car je sais qu'on passe beaucoup...

Re : feuille d'ouverture en plein écran Bonjour ufernet, essai ça : Application.DisplayFullScreen = True

Re : Roue de la fortune -Bonjour David WLD, bon et bien voilà ! Je dois me déconnecter du forum direction chez la belle mère !... On dit merci qui maintenant :confused:... -Pff, je détestes cette application et pourtant je n'arrête pas lancer cette roue... :rolleyes: -Ne tombant jamais...