Contenu récent par Bigfish

Re : Afficher date dans barre d'outils Bonjour à tous, Suite à la remarque de jeanpierre concernant excel2000, voici une version modifiée de mon précédent fichier. Je ne suis pas certain que cela marche n'ayant pas excel v9 sous la main. J'ai aussi ajouter la date pour repondre au...

Re : Afficher date dans barre d'outils Re, Salut JeanPierre, OK je connais le probleme, je m'en occupe des que possible. A+

Re : Afficher date dans barre d'outils Bonsoir à tous, pas impossible :D ... voir le fichier joint un clique sur l'heure arrete tout et ferme le fichier A+

Re : ralentissement sur le temps d'exécution d'une macro Salut, Voici une version sans select Sub FiltreDouble(NomClasseurSource As String, NomFeuilleSource As String, _ NomClasseurDestination As String, NomFeuilleDestination As String, NumeroLigneEnTete As Long, _...

Re : Connaître le nombre de "semaines ISO" entières ou tronquées dans un mois Bonjour à tous, aller j'y vais de ma petite contribution aussi sur ce sujet. le fichier contient en plus de la reponse à la question de Magic Doctor, une fonction qui renvois la semaine courante. A+

Re : Suppression de modules via vba re: essai d'ajouter un 'Doevents' comme suit: Sub DeleteModule(wb As Workbook, NomModule As String) Dim VBComp As Object With wb.VBProject Set VBComp = .VBComponents(NomModule) .VBComponents.Remove VBComp End With...

Re : Filtre sous condition indirecte... possible ? Salut, Sheets("PAGE01").Select ActiveSheet.Range("$A$1:$H$2141").AutoFilter Field:=5, Criteria1:=">" & Sheets("PAGE RESUME").Range("X1").value A+

Re : Suppression de modules via vba Bonjour Sly le globe trotter, Bonjour le forum, ce code devrait résoudre tes probleme: Sub StartDeleteModule() Dim MonClasseur As Workbook Application.ScreenUpdating = False On Error Resume Next Set MonClasseur =...

Re : cocher quand doubleclique sur cellule ... Salut, je vous donne ici un bout de code que j'ai deja poste il y a quelque temps sur le forum et qui permet de transformer les cellules en pseudo checkbox. 'Cree par Bigish (Philippe E) 'Le 08/06/2009 'ce code est a mettre dans le...

Re : Passer nom de feuille en paramètre fonction Salut, ceci devrait faire l'affaire: =RECHERCHEV("A";INDIRECT("'09-10-" & COLONNE()-1&"'!$B$1:$C$4");2;FAUX) A+

Re : Supprimer les points dans un numéro tel Salut, si ton numero ce trouve en A1, tu peux dans la colonne d'a coté ecrire: =substitue(A1;".";"") A+

Re : Copier classeur Salut, Salut le forum, et si la question etait copier le fichier sans l'ouvrir ? Function DialogBox(Optional Root As String, Optional DialogTitle As String = "Selection du repertoire de destination...", Optional DialogType As MsoFileDialogType =...

Re : logique de syntaxe vba Salut, Range("A1") est un objet de la colection range, un peu comme dans la realité, une boite est un objet. Une boite peu contenir d'autre chose, peu avoir differente propriété comme: sa couleur, sa forme, sa position, etre verrouilée etc. donc je reprends...

Re : Déterminer l'occurence d'une valeur texte dans une colonne Salut, une formule matriciel devrait faire l'affaire par exemple si les mot recherché sont en colonne A et que tu recherche le nombre d'occurence du mot "pomme" =somme(si(A1:A100="pomme";1;0)) une formule matriciel doit...

Re : suite de calcull =SUM(INDIRECT("A"&((ROW(A1)-1)*7)+1&":"&"A"&(ROW(A1)*7))) Voila.