Microsoft 365 Comptage cellule avec condition

[CortoXls]

Bonjour à vous tous,
Je veux compter les cellules contenant un texte se terminant par "mn" (cellules non contiguës mais sur une même ligne)
Code en vba
For i=1 to Tbldatas ...(dernière ligne)
For col =20 to 32 step 4
If right(cells(i,col) = "mn") then
ComptActiv= ComptActiv+1
End If
Next col
Me.cells(i,38)= ComptActiv
Next i

Votre avis ?

 

[sylvanu]

Bonsoir,
Cela m'étonne que le VBA ne génère pas d'erreur sur la ligne "If", ce serait plutôt :

If right(cells(i,col),2) = "mn") then

Ensuite, Me.cells(i,38) me semble bizarre, ne serait pas plutôt simplement : cells(i,38)
Pour aller plus loin, donnez nous un petit fichier test.

 

[CortoXls]

Bonsoir,
Cela m'étonne que le VBA ne génère pas d'erreur sur la ligne "If", ce serait plutôt :

If right(cells(i,col),2) = "mn") then

Ensuite, Me.cells(i,38) me semble bizarre, ne serait pas plutôt simplement : cells(i,38)
Pour aller plus loin, donnez nous un petit fichier test.

Exact, mauvaise retranscription sur un téléphone...
C'est effectivement right(cells(i,38),2)="mn")
Je suis sur un userform avec multipage
J'essaie de me poser ce week-end et de mettre un fichier test pour vous expliquer mon soucis et prendre vos avis pour continuer