Aide sur VBA: indexer des onglets sur Excel? Fermé

Question

Bonjour, J'ai une question sur Excel,VBA. Merci de m'aider svp. Je dois insérer dans un classeur Excel (déjà ouvert) des onglets (feuilles) se trouvant dans un répertoire (dossier). Le nombre de feuilles à insérer varie (de 1 à 10 environ). Quand j'active ma macro d'insertion, toutes les feuilles inserées se trouvent côte à côte de la gauche vers la droite, avant le premier onglet qui se trouvait dans le fichier. Mon problème c'est que je dois effectuer un petit calcul : additionner des cellules de chaque feuille insérer. Comment ca marche? Y a t-il un code qui permet de définir le nombre de feuille insérées et d'effectuer une addition entres des cellules de ces feuilles insérer (je ne veux pas toucher les feuilles qui étaient déjà là). Exemple : si j'ai inséré 5 feuilles dans mon classeur, comment faire pour additionner : A1 + A2+A3+A4+A5, les cellules Ai étant uniquement cellules des feuilles insérées.Merci beaucoup de m'aider cher (e) expert (e)!!!

pijaku · Answer

Bonjour,
Il faudrait déjà, pour commencer, nous communiquer le code de ta macro d'insertion.

eriiic · Answer

Bonjour,    

Si tes feuilles insérées s'appellent Feuil1 à Feuil5 et qu'elles sont toujours consécutives (tu ne les a pas déplacées) alors :    
total = Evaluate("Sum('Feuil1:Feuil5'!A1:A5)")(il faut mettre le nom de la 1ère et de la dernière feuille, pas besoin qu'elles aient un n° dans le nom)   
Quand au nombre de feuilles insérées tu es sensé le connaitre... 
eric

moseca · Answer

Salut Éric merci pour ta réponse, mais le problème c'est que je ne connais pas le nombre de feuilles à insérer, ca varie. Mais ces feuilles insérées seront toujours placées avant une feuille qui s'appelle bienvenue. Y aurait til un moyen de dire par VBA: prendre les feuilles qui se trouve avant Binevenue et faire le calcul. De plus, leurs noms c'est des chiffre (1 à 10). Peut-ête les appeler Sheets (i) avec i le nombre...je ne sais pas. Merci de m'aider si tu as 'autres idée!

eriiic · Answer

Re,

Même principe, il faut séparer les plages par des ;
Si la 1ère feuille à prendre en compte s'appelle 'Début' et la dernière 'PM' alors :
total = Evaluate("SUM('Début:PM'!A1:A5;'Début:PM'!A10:A20;'Début:PM'!A30:A50)")

Les ' qui encadrent les noms des feuilles sont impératifs si tes noms d'onglet comporte un espace.

eric

lermite222 · Answer

Bonjour,
Bonjour Eric,
Il me semble que ta formule reprend également la feuille Debut et PM ?
Par contre, je lit..
Je les ai renommé par macro par des numéros car je dois exporter ensuite un CSV vers un logiciel qui ne prend que des numéros. Donc quand j'insère un fichier je le renomme par un numéro qui correpsondant.
Donc, là tu sais combien de feuilles renommer !!
Pourquoi ne pas intercaller le calcul dans cette macro ?
par exemple...
'Si besoin du total ailleur mettre en tête du module en public
Dim Total As Double

    For XX = 1 to ... le nombre de feuille à renommer.
        'Renommer la feuille en N°
        'Sheets("Machin").Name = Cstr(XX)
        Sheets(CStr(XX)).Select
        Total = Total + Evaluate("SUM(A1:A5,A10:A20,A30:A50)")
    Next XX
Et si ce n'est pas possible comme cela, mettre dans cette macro une variable public qui saurait le nombre de feuille insérées, comme ça, il y aurait moyen d'adapter la formule d'Eric
A+

Aide sur VBA: indexer des onglets sur Excel?

5 réponses

Discussions similaires