Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 VBA - Sélection par base de temps

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Twing83

XLDnaute Junior
Bonjour,

Voici mon petit problème du jour et que je ne sais pas du tout comment aborder.

J'ai un fichier XLS avec 3 colonnes contenant des données (Date, Num et FC) et j'aimerai dans une quatrième colonne (Résultat) mettre automatiquement un caractère (X par exemple) si la ligne répond à certaines conditions.
Mes conditions sont les suivantes :
- je renseigne dans une cellule la valeur de FC recherchée : fc
- je renseigne dans une cellule une base de temps en secondes : n
Je cherche donc à mettre un X pour chaque fc depuis la plus ancienne date à la plus récente au pas de n secondes (mes données réelles ne sont pas stricto-sensu au pas de 1s, il me faut donc récupérer la date la plus proche si lce n'est pas pile-poil n-1 + n).
En vous remerciant par avance.
 

Pièces jointes

Solution
Re,

Décidément quand ça veut pas, ça veut vraiment pas 😡. Vais faire la sieste moi ! 😴.
Une dernière version qui accepte les durées supérieures à 60 secondes.
=SI(C8<>B$2;"";SI(MOD(ARRONDI(24*60*60*(A8-INDEX(A:A;EQUIV(B$2;C:C;0)));0);$B$4)=0;"X";""))
Trier par date Trier par votes
Bonjour vgendron,

Merci pour cette proposition qui effectivement fonctionne très bien dans mon exemple de fichier, mais...(il y a toujours un mais, la vie serait tellement plus simple autrement... 😊 ).

Comme je le mentionne dans ma demande d'aide, je cherche la première valeur (la plus ancienne), et en partant de celle-ci toutes les valeurs suivantes avec le pas de temps renseigné en $B4.

Dans ta formule "=SI(ET(C8=$B$2;MOD(SECONDE(A8);$B$4)=0);"X";"")" on affecte un X à toutes les dates ayant 0 en unité des secondes, ce n'est pas exactement ce que je recherche.

Si ma date de début avait été par exemple 06/09/2021 11:55:09 l'occurence suivante que je souhaite marquer serait 06/09/2021 11:55:19 avec n =10 ou 06/09/2021 11:55:21 avec n =12.

Petite précision et non des moindres, ma base de temps (n) n'est pas limité à 60s, mes fichiers de données couvrent une période de 24H, je souhaite donc pouvoir marquer les échantillons toutes 1s à 3600s (de manière totalement libre donc...) suivant mon besoin de granularité...
 
Dernière édition:
Vote positif 0 Vote négatif
Re,
Twing83 à dit:
Si ma date de début avait été par exemple 06/09/2021 11:55:09 l'occurence suivante que je souhaite marquer serait 06/09/2021 11:55:19 avec n =10 ou 06/09/2021 11:55:21 avec n =12.
Cliquez pour agrandir...

J'ai supprimé mon précédent message car la formule était fausse, essayez ce qui suit :

On change la fonction en D8 pour celle-ci :
=SI(C8<>B$2;"";SI(MOD(SECONDE(SI(C8<>B$2;"";A8-INDEX(A:A;EQUIV(B$2;C:C;0))));B$4)=0;"X";""))

Oubliez, c'est faux aussi. Voir ci-dessous version v2.
 
Dernière édition:
Vote positif 0 Vote négatif
mapomme à dit:
Re,


J'ai supprimé mon précédent message car la formule était fausse, essayez ce qui suit :

On change la fonction en D8 pour celle-ci :
=SI(C8<>B$2;"";SI(MOD(SECONDE(SI(C8<>B$2;"";A8-INDEX(A:A;EQUIV(B$2;C:C;0))));B$4)=0;"X";""))
Cliquez pour agrandir...
@mapomme,
Effectivement c'est mieux, ça corrige ce que j'ai reporté au #4.👍
Par contre ça ne fonctionne qu'avec un pas max de 60s mais pas au-delà...
 
Vote positif 0 Vote négatif
Re,

Décidément quand ça veut pas, ça veut vraiment pas 😡. Vais faire la sieste moi ! 😴.
Une dernière version qui accepte les durées supérieures à 60 secondes.
=SI(C8<>B$2;"";SI(MOD(ARRONDI(24*60*60*(A8-INDEX(A:A;EQUIV(B$2;C:C;0)));0);$B$4)=0;"X";""))
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Vos avis SVP: Une fonction TRANSPOSE() à améliorer
16 17 18
Réponses
268
Affichages
5 K
p'tit vieux
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
2 K
olivier1984
O
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
90
AtTheOne
A
  • Résolu(e)
Autres Afficher le nombre de dates d'une colonne par rapport à une cellule
Réponses
4
Affichages
144
alain.pierrephie
A
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
1 K
jeff1494
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
724
GClaire
G
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
993
Roseline
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
511
Magis
M
C
  • Résolu(e)
XL 2016 Nombre de jours effectués par mois
Réponses
12
Affichages
1 K
CathU
C
  • Question Question
XL 2021 Accélérer la copie du classeur actif faite par vba
2 3 4
Réponses
45
Affichages
3 K
Usine à gaz
W
  • Question Question
XL 2016 Sélection de cellules suite à recherche par VBA
Réponses
4
Affichages
438
Webperegrino
W
S
  • Question Question
XL 2021 chargement de remoque par VBA
Réponses
2
Affichages
1 K
kiki29
  • Résolu(e)
Microsoft 365 [VBA] Barre de recherche dynamique - objectif : cacher les lignes hors résultat
Réponses
3
Affichages
455
Sergent_Lipton
L
  • Question Question
Microsoft 365 Macro de recherche
2
Réponses
20
Affichages
2 K
Langrand
L
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
557
lesoldat9
L
P
  • Question Question
Microsoft 365 Tableau et condition inclusive comptabilité par mois
Réponses
1
Affichages
339
merinos-BernardEtang
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
2 K
Usine à gaz
L
  • Question Question
XL 2019 Accélérer le traitement de données par rapport à une formule.
2 3
Réponses
42
Affichages
2 K
Loïc DUBOIS
L
B
  • Question Question
Microsoft 365 Automatisation fichier de compte rendu
Réponses
13
Affichages
1 K
Blf57
B
B
  • Question Question
Microsoft 365 RESOLU Trie en VBA à partir d'une base
2
Réponses
27
Affichages
1 K
Bambi35
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…