Résultats de la recherche

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 @+

Re : Navigation spinbutton Bonjour, Essaie ceci: Private Sub NavPremier_Click() Me.n° = Sheets("BD Fidelite").Range("A2") NavRapide = 2 End Sub @+

Re : VBA#Erreur 462 avec Excel 2007 Bonsoir Michel, Didier, vbacrumble, le forum, Merci pour votre contribution. En effet, après avoir modifié les paramètres de IE7, ça fonctionne ! @ bientôt

Re : VBA#Erreur 462 avec Excel 2007 Bonsoir vbacrumble, Merci pour ton test. Maintenant reste à savoir pourquoi ??? @+

Re : VBA#Erreur 462 avec Excel 2007 Bonsoir, Merci Michel pour ton test. Peut-être un souci avec Vista? Si quelqu'un a testé... @+

Re : VBA#Erreur 462 avec Excel 2007 Bonjour à tous, Voici le fichier en question. La macro fonctionne avec Internet Explorer 7 et Windows XP pour Excel 2000 et 2003 mais elle renvoie l'erreur 462 avec Internet Explorer 7 et Windows Vista sur le poste en Excel 2007. Un clic sur Gestion...