Discussion :

[calimero91]

bonjour a tous,

j'aurais voulu savoir si il etait possible de compter le nombre de ligne en fonction de ce que contient une cellule de la ligne voir plusieur cellule de la ligne.pour le moment je fait un comptage de ligne en fonction des selection effectuer dans les filtre, mais j'aimerais que ce comptage soit automatique en fonction de ce que contiennet certaines cellules, pour pouvoir remplir un autre tableaux.

merci d'avance.

biensur si cela est possible auriez vous de sexemple a me presenter ou une piste sur laquelle me lancer?

[SfJ5Rpw8]

pas trés clair ... mais cela ressemble à l'utilisation de la fonction NB.SI sous ecel ?

[calimero91]

a peu pres oui
j'ai un tableau de 26 colonne et 250 ligne.
je veux compter le nombre de ligne comportant une chaine de caractere "text" dans les colonne A,J,K,L,M.

j'espere que c plus clair comme ça.

[calimero91]

personne ne veut m'aider?

[Megaxel]

Tu n'as qu'à faire une boucle, et compter.
Un truc dans ce genre (j'avoue, je ne l'ai pas testé...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub CompteText()
    Dim Compteur As Integer
    Dim Ok As Boolean
    Dim i As Integer
 
    Compteur = 0
    For i = 1 To 256
        Ok = False
        If InStr("Text", Range("A" & i).Value) > 0 Then Ok = True
        If InStr("Text", Range("J" & i).Value) > 0 Then Ok = True
        If InStr("Text", Range("K" & i).Value) > 0 Then Ok = True
        If InStr("Text", Range("L" & i).Value) > 0 Then Ok = True
        If InStr("Text", Range("M" & i).Value) > 0 Then Ok = True
        If Ok = True Then Compteur = Compteur + 1
 
    Next i
 
    MsgBox (Compteur)
 
End Sub

Ça peut facilement s'optimiser, mais il faut bien que tu aies un peu de boulot quand même...

[calimero91]

c sur je te remercie.
c en cherchant qu'on apprend.enfin c comme ça que je fait car il y'a encore un an VB ete inconnu pour moi et tout ce que ej sais je l'ai appris seul.
mais VB avec excel est assez galere enfin je trouve.alors qu'avec VISIO c clair comme de l'eau.
mais merci bcp quand meme.

[calimero91]

bonjour a tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub Command4_Click()
 
Dim Compteur As Integer
Dim Ok1, Ok2, Ok3 As Boolean
Dim n As Integer
 
Compteur = 0
For n = 0 To 500
        Ok = False
        If InStr("DIAG", Range("H" & n).Value) > 0 Then Ok1 = True
        If InStr("EC", Range("K" & n).Value) > 0 Then Ok2 = True
        If InStr("56", Range("S" & n).Value) > 0 Then Ok3 = True
        If Ok1 = True And Ok2 = True And Ok3 = True Then Compteur = Compteur + 1
Next n
 
MsgBox (Compteur)
 
End Sub

j'ai utitliser la code suivant qui est le meme que celui quer tu m'a donner mais le probleme et qu'il me sort une erreur :
la methode range de l'objet global a echouer(erreur 1004).
je ne compren pas pourquoi.
j'ai essayer plusieur variante mais je ne voit pas quoi faire.

[SfJ5Rpw8]

.. déja H0 ça n'existe pas comme cellule ... revoi ta boucle for ..

[calimero91]

merci bbil pour cette info.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub Command4_Click()
 
Dim Compteur As Integer
Dim Ok1, Ok2, Ok3 As Boolean
Dim n As Integer
 
Compteur = 0
For n = 2 To 500
        Ok = False
        If InStr("DIAG", Range("H" & n).Value) > 0 Then Ok1 = True
        If InStr("EC", Range("K" & n).Value) > 0 Then Ok2 = True
        If InStr("56", Range("S" & n).Value) > 0 Then Ok3 = True
        If Ok1 = True & Ok2 = True & Ok3 = True Then Compteur = Compteur + 1
Next n
 
MsgBox (Compteur)
 
End Sub

est ce que comme ça ça parait mieux?
car il ne me donne pas le resultat que j'attend.je doit obtenir 2 et il me donne 0.je suis desoler d'etre si mauvais.

[leroissejp]

Bonjour,
Si celà peut t'aider, ce code compte le nombre de cellule contenant le chiffre 25 de A2 à A 500.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
Dim CompterCellules As Integer
  Dim iCell
  Application.ScreenUpdating = False
  For Each iCell In Range("A2:A500")
    If iCell.Value = 25 Then
    'iCell.Name
    CompterCellules = CompterCellules + 1
    End If
  Next iCell
  MsgBox CompterCellules
 
End Sub

jpleroisse

[calimero91]

merci bcp a tous
j'avais juste fais une petite erreur dans le code