[RESOLU]Compter le nombre de mot...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU]Compter le nombre de mot...

deejoh

Salut à tous,

voilà mon problème :
Sous excel
J'ai une colonne d'environ 15000 lignes
Dans chaque cellule il y a soit "entré" soit "stock" j'aimerai savoir comment je peux obtenir le nombre d'"entré" sous VBA ??

Merci

Message édité par deejoh le 23-09-2005 à 10:55:38

Publicité

olivthill

Par exemple :

Public Sub compter_mots2(mot_a_compter As String)
Application.ScreenUpdating = False ' pour aller plus vite
Set ma_feuille = ThisWorkbook.Sheets("Feuil1" )
col_no = 1 ' pour la colonne A (A = 1)
lg_no = 1 ' à partir de la première ligne
compteur_mots = 0
Do While Not IsEmpty(ma_feuille.Cells(lg_no, col_no))
If (ma_feuille.Cells(lg_no, col_no).Value = mot_a_compter) Then
compteur_mots = compteur_mots + 1
End If
lg_no = lg_no + 1
Loop
MsgBox ("Il y a " & compteur_mots & " cellule(s) contenant " & mot_a_compter)
End Sub

Sub compter_mots()
Call compter_mots2("toto" )
End Sub

galopin01

bonjour,
Pour la colonne A :

Sub Test()
MsgBox Application.WorksheetFunction.CountIf(Range("A1:A15000" ), "entré" )
End Sub

---------------
roger

deejoh

Merci pour vos réponses

J'ai une autre question pour vous.
Aprés avoir obtenu le nombre d'"entrée" il me faut obtenir le nombre associé à cette "entrée" en fonction d'une spécialité...

Voici un schéma pour mieux comprendre :

A B C
Entrée/Sortie Type Montant

Entrée Entreprise 920
Stock Particulier 10002
Stock Autre 1890
Entrée Specialité 1500
Entrée Entreprise 17899

En fait je cherche à obtenir la somme des montants en fonction des entrées/sortie et du type . Par exemple la somme des montants des entrées
entreprise.

Merci

deejoh

Si ça peut vous aider les colones Types et Entrées sont Filtrées.
Je devrai pouvoir utiliser les filtres sous excel non ?

watashi

La démotivation : JAMAIS !

salut deejoh,
Je pense qu'il faudrait également que tu définisse la manière dont tu veux ressortir ces informations car les sollution sont différentes...

Soit tu veux un tableau récapitulatif qui se mette à jour , soit tu veux une interrogation ponctuelle sur un point bien précis qui apparaisse dans une msgbox, soit tu as juste besoin qu'excel sache récupérer les valeur pour un autre traitement...

Les filtres ne te donneront pas les totaux par type, par contre en base dans excel tu as les sous-totaux si tes collones sont trièes....

bon courage

deejoh

Eh bien il me faudrait plutot un tableau récapitulatif...

watashi

La démotivation : JAMAIS !

ben déjà ça change pas mal de problèmes Et ça te permet d'envisager plusieurs sollutions en fonction de la forme que tu veux obtenir.

As-tu essayer les tableaux croisés dynamiques ?
(Dans excel : menu Données\Raport de tableau croisés dynamique)
Tu obtiens comme un onglet supplémentaire avec dessus ton répaitulatif que tu organises à souhait. Tu peux lui faire addition, compter tes données. Pas besoin de programmation, juste mettre en place les champs grâce à l'assistant. Le plus simple est parfois le plus fiable.

Dis nous ce que tu en penses après avoir regardé ça.
Si tu veux ce récapitulatif sur la même page, il y a d'autres informations qu'il nous faudra pour t'aider.

Message édité par watashi le 20-09-2005 à 13:31:51

deejoh

Bon j'ai trouvé un début de solution à l'aide des filtres automatiques

Donc en vba je fais l'instruction pour filtrer Entrée\sortie en fonction de sortie et Type en fonction de Entreprise...

Mais j'ai un message d'erreur si je met les 2 filtres...

Quelqu'un peut m'aider avec les filtres et vba ???

watashi

La démotivation : JAMAIS !

Salut Deejoh

Si tu nous donne le code que tu as déjà écrit on pourra t'aider à le corriger

Publicité

deejoh

Ok voilà ce que j'ai :
je l'ai fait à l'aide de l'enregistreur de macro... (seulement 1semaine que je suis sur vba... )

Public Sub initSortieEntreprise()

Sheets("SORTIES" ).Select
Rows("2:2" ).Select
Selection.AutoFilter
Selection.AutoFilter field:=39, criterial:="SORTIES"
Selection.AutoFilter field:=35, Criteria1:="ENTREPRISES"
Range("A46:A65536" ).Select
Selection.Copy
Sheets("Temporaire" ).Select
Range("A1" ).Select
ActiveSheet.Paste
Sheets("MVTS MOIS MARCHE" ).Select
Range("C7" ) = "=SUM(Temporaire!A1:A60078)"

End Sub

Ca fonctionne trés bien si je laisse un seul paramètre de filtre mais si je met les deux ça plante ...

Message édité par deejoh le 22-09-2005 à 09:56:39

deejoh

D'aprés ce que j'ai lu sur un autre forum ça passerai avec ça :

Worksheets(13).Cells(1,2).AutoFilter Field:=1,Criteria1:="A"

mais que signifie Autofilter Field:=1 ???

watashi

La démotivation : JAMAIS !

re bonjour deejoh

pour ton code, je vois un petit problème de syntaxe la :
Selection.AutoFilter field:=39, criterial:="SORTIES"
à remplacer par

Code :

Selection.AutoFilter field:=39, criteria1:="SORTIES"

Pour éviter les soucis, rajoute ça avant de filtrer :

Code :

'Mettre en place le filtre s'il n'y en a pas
'ta ligne d'entête est bien sur la ligne 2 ? sinon modifie le 2 en fonction.
WorkSheets("SORTIES" ).Rows("2:2" ).Select
If WorkSheets("SORTIES" ).AutoFilterMode = False Then Selection.AutoFilter
'Supprime les filtrage précédents
If WorkSheets("SORTIES" )..AutoFilter.Filters(1).On Then WorkSheets("SORTIES" ).ShowAllData
Range("A2" ).Select
'Filter selon tes critères

ça devrait marcher, j'ai plus simple en tête, je te le propose après le repas.
Field : défini le numéro de la colone sur laquelle tu tri. (chez toi à priori en colone 39 tu as tes ENTREES/SORTIES)
@+ Wata

P.S.S : si ça ne marche pas dis moi sur quelle ligne ça bloque et quel est le message d'erreur

Message édité par watashi le 22-09-2005 à 12:48:12

watashi

La démotivation : JAMAIS !

re deejoh,

voilà un moyen en VBA de faire ta sommme sur les 2 conditions et de mettre le total dans ta cellule C7.

Code :

Sub Calcultotaux()
'Tes Variables
Dim i As Integer, SomVal
Dim S As Worksheet, M As Worksheet
Dim Critere1, Critere2
'Initialisation des variables
i = 2 'N° de ta ligne de titre
SomVal = 0
Critere1 = "SORTIES" 'Ton critere present en colone 39
Critere2 = "ENTREPRISES" 'Ton critere présent en colone 35
Set S = Worksheets("SORTIES" ) 'Ta feille de données
Set M = Worksheets("MVTS MOIS MARCHE" ) 'Ta feuille de récapitulatif
'Calculer ta somme et la stocker dans la variable SomVal
S.Select
Do
i = i + 1
MsgBox (Cells(i, 39).Text & vbCrLf & (Cells(i, 35).Text))
'Tes conditions "emoîtées"
If Cells(i, 39).Text = Critere1 Then
If Cells(i, 35).Text = Critere2 Then
SomVal = SomVal + Cells(i, 1).Value
End If
End If
Loop Until Cells(i + 1, 1) = ""
'Copier ton résultat dans la cellule
M.Select
Range("C7" ).Select
ActiveCell.Formula = SomVal
End Sub

Voilà donnes nous ton avis.

Message édité par watashi le 22-09-2005 à 14:44:16

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

deejoh

MErci beaucoup
Je regarde et je t'en parle au plus vite

deejoh

ça marche niquel merci beaucoup

watashi

La démotivation : JAMAIS !

Cool ! :bounce:

Edites le nom de ton post avec résolu, ça en aidera d'autres

bon courage pour la suite

Message édité par watashi le 23-09-2005 à 10:44:27

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU]Compter le nombre de mot...

Sujets relatifs
Probleme de requete et de texte en php [Résolu, euh en fait non]	[résolu] redirection vers une page autre site
(résolu) [C] interfacer SQL avec du C	[Windows NT][Résolu]Récupérer le séparateur de listes
[php]$_POST dynamique[resolu]	[résolu] recherche dans l'arboresence
[RESOLU] Problème avec XmlHttpRequest : marche pas sous IE	[RESOLU] [eclipse 3.1] export/import préférences
a:hover pas appliqué sur l'ensemble de la page[RESOLU]	affichage d'une applet [resolu]
Plus de sujets relatifs à : [RESOLU]Compter le nombre de mot...

Page générée en 0.086 secondes