[Résolu] Ne pas comptabiliser les cellules qui contiennent le mot (suite)

[Lone-wolf]

Bonjour le Forum,

Dans le formulaire j'ai introduit ce code:

Private Sub UserForm_Initialize()
Dim Cpt
Sheets("Data").Activate
Cpt = Application.CountA(Range("A2:A65536")) - 7 'ici le nombre de cellules contenant le mot (suite)
NbCells.Caption = "*** " & Cpt & " Codes VBA Excel ***"
End Sub

Or, je cherche à ne pas comptabiliser les cellules qui contiennet le mot (suite) sans que
à chaque fois je modifie le nombre -7, -8, -9 etc.

Merci d'avance.



A+ 😎

 

[Compte Supprimé 979]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Bonjour Assassin 😉

Normalement avec ce code

Cpt = Application.CountA(Range("A2:A65536")) - Application.CountIf(Range("A2:A65536"), "*suite*")

A+

 

[Lone-wolf]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Bonjour Bruno,

ah ah ah!!! 😀 MDR.

Désolé Bruno, mais ça me comptabilise toutes les macros.


A+ 😎

 

[Compte Supprimé 979]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Re,

Heuuu si c'est ta colonne A qui contient le mot "suite"
Je ne comprends pas chez moi ça fonctionne !?

a+

 

[Lone-wolf]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Re Bruno,

ce n'est pas suite tout court, mais suite entre paranthèses (suite).

Ex.: Ajouter un Menu avec Sous-Menus (suite)

Peut-être comme ceci:

Cpt = Application.CountA(Range("A2:A65536")) - Application.CountIf(Range("A2:A65536"), "Chr(40)& suite &Chr(41)")

A+ 😎

 

[Compte Supprimé 979]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Re,

Désolé, je comprends mieux ... il suffit de mettre suite entre *
J'ai modifié le code de mon premier post

A+

 

[Lone-wolf]

Re : Ne pas comptabiliser les cellules qui contiennent le mot (suite)

Pas de bol moi, ça m'inscrit FAUX à la place. 🙁

Je retire ce que je viens de dire, je n'avais pas vu que j'avais 2 fois =Count.


Merci beaucoup Bruno.



Good Week 😎