Aide sur macro excel 2003 Résolu/Fermé

Question

Bonjour,    

J'ai besoin d'aide ! J'ai créé des feuilles élèves avec des données que je veux mettre dans une autre feuille synthèse globale. Mon soucis je veux additionner des données textes et je voudrais, des lors, qu'un nouvel élève arrive que cela se fasse directement. Les formules pour additionner les données sont OK (enfin je pense, exemple =NB.SI(LUCAS!$B$4;"*BTS*")+NB.SI(BROSSEAU!$B$4;"*BTS*")+NB.SI(FORT!$B$4;"*BTS*") 

Mais c'est pour créer soit une macro, soit un lien pour que tout se fasse automatiquement. J'ai essayé de faire une macro mais cela ne donne rien, exemple : créée feuille élève et  prendre toutes les données de cette feuille et les rajouter à la formule au dessus automatiquement dans la feuille synthèse globale. Merci de votre aide. version excel 2003

michel_m · Answer

Bonjour,

Si j'ai bien compris qu'il fallait compter le nombre de BTS

Sub compter_bts()
Dim nbre As Byte, cptr As Byte, effectif As Byte

nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
    If Sheets(cptr).Name <> "synthèse" And Sheets(cptr).Range("B4") Like "*BTS*" Then
        effectif = effectif + 1
    End If
Next

With Sheets("synthèse")
    .Range("B4") = effectif
    .Activate
End With
End Sub

caamimie · Answer

Merci, c'est ça. Je peux reprendre la macro pour tout le reste des données en mettant d'autre nom que bts, comme permis oui ou non et nombre de oui ou de non. merci encore.

Aide sur macro excel 2003

2 réponses

Discussions similaires