Tout les jours une questions :)

[JeanMikael]

Tous les jours une question 🙂

Bonjour le forum, comme mon titre de post l'indique j'ai aujourd'hui un nouveau problème c'est pour cela que je me tourne vers vous, dans une feuille
j'ai la chaine de caractere "Total" qui peut se trouver dans n'importe qu'elle cellule de la plage ("B10:IV10") ce que je souhaite donc c'est que a chaque fois que le programme rencontre la chaine "Total" dans cette plage qu'il me fasse la somme de B10 jusqu'a l'adresse ou se trouve la chaine de caractere "Total" dans la cellule juste en dessous de "Total",j'ai bien essayé avec des find associé a des offset mais rien n'y fait, j'espère avoir été clair merci d'avance pour votre aide, bonne après-midi.

Cordialement,
Jean-Mikaël

 

[pierrejean]

Re : Tout les jours une questions 🙂

bonjour Jean-Mikael

comme ceci peut-etre:

Sub test()

For n = 256 To 2 Step -1
 If Cells(10, n) = "Total" Then
   Cells(11, n).FormulaLocal = "=SOMME(B10:" & Cells(10, n - 1).Address(0, 0) & ")"
 End If
Next n
End Sub

 

[JeanMikael]

Re : Tout les jours une questions 🙂

Bonjour pierrejean,

j'ai de la chance que tu passe toujours dans le coin quand j'ai un problème 🙂
merci je test sa et je te tient au courant.


Cordialement,
Jean-Mikaël

 

[Cousinhub]

Re : Tout les jours une questions 🙂

Re-,
Le plus simple aurait été de rester sur le même fil...
le numéro de colonne comportant le mot Total est le numéro de la dernière colonne remplie de la ligne. A partir de là, il est aisé de calculer toutes les cellules de la ligne comprises entre la cellule B10 et la cellule Total.
Exemple :

Sub addition()
y = [iv10].End(xlToLeft).Column ' le numéro de la colonne comprenant Total
x = Application.Sum(Range(Cells(11, 3), Cells(11, y - 1)))
End Sub

si tu cherches le résultat de la ligne 11, sachant que le mot Total est inscrit dans la ligne 10, et que la première cellule à additionner est C11 (Cells(11, 3))

Edit, pas raffraichit, bonjour Pierrejean

 

[JeanMikael]

Re : Tout les jours une questions 🙂

Re bhbh et pierrejean, alors en ce qui concerne ta macro pierrejean elle fonctionne nikel le seul soucil c'est que je l'execute a la chaine sur une dizaine de classeurs actifs et que VB ne veux pas d'une autre boucle for car j'en utilise déjà une pour appliquer les différents sous programme à tous mes classeurs ouverts, la question est de savoir comment imbriquer une boucle for dans une autre ou alors avec ta macro pierrejean comment l'exécuté automatiquement sur tous les classeurs actifs?
bhbh ton programme me parait très bien mais en dessous de total il n'y a rien qui s'affiche merci de votre aide à vous deux.

Cordialement,
Jean-Mikaël

 

[pierrejean]

Re : Tout les jours une questions 🙂

re Jean-Mikael
bonjour bhbh

pour toutes les feuilles de tous les classeurs

Sub test()
Dim w As Workbook
Dim sh As Worksheet
Dim n As Integer
For Each w In Workbooks
 For Each sh In w.Worksheets
    For n = 256 To 2 Step -1
       If sh.Cells(10, n) = "Total" Then
          sh.Cells(11, n).FormulaLocal = "=SOMME(B10:" & sh.Cells(10, n - 1).Address(0, 0) & ")"
       End If
    Next n
 Next sh
Next w
End Sub

a supposer bien sur que toutes les feuilles soient concernées

Attention : je n'ai pas testé

 

[Cousinhub]

Re : Tout les jours une questions 🙂

Re-,
en reprenant le code que tu m'as expédié en mail :
For n = 3 To Workbooks.Count
Workbooks(n).Activate
cpt=0
For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "Erreur*" Then cpt = cpt + 1: Range("B10").Offset(0, cpt).Value = sh.Name
Range("B10").Offset(0, cpt + 1).Value = "Total"
range("B10").offset(1,cpt+1).value =Application.Sum(Range(Cells(11, 3), Cells(11, cpt)))
Next sh

Next n

Non testé également, mais comme il n'y a pas de données dans la ligne 11, le résultat sera forcément à 0

 

[JeanMikael]

Re : Tout les jours une questions 🙂

Merci bhbh, et pierrejean les deux fonctionnent parfaitement je ne sais vraiment pas comment j'aurais fais sans votre aide bonne fin de journée et encore merci !

Cordialement,
Jean-Mikaël