191 résultats trouvés

par Boisgontierjacques
Aujourd’hui, 08:33
Forum : Excel - VBA
Sujet : Utilisation de SumIfs avec des array comme plage
Réponses : 8
Vues : 83

Re: Utilisation de SumIfs avec des array comme plage

Bonjour,

On peut bâtir un fonction perso qui fait ça mais c'est plus lent que le Somme.Si().

Boisgontier
par Boisgontierjacques
Hier, 10:04
Forum : Excel - VBA
Sujet : Filtre de date VBA
Réponses : 3
Vues : 48

Re: Filtre de date VBA

Bonjour, Il faut inverser le jour et le mois ou utiliser Cdbl() Sub filtre() Sheets(1).[A1].AutoFilter field:=1, Criteria1:="<" & Format(Date, "mm/dd/yyyy") End Sub Sub tout() On Error Resume Next Sheets(1).ShowAllData End Sub Sub filtre2() dateInf = DateSerial(Year(Date), Month(Date) - 3, Day(Date)...
par Boisgontierjacques
18 juillet 2019, 14:13
Forum : Excel - VBA
Sujet : HELP : Sélection choix multiple Excel
Réponses : 5
Vues : 49

Re: HELP : Sélection choix multiple Excel

Il y avait une ligne de test que j'ai supprimé.

Boisgontier
par Boisgontierjacques
18 juillet 2019, 12:04
Forum : Excel - VBA
Sujet : HELP : Sélection choix multiple Excel
Réponses : 5
Vues : 49

Re: HELP : Sélection choix multiple Excel

Bonjour,

cf PJ

Boisgontier
par Boisgontierjacques
17 juillet 2019, 19:48
Forum : Excel - VBA
Sujet : HELP : Sélection choix multiple Excel
Réponses : 5
Vues : 49

Re: HELP : Sélection choix multiple Excel

Bonsoir,


exemple

Boisgontier
par Boisgontierjacques
10 juillet 2019, 12:32
Forum : Excel - VBA
Sujet : Code postal correspondant à une ville
Réponses : 11
Vues : 170

Re: Code postal correspondant à une ville

Bonjour,

Saisie intuitive du CP ou de la ville

Boisgontier
par Boisgontierjacques
6 juillet 2019, 15:21
Forum : Excel - VBA
Sujet : Recherche et ajouter
Réponses : 6
Vues : 69

Re: Recherche et ajouter

Bonjour,

Les 36.000 communes

Boisgontier
par Boisgontierjacques
5 juillet 2019, 17:29
Forum : Excel - VBA
Sujet : Afficher un partie d'un tableau dans une LISTBOX
Réponses : 9
Vues : 223

Re: Afficher un partie d'un tableau dans une LISTBOX

Bonjour,

cf PJ

Boisgontier
par Boisgontierjacques
4 juillet 2019, 14:49
Forum : Excel - VBA
Sujet : Optimisation du temps d'exécution
Réponses : 2
Vues : 44

Re: Optimisation du temps d'exécution

Bonjour, Sub supLignesRapide2() t = Timer() Application.ScreenUpdating = False a = Range("A2:A" & [A65000].End(xlUp).Row) For i = LBound(a) To UBound(a) If a(i, 1) <> "d" Then a(i, 1) = 0 Else a(i, 1) = "sup" Next i Columns("b:b").Insert Shift:=xlToRight [B2].Resize(UBound(a)) = a [A2].CurrentRegion...