Contenu récent par SergiO

Re : Comment compter le nombre de fois q'une fonction alea est executeé Bonjour Hasco, bonjour à tous, Evidemment, tu as tout à fait raison =B2+1 suffit, j'étais parti sur une autre piste et j'ai oublié de simplifié la formule. Bonne journée

Re : Pointage des heures Bonjour cora, Un exemple [A1] = Format(Now, "HH:mm") @+

Re : Comment compter le nombre de fois q'une fonction alea est executeé Bonjour à tous, Une idée! A suivre...

Re : Fonction MOD dans VBA Bonjour Mat, Ca existe en VBA, ex : A = 19 Mod 3 A = 1 @+

Re : Sommeprod ou autre ??? Bonjour natorp,le forum, Une solution : En B20 : =SOMMEPROD((D$3:D$97=A20)*(E$3:E$97)*(F$3:F$97=0))+SOMMEPROD((D$3:D$97=A20)*(F$3:F$97)) @+

Re : Variable publique qui "n'est pas définie" Bonjour, Public GarantieBancaire As Boolean doit être dans un Module! @+

Re : macro pour insérer espaces Bonjour, Un code à tester: Sub Espace() DerLig = Range("A65536").End(xlUp).Row For L = DerLig To 3 Step -1 DateL = CDate(Cells(L, 1).Value) 'Date Ligne en cours DateP = CDate(Cells(L - 1, 1).Value) 'Date Ligne précédente Diff = DateL - DateP If Diff <> 1 Then...

Re : addition de données selon deux critéres Bonjour Hugues, PierreJean, le Forum, Ci-joint un essai par SOMMEPROD. @+

Re : Format de cellule Bonjour Dom77, le Forum Une solution par SOMMEPROD. @+

Re : extraire le nombre de valeurs > 12 Bonjour Rouxpoil, Tes cellules en A1:A10, la formule : =NB.SI(A1:A10;">"&12) @+

Re : Supprimer lignes paire et vider lignes paires Bonjour LPandre, Voici 2 codes à tester: Sub Efface_Paire() DL = Range("A65536").End(xlUp).Row X = DL Mod 2 If X = 1 Then DL = DL - 1 For L = DL To 1 Step -2 Cells(L, 1).EntireRow.ClearContents Next L End SubSub Supprime_Paire() DL =...

Re : Copier ligne sur une autre feuille avec condition Re, Essaie ce fichier @+

Re : Copier ligne sur une autre feuille avec condition Re, Rajoute un espace à VF2, VF3 et SL20 dans le nom des onglets et essaie ce code: Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Application.ScreenUpdating = False Machine = ActiveSheet.Name If Machine = "VF 2" Or Machine = "VF...

Re : Copier ligne sur une autre feuille avec condition Bonjour Hinen et bienvenue sur XLD, Voici un exemple, la macro se déclenche au changement d'onglets. Le code est dans ThisWorkbook Bon test. @+

Re : Navigation spinbutton Bonjour Roland, Bruno, ligne à rajouter en fin de code TextBox1 = Range("B" & NumSel + 1).Value @+