Macro pour compter le nombre d'apparence d'un caractère

Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 7 déc. 2017 à 11:19 - Dernière réponse : yg_be 4130 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention
- 11 déc. 2017 à 15:45
Bonjour ,

Je souhaiterai avoir une macro qui calcule le nombre de fois qu'un mot "NT" figure chaque mois , sachant qu'il y a des cellules vides dans la colonnes des mois ,

Colonne F//Colonne G
01/2016------NT
vide-----------
vide-----------
02/2016------NT
vide-----------NT
vide-----------
02/2016------NT
vide-----------
vide-----------
03/2016------NT
vide
vide
03/2016------NT
vide-----------NT
vide-----------NT
'
'
'
J'ai essayé pas mal de formules et macros mais ça ne me calcule que les NT qui correspondent à une cellule remplie "02/2016" par exemple

Merci et Bonne journée/Soirée à tout le monde
Afficher la suite 
8Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention

9 réponses

Répondre au sujet
Whismeril 10522 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 7 déc. 2017 à 11:58
Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 7 déc. 2017 à 12:06
Merci ! je l'ai essayé , elle fonctionne bien , mais il faut à chaque fois changer de plage ... il y a plusieurs tableaux ..
Whismeril 10522 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 7 déc. 2017 à 12:22
Ha si tu ne donnes pas tous les éléments.
Là faut attendre un meilleur que moi en VBA
Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention > Whismeril 10522 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 13 décembre 2017 Dernière intervention - 7 déc. 2017 à 12:39
Merci !
yg_be 4130 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention > Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 8 déc. 2017 à 22:36
bonsoir, peux-tu donner tous les éléments?
Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 11 déc. 2017 à 10:31
Bonjour,

Il s'agit d'un tableau de 1500 lignes et je cherche à compter le nombre de fois les "NT" figure pour chaque mois, le problème c'est que dans la colonnes des mois il y a des cellules vides , mais qui correspondent aussi à des cellules où il y a le "NT"
Commenter la réponse de Whismeril
Frenchie83 1711 Messages postés lundi 6 mai 2013Date d'inscription 11 décembre 2017 Dernière intervention - 10 déc. 2017 à 09:26
+1
Utile
2
Bonjour,
Essayez ceci
http://www.cjoint.com/c/GLkizyyIuhw
J'utilise les colonnes J et K pour les résultats.
Cdlt
Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 11 déc. 2017 à 10:28
Merci beaucoup !!
j'ai testé mais on me demande de définir la variable "i"

Sub Comptage()
Dim DerLig As Long, DerLigFil As Long, L As Long
Application.ScreenUpdating = False
Columns("J:K").ClearContents 'on efface les précédents résultats

DerLig = [G100].End(xlUp).Row
'On récupère la liste des mois a l'aide d'un filtre avancé que l'on colle en colonne J
Range("F1:F" & DerLig).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
DerLigFil = [F100].End(xlUp).Row 'Dernière Ligne du filtre

'on effectue un tri ascendant pour exclure les cellules vides
Range("J2:J" & DerLigFil).Select
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("J2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("J2:J" & DerLigFil)
.Header = xlNo
.Apply
End With
DerLigFil = [F100].End(xlUp).Row 'Dernière Ligne du filtre après triage
For i = 2 To DerLigFil
mois = Cells(i, "J")
'on recherche dans la colonne F le mois à traiter
Set C = Columns("F").Find(mois, LookIn:=xlValues)
L = C.Row
Do While L <= DerLig
If Cells(L, "F") <> "" And Cells(L, "F") <> mois Then GoTo MoisSuivant 'on est sur un autre mois, donc la recherche est finie pour le mois à traiter
If Cells(L, "G") = "NT" Then Cells(i, "K") = Cells(i, "K") + 1
L = L + 1
Loop
MoisSuivant:
Next i
[K1].Select
End Sub
yg_be 4130 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 12 décembre 2017 Dernière intervention > Yasn10 8 Messages postés vendredi 24 novembre 2017Date d'inscription 11 décembre 2017 Dernière intervention - 11 déc. 2017 à 15:45
bonjour, je pense qu'il suffit d'ajouter
 ,i as long
à la fin de la ligne commençant par
Dim
Commenter la réponse de Frenchie83