Les Trucs & Astuces Informatiques de Michel

http://michel.vergriete.perso.sfr.fr/accueil.htm
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Compter des éléments différents d'une colonne et copier

Aller en bas 
AuteurMessage
Jack



Nombre de messages : 2
Date d'inscription : 26/07/2008

MessageSujet: Compter des éléments différents d'une colonne et copier   Sam 26 Juil - 6:21

Tout nouveau en VBA je me doute qu’il faut faire une boucle mais j’ai du mal à débuter
Compter des éléments différents en faisant une boucle sur une colonne et ignorer les vides.

Mon problème c’est de pouvoir compter des différents éléments de la colonne H.
Compter le nombre de «A » ; « B » ou « C » dans ma colonne H.

Colonne H
A
A
B
C
C

Et pouvoir écrire le nombre trouvé de A ; B et C dans une autre feuille de synthèse.

Nombre de A= Nombre de B= Nombre de C=

Merci Jack
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
eric



Nombre de messages : 154
Date d'inscription : 17/07/2006

MessageSujet: Re: Compter des éléments différents d'une colonne et copier   Dim 27 Juil - 13:13

Sub Macro1()
On Error Resume Next
Dim nbB As Integer
Dim nbC As Integer
nbA = 0
nbB = 0
nbC = 0

Range("H1:H10").Select

For Each cell In Selection
If cell.Value = "A" Then
nbA = nbA + 1
Else
If cell.Value = "B" Then
nbB = nbB + 1

Else
If cell.Value = "C" Then
nbC = nbC + 1
End If

End If
End If
Next cell

Sheets("Recap").Select
Range("D1").Select

ActiveCell.Value = nbA
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = nbB
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = nbC


End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack



Nombre de messages : 2
Date d'inscription : 26/07/2008

MessageSujet: Re: Compter des éléments différents d'une colonne et copier   Lun 28 Juil - 7:55

Bonjour et merci de m'avoir répondu J’ai essayé ton code ça coince. Bon il manquait une déclaration de variable (Dim nbA As Integer) ce n’est pas bien grave mais quand je compile le projet il me dit que la variable cell n’est pas définit
De plus faut il trois end if à la fin ?
J’ai trouvé ce petit bout de programme qui marche certes sans boucle mais il marche

Sub Compte()
Sheets("Feuil2").Activate
Range("A1").Formula = "nb de « A »"
Range("B1").Formula = "=COUNTIF(Feuil1!C[6],""A"")"
Range("A2").Formula = "nb de « B »"
Range("B2").Formula = "=COUNTIF(Feuil1!C[6],""B"")"
Range("A3").Formula = "nb de « C »"
Range("B3").Formula = "=COUNTIF(Feuil1!C[6],""C"")"
Range("C1").Select
End Sub

eric a écrit:
Sub Macro1()
On Error Resume Next
Dim nbB As Integer
Dim nbC As Integer
nbA = 0
nbB = 0
nbC = 0

Range("H1:H10").Select

For Each cell In Selection
If cell.Value = "A" Then
nbA = nbA + 1
Else
If cell.Value = "B" Then
nbB = nbB + 1

Else
If cell.Value = "C" Then
nbC = nbC + 1
End If

End If
End If
Next cell

Sheets("Recap").Select
Range("D1").Select

ActiveCell.Value = nbA
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = nbB
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = nbC


End Sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
eric



Nombre de messages : 154
Date d'inscription : 17/07/2006

MessageSujet: Re: Compter des éléments différents d'une colonne et copier   Lun 28 Juil - 13:15

desolé
j'ai a nouveau teste le code
IL FONCTIONNE PARFAITEMENT
Par contre , le code que tu as cité emet une erreur 400 sous excel 2003
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Compter des éléments différents d'une colonne et copier   

Revenir en haut Aller en bas
 
Compter des éléments différents d'une colonne et copier
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Partie 1 - Les Différents types de design
» Test débit très différent
» LA RELIGION ? les différentes divinités
» Les différents Oregon
» Itinéraires, POI, Mapsource et durée des voyages

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Les Trucs & Astuces Informatiques de Michel :: Bureautique-
Sauter vers: