Contenu récent par Slade47

Bonjour à tous, Ci-joint le fichier de JBARBE modifié. Il ne prenait pas en compte les défaites. Bonne journée.

Re : proteger un code VBA par mot de passe Bonsoir nrdz83, xstier, le forum, Si c'est un bouton sur la feuille, il suffit de proteger la feuille. Bonne soirée. Alain

Re : Userform : Textbox(s) vers cellules feuil1 Bonjour Fred94000, le Forum, Il suffit de mettre TextBox1.value Private Sub CommandButton1_Click() Dim L As Integer L = Range("b65536").End(xlUp).Row + 1 With WS Range("B" & L) = TextBox1.Value ' Idem Range("C" & L)...

Re : macro à réparer - svp Bonsoir Sasha, le forum, J'ai modifié le code VBA. J'ai mis les colonnes D, H et J au format date. Ci-joint le lien du fichier modifié. Bonne soirée. http://cjoint.com/?ezlfienly7 Alain

Re : Insertion Date du jour au double click dans cellule Bonjour Loulou, le Forum, Essayes ce petit bout de code : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Target.Value = Date End Sub Bonne journée, Alain

Re : Pb de formule ou méthode Bonjour Oasis, le Forum, Un élément de réponse avec des SI dans le fichier joint. A+ Alain

Re : formule simplifiée ? Re-bonsoir, J'avais mal lu la question, j'avais pas vu le % Mettre dans la cellule V1 -> =NB.SI(U2:U108;"ok")/NB.SI(U2:U108;"<>""") et mettre la cellule dans le format % A+ Alain

Re : formule simplifiée ? Bonsoir, Mettre en V1 par exemple -> =NB.SI(U2:U108;"ok") A+ Alain

Re : fonction somme Bonjour, On peut faire avec somme.si : =somme.si(A1:A10;"<>#N/A";A1:A10) Bonne journée. Alain

Re : Formule n° de semaine + date Bonjour, Il existe aussi la formule : =NO.SEMAINE(AUJOURDHUI()) Bonne journée Alain

Re : Feuille d'heures pour personnel à horaires variables Bonsoir Gaston, Dans les colones I et J, il faut mettre le format des heures [h]:mm C'est pour avoir des heures au-delà de 24h. Alain

Re : Onglet controle Bonjour, Apparemment, tu n'as pas mis le bon contrôle sur ta feuille, il faut mettre un contrôle formulaire et non un contrôle ActiveX. Et tu devrais avoir accès à l'onglet 'Contrôle'. Bonne journée. Alain

Re : erreur '438' en utilisant un tableau croisé dynamique Re-bonjour, Il faut insérer une ligne, celle qui est en rouge dans ton code. ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _ "données!R1C1:R301C12").CreatePivotTable TableDestination:= _ "'[charge SO...

Re : Projet d'incrémentation automatique de fichier Excel Bonjour, Le mieux c'est de copier ta feuille dans un nouveau classeur et de l'enregistrer. Tu insères du code pour faire ça. Le code ne va pas être copié. Alain

Re : erreur '438' en utilisant un tableau croisé dynamique Bonjour, Il y a 2 fois de suite ActiveSheet.PivotTables au début de la ligne. ActiveSheet.PivotTablesActiveSheet.PivotTables(""" & Nom_tcd & """).PivotFields("ID"). _ Subtotals = Array(False, False, False, False, False, False...