227 résultats trouvés

par Boisgontierjacques
14 septembre 2019, 21:12
Forum : Excel - VBA
Sujet : Ecriture fonction index plusieurs feuilles
Réponses : 4
Vues : 89

Re: Ecriture fonction index plusieurs feuilles

Voici 2 exemples en PJ


Boisgontier
par Boisgontierjacques
14 septembre 2019, 12:59
Forum : Excel - VBA
Sujet : Ecriture fonction index plusieurs feuilles
Réponses : 4
Vues : 89

Re: Ecriture fonction index plusieurs feuilles

Bonjour, Faire une recherche Google: equiv index 3D Exemple: =INDEX(INDIRECT("'"&INDEX(nomsfeuilles;EQUIV(VRAI;(NB.SI(INDIRECT("'"&nomsfeuilles&"'!a2:a100");$A2)>0);0))& "'!b2:b100");EQUIV($A2;INDIRECT("'"&INDEX(nomsfeuilles;EQUIV(VRAI;(NB.SI(INDIRECT("'"&nomsfeuilles&"'!a2:a100");$A2)>0);0))& "'!a2...
par Boisgontierjacques
13 septembre 2019, 13:56
Forum : Excel - VBA
Sujet : Saisie automatique liste déroulante dynamique sans ordre alphabétique
Réponses : 23
Vues : 219

Re: Saisie automatique liste déroulante dynamique sans ordre alphabétique

Bonjour,

Sur cette version, on ne peut choisir que le dernier Données/Validation d'une colonne.

Boisgontier
par Boisgontierjacques
12 septembre 2019, 22:13
Forum : Excel - VBA
Sujet : Saisie automatique liste déroulante dynamique sans ordre alphabétique
Réponses : 23
Vues : 219

Re: Saisie automatique liste déroulante dynamique sans ordre alphabétique

Je ne vois pas comment on peut obtenir une liste continue avec des éléments discontinus.


Boisgontier
par Boisgontierjacques
12 septembre 2019, 21:06
Forum : Excel - VBA
Sujet : Saisie automatique liste déroulante dynamique sans ordre alphabétique
Réponses : 23
Vues : 219

Re: Saisie automatique liste déroulante dynamique sans ordre alphabétique

Voir PJ

S'il y a une seule liste de validation(la liste n'est pas triée)

=INDEX(A:A;MIN(SI(ESTNUM(CHERCHE($E$2;champ));SI(NB.SI(C$1:C1;champ)=0;LIGNE(champ)))))

Boisgontier
par Boisgontierjacques
12 septembre 2019, 20:28
Forum : Excel - VBA
Sujet : Saisie automatique liste déroulante dynamique sans ordre alphabétique
Réponses : 23
Vues : 219

Re: Saisie automatique liste déroulante dynamique sans ordre alphabétique

J'ai l'impression que Google sheets est assez limité.

On trouve des PC portables pour moins de 1000€. Office 2019 doit couter 150€

On peut utiliser Données/Validation sur une liste non triée s'il y a une seule liste (cf pj)


Boisgontier
par Boisgontierjacques
12 septembre 2019, 19:31
Forum : Excel - VBA
Sujet : Saisie automatique liste déroulante dynamique sans ordre alphabétique
Réponses : 23
Vues : 219

Re: Saisie automatique liste déroulante dynamique sans ordre alphabétique

Bonsoir,

Solution VBA avec recherche intuitive(la liste se réduit au fur et à mesure de la frappe des premiers caractères)



Boisgontier
par Boisgontierjacques
31 août 2019, 15:04
Forum : Excel - VBA
Sujet : Recherche intuitive sur cellules fusionnées
Réponses : 5
Vues : 88

Re: Recherche intuitive sur cellules fusionnées

Bonjour, Les cellules fusionnées compliquent. Dim Choix1() Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A12:E12,A15:E15,A18:E18,A21:E21,A24:E24,A27:E27,A30:E30,A33:E33"), Target) Is Nothing And Target.Count = 5 Then Set f = Sheets("données") Set Rng = f.Range(...
par Boisgontierjacques
27 août 2019, 09:22
Forum : Excel - VBA
Sujet : Changer Dtpicker par Datepicker
Réponses : 25
Vues : 299

Re: Changer Dtpicker par Datepicker

Exemple avec ComboBox dates au lieu de calendrier.

Boisgontier
par Boisgontierjacques
27 août 2019, 07:24
Forum : Excel - VBA
Sujet : Changer Dtpicker par Datepicker
Réponses : 25
Vues : 299

Re: Changer Dtpicker par Datepicker

Bonjour, -Il y a des décimales dans les dates, d'où l'utilisation de Int() -On utilise Column lorsque la table est transposée Sub Filtre() Dim Tbl(), début, fin, i, n, NbCol, ColDate, k début = CDate(Me.TextBox1) fin = CDate(Me.TextBox2) ColDate = 1 NbCol = UBound(TblBD, 2) n = 0 For i = LBound(TblB...