Résultats de la recherche

Re : Choisir le textbox où écrire par défaut Bonjour, Cherche du coté de SETFOCUS Bonne journée

Re : Mise en forme conditionnelle Bonjour, Peut-être comme cela aussi Bonne journée

Re : Donner la valeur 1 à une date Bonjour, Peut-être cela en B1 Bonne journée

Re : supprimer #valeur et mettre un 0 Bonjour, en E5 remplacer "" par 0 en G5 remplacer la formule =E5+F5 par =SI(A5="";"";E5+F5) à copier vers le bas faire de même avec les colonne H et J Bonne journée

Re : 2 comboboc en cascade Bonjour, As tu regardé en bas de page les discussions similaires qui s'y rapportes ou bien fait une recherche sur ce site avec la petite loupe en haute à droite Sinon il y a aussi la page de JB sur les listes en cascade ou Formulaires en cascade Bonne journée

Re : Suppresion feuille active Bonjour, Essaye cela avec Message Sub supprimer() Dim Mess As String Application.DisplayAlerts = False If ActiveSheet.Name <> "modele" And ActiveSheet.Name <> "Total amort." And ActiveSheet.Name <> "Feuil2" Then Mess = MsgBox("êtes vous sur de...

Re : VBA pou archiver les valeurs d'une cellule à la fin de la journée Bonjour, Essaye ce code à placer dans un module ou à la fermeture du classeur dans le ThisWorkbook Sub EffaceFormule() Dim i As Byte, k As Byte For k = 2 To 8 Step 3 For i = 4 To 102 If Cells(k, i) =...

Re : Mise en forme conditionnelle Bonjour, Peux être avec cette Mise en Forme Bonne Journée

Re : Recherche en utilisant une liste bonjour, Avec une mise en forme conditionnelle et un bout de code Private Sub Worksheet_Change(ByVal Target As Range) Dim C as range Set C = Sheets("Feuil13").Range("B3:B1000").Find(What:=[B1]) [C].Select End Sub Bonne Journée

Re : petit probleme de formule Bonjour, il te manquais dans le gestionnaire de noms les références tarif4, tarif5, tarif6 inférieur et supérieur Bonne journée

Re : Réduction du classeur en réduisant le formulaire Bonjour, Si j'ai bien compris Pour la réduction de l'USF à l'ouverture du formulaire, il faut mettre dans le Module Thisworkbook Private Sub Workbook_Open() With Application .ScreenUpdating = False .WindowState = xlMinimized...