Boucle en VBA Fermé

Question

Bonjour, 

Dans un tableur excel , je dispose de plusieurs feuilles, à chacune d'elles correspond une entreprise à étudier.

Dans chaque feuille, on a répertorié les domaines d'acitivité et la consommation de café correspondant à l'ensemble des salariés du domaine d'activité.
Le probème : en dessous de chaque domaine avec le total, est repris le nom du domaine avec en face le prénom de chaque collaborateur appartenant au domain ainsi que leur consommation annuelle de café (ce qui permet de calculer le total de la consommation dans le domaine en première ligne.

J'aurais donc besoin d'une boucle pour récupérer le nom de chaque domaine et le total, car pour chaque entreprise et donc pour chaque feuille, les domaines ne sont pas les mêmes, ce qui m'empêche de procéder par rechercheV

De plus, le grand nombre de valeurs de chaque feuille m'empêche de procéder à la main.

Quelle boucle dois-je utiliser pour récupérer la consommation totale du domaine, c'est à dire la valeur chiffrée si la valeur de la cellule du dessus est différente de celle dont il faut récupérer la consommation de café.

En vous remerciant par avance pour votre aide précieuse.

michel_m · Answer

Bonjour,

Combien d'entreprises et combien de domaines ?

Existe t il une liste des domaines ? une liste des entreprises ?

 la valeur chiffrée si la valeur de la cellule du dessus est différente de celle dont il faut récupérer la consommation de café. 
  ???? que veux tu dire ?

pour faciliter

mettre le classeur sans données confidentielles en pièce jointe sur
https://www.cjoint.com/ 
puis copier l'adresse du lien et la coller dans le message de réponse

mphzdt · Answer

Non il n'y a pas de listes mais les données sont classées par domaine.

On se retrouve avec un fichier de cette structure : 

Domaine d'actitivté	Prénom	Consommation de café (en litres par année)
Comptabilité		25
Comptabilité	Hubert	6
Comptabilité	Jérémie	7
Comptabilité	José	10
Comptabilité	Patrick	2
Secrétariat		35
Secrétariat	Germaine	10
Secrétariat	Jacqueline	5
Secrétariat	Patricia	15
Secrétariat	Josiane	5
Direction		60
Direction	Robert	30
Direction	Jean	20
Direction	Edouard	10

michel_m · Answer

Bonjour

Option ExplicitSub conso_ste()     Application.ScreenUpdating = False     conso_cafe "boite1"End SubSub conso_cafe(boite)Dim Derlig As Integer, T_inDim D_domaine As Object, Idx As IntegerDim Ligvide As IntegerSet D_domaine = CreateObject("Scripting.Dictionary")With Sheets(boite)     Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row     T_in = .Range("A2:C" & Derlig)End WithFor Idx = 1 To UBound(T_in)     If Not D_domaine.exists(T_in(Idx, 1)) Then          D_domaine.Add T_in(Idx, 1), T_in(Idx, 3)     End IfNextWith Sheets("inconnu")     Ligvide = .Columns("A").Find("", .Range("A1"), xlValues).Row     .Cells(Ligvide, "A").Resize(D_domaine.Count, 1) = Application.Transpose(D_domaine.keys)     .Cells(Ligvide, "B").Resize(D_domaine.Count, 1) = Application.Transpose(D_domaine.items)End WithSet D_domaine = NothingEnd Sub
 

sans explications de ta part

 j'ai considéré que le nom de la société était marqué dans l'onglet et que la restitution se faisait dans une feuille nommée "inconnu" ou peut-^tre, mais non demandé, qu'il serait intéressant de préciser la société

Comme tu marques que tu as des "tonnes"de lignes,ce qui est très subjectif, j'ai évité de passer par des retranscriptions cellule par cellule

Il te faut boucler sur les noms de société avec la macro conso_ste

Boucle en VBA

3 réponses

Discussions similaires