Résultats de la recherche

Re : Encore les codes couleur Bonjour, Application.Volatile ChampActif = Sheets(Application.Caller.Parent.Name).AutoFilter.Filters.Item(c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1).On End Function Function ChampActif(c) Pour appliquer...

Re : Temps d'utilisation d'un fichier Bonsoir, Voi PJ Bisson

Re : formule sommeprod en VBA ou x = Evaluate("SumProduct(--(Acti = ""Foot""))") Bisson

Re : formule sommeprod en VBA Bonsoir, x = [SumProduct((Acti="Foot")*1)] Bisson

Re : Liste deroulante et accès direct à une feuille Bonsoir, Sub Auto_open() On Error Resume Next Set Barre = CommandBars.Add Barre.Name = "ChoixFeuille" Barre.Visible = True Set Menu = Barre.Controls.Add(msoControlComboBox) For s = 1 To Sheets.Count...

Re : Totaux De Lignes Selon Mise En Forme Bonjour, Dans un module: Function SommeCouleurFond(champ As Range, couleurFond) Application.Volatile Dim c, temp temp = 0 For Each c In champ If c.Interior.ColorIndex = couleurFond Then If IsNumeric(c.Value) Then...

Re : [macros] suppression doublon et comparaison Sub SupRapide3Criteres() t = Timer() Application.ScreenUpdating = False [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, _ Key2:=Range("B2"), Order2:=xlAscending, _ Key3:=Range("C2"), Order3:=xlAscending, _...

Re : Lien vers page précédente Crée un hyperLien sur la première page de la dernière page visitée: Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) Sheets(1).Hyperlinks.Add Anchor:=Sheets(1).[G1], Address:="", _ SubAddress:="'" & Sh.Name & "'" & "!A1", TextToDisplay:="Retour:" &...

Re : [macros] suppression doublon et comparaison Bonjour, -Une formule =SI(A2=A1;1;0) permet de marquer les doublons avec 1 -On tri (tous les 1 sont à la fin) -On remplace les 1 par vide -On sélectionne tous les vides -On supprime la sélection La suppression est très rapide parce que...

Re : Lien vers page précédente Bonjour, Créer ces fonctions dans un module: Function ClasseurActuel() ClasseurActuel = ThisWorkbook.Name End Function Function ongletSuivant() ongletSuivant = Sheets(Sheets(Application.Caller.Parent.Name).Index + 1).Name End Function Function...

Re : Classer des cellules automatiquement Bonjour, -Sélectionner les cellules =PETITE.VALEUR(Champ;LIGNE(INDIRECT("1:"&LIGNES(champ)))) -Valider avec Maj+Ctrl+Entrée S'il y a des vides: -Sélectionner les cellules...

Re : [macros] suppression doublon et comparaison Bonjour, Suppression de doublons rapide (1sec pour 10.000 lignes et 80% suppression): Sub SupRapide1CritereColonneA() t = Timer() Application.ScreenUpdating = False [A1].Sort Key1:=Range("A2"), Order1:=xlAscending, _...

Re : Problème de Tableau croisé dynamique avec données filtrées, en VBA. Bonjour, Il faut : -Créer un tableau intermédiaire (onglet TCD) -Nom de champ dynamique : BDExtraction:=DECALER(BDExtrait!$A$1;;;NBVAL(BDExtrait!$A:$A);7) -Spécifier le nom de champ dynamque dans le TCD. Sub...

Re : Vérouiller une plage de cellule à l'aide d'une macro par mot de passe Bonsoir, -Outils/Protection/Permettre aux utilisateurs -Outils/protéger la feuille Bisson

Re : Jours entre 2 périodes de dates Bonjour, =(D3-C3)+F3-E3+NBVAL(C3:F3)/2 JB

Re : supprimer doublons sur 40000 lignes S'il y a des doublons à l'intérieur de cacule des listes: Sub Communs() Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In Range([A1], [A65000].End(xlUp)) If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value...

Re : supprimer doublons sur 40000 lignes Bonjour, 0,6s pour 2x10.000 éléments: Sub Communs() Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In Range([A1], [A65000].End(xlUp)) If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value Next c Set...

Re : Problème recherchev Bonjour, La table n'a pas besoin d'être triée: =RECHERCHEV(TEXTE(A2;"0000000");$D$2:$E$35801;2;FAUX) ou =SI(ESTNA(RECHERCHEV(TEXTE(A2;"0000000");$D$2:$E$35801;2;FAUX));"inconnu";RECHERCHEV(TEXTE(A2;"0000000");$D$2:$E$35801;2;FAUX)) Bisson

Re : Chronomètre.... Bonjour, Public ProchainChrono, Départ Sub Demarre() Départ = Timer() majChrono End Sub Sub majChrono() Sheets("Chrono").[A1] = Format((Timer() - Départ) / 3600 / 24, "hh:mm:ss") ProchainChrono = Now + TimeValue("00:00:1") Application.OnTime...

Re : Suivi de sicav Bonsoir, Voir PJ Bisson