Bonjour à tous,

 

On aimerai bien savoir quel est l'intérêt de ce code (un filtrage sur trois colonnes selon un terme recherché qui se termine par la commande "ActiveSheet.ShowAllData" qui réaffiche le tout)...

L'erreur est due (du moins je crois) à l'absence du terme recherché dans la colonne précédente (colonne B) après filtrage de cette colonne... Tu pourras faire un petit essai en éliminant le terme recherché dans la première colonne et exécuter le code, l'erreur sera dans le filtrage de la colonne B...
N'y a-t-il pas erreur dans les lignes du code suivantes:

ActiveSheet.Range("A:A").AutoFilter Field:=2, Criteria1:=StrRecherche

ActiveSheet.Range("A:A").AutoFilter Field:=3, Criteria1:=StrRecherche

Filtre sur colonne A selon les champs 2 et 3  ???

 

De préférence joindre le fichier concerné pour faire nos essais...

 

Cordialement

Bonjour à tous,

 

Pour une première solution, on ajoute la ligne suivante au début du code de la fonction personnalisée  "NbColor":

Application.Volatile

et on ajoute le code suivant au "code" de la feuille où la fonction "NbColor" est appliquée:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

Cordialement

Bonjour à tous,

 

Le problème est peut-être dans le format de la cellule contenant la date et l'heure, le même résultat  obtenu en utilisant le format suivant: jj/mm/aaaa"  " hh:mm;@

Changer peut-être le format en : jj/mm/aaaa hh:mm;@

 

Cordialement

Bonjour à tous,

 

Une formule matricielle en C2 (Validée par Ctrl+Maj+Entrée) puis à recopier vers le bas:

=$A2&INDEX($B:$B;MAX(($A$1:$A2="Total")*LIGNE($1:2)))

 

Cordialement

Bonjour à tous,

 

La formule suivante ne prend pas en compte la succession des nombres dans la colonne A (pas de vides dans la liste), à saisir en B1 et copier vers le bas :

=SI(LIGNE()>95*EQUIV(MAX(A:A);A:A;0);"";INDIRECT("A"&ENT(LIGNE()/96)+1))

ou tout simplement :

=INDIRECT("A"&ENT(LIGNE()/96)+1)

mais avec des zéros en dernier en dépassant la répétition du dernier nombre de la colonne A...

 

Cordialement

Bonjour à tous,

Une petite rectification du code "copier" dans la pièce jointe...

Cordialement

Bonjour à tous,

Une réponse avec la fonction NB.SI dans le fichier attaché...

Cordialement

Bonjour à tous,

Pour cela suivre les étapes suivantes:
1- Ouvrir "Options excel"
2- Choisir "Options Avancées"
3- Dans "Option d'édition" décocher l'option "Décimale fixe"
4- Enregistrer les transformations

Voir ces étapes en téléchargeant le fichier .exe sur le lien suivant:

www.mediafire.com/file/qc6cwriwa6fub9x/1234.zip

Cordialement