XL 2016 Addition avec condition

[ZAKAO]

Bonjour tout le monde,

J'ai besoin d'aide pour une formule que je n'arrive pas à créer, vous êtes ma dernière chance ehehe... Je vous explique mon problème : j'ai deux colonnes, une pour les codes et l'autre colonne qui contient des heures prévues du type :

Code Heures
1. = Titre 6h
1.1 = Sous-titre 2h
1.2 = Sous-titre 3h
1.2.1 = Sous-sous-titre 2h
1.2.2 = Sous-sous-titre 1h
1.3 = Sous-titre ... 1h

A la main je ne veux remplir que celles en dernières lignes (dans l'exemple: 1.1, 1.2.1, 1.2.2, et 1.3) puis la formule mettrait à jour le reste (1. et 1.2). Je ne sais pas si c'est claire mais est-ce que quelqu'un a ne serait-ce qu'une idée?

En attente de vos retours, je vous remercie d'avance ! Je vous souhaite une belle journée.

 

[ZAKAO]

Bon en doublant les formules on peut aller jusqu'à 99 niveaux (2 chiffres), fichier joint.

D'accord, c'est bon à savoir. Ce n'est pas réellement utile dans mon contexte mais peut-être pour d'autres personnes ça le sera.

Si je peux me permettre cette formule sous cette forme le rend un peu plus facile à utiliser :

=SOMME.SI(DECALER(B3;1;;10000);B3 & ".?";DECALER(C3;1;;10000))

Encore merci.

 

[job75]

Si je peux me permettre cette formule sous cette forme le rend un peu plus facile à utiliser :

=SOMME.SI(DECALER(B3;1;;10000);B3 & ".?";DECALER(C3;1;;10000))

Tout à fait, il suffit alors de la copier et de la coller sur toutes les cellules concernées.

Maintenant puisque j'ai parlé de VBA voyez le fichier .xlsm joint et cette fonction :

Function SOMSI(plage As Range)
Dim x$, L%, i&
Set plage = plage.EntireColumn.Cells
x = Application.Caller.Offset(, -1) & ".*"
L = Len(x)
i = Application.Caller.Row + 1
While plage(i, 1) <> ""
    If plage(i, 1) Like x And InStr(Mid(plage(i, 1), L), ".") = 0 Then SOMSI = SOMSI + plage(i, 2)
    i = i + 1
Wend
End Function

Le code doit être placé impérativement dans un module standard.

Formule unique en C3 C4 C5 etc... =SOMSI(B:C)

 

[ZAKAO]

Tout à fait, il suffit alors de la copier et de la coller sur toutes les cellules concernées.

Maintenant puisque j'ai parlé de VBA voyez le fichier .xlsm joint et cette fonction :

Function SOMSI(plage As Range)
Dim x$, L%, i&
Set plage = plage.EntireColumn.Cells
x = Application.Caller.Offset(, -1) & ".*"
L = Len(x)
i = Application.Caller.Row + 1
While plage(i, 1) <> ""
    If plage(i, 1) Like x And InStr(Mid(plage(i, 1), L), ".") = 0 Then SOMSI = SOMSI + plage(i, 2)
    i = i + 1
Wend
End Function

Le code doit être placé impérativement dans un module standard.

Formule unique en C3 C4 C5 etc... =SOMSI(B:C)

D'accord, cela fonctionne parfaitement, jusqu'à ce qu'on insert des colonnes entre la colonne code et la colonne heure. La plage se retrouve alors faussé avec des cellules vides.

Est-ce qu'une version un peu plus souple est possible ?

 

[job75]

Bonjour ZAKAO,

D'accord, cela fonctionne parfaitement, jusqu'à ce qu'on insert des colonnes entre la colonne code et la colonne heure. La plage se retrouve alors faussé avec des cellules vides.

Est-ce qu'une version un peu plus souple est possible ?

Il suffit de mettre 2 arguments à la fonction, fichier (2) :

Function SOMSI(plage1 As Range, plage2 As Range)
'plage1 et plage2 doivent avoir une seule colonne
Dim i&, x$, L%
Set plage1 = plage1.EntireColumn.Cells
Set plage2 = plage2.EntireColumn.Cells
i = Application.Caller.Row + 1
x = plage1(i - 1) & ".*"
L = Len(x)
While plage1(i, 1) <> ""
    If plage1(i) Like x And InStr(Mid(plage1(i), L), ".") = 0 Then SOMSI = SOMSI + plage2(i)
    i = i + 1
Wend
End Function

A+

 

[ZAKAO]

Bonjour ZAKAO,

Il suffit de mettre 2 arguments à la fonction, fichier (2) :

Function SOMSI(plage1 As Range, plage2 As Range)
'plage1 et plage2 doivent avoir une seule colonne
Dim i&, x$, L%
Set plage1 = plage1.EntireColumn.Cells
Set plage2 = plage2.EntireColumn.Cells
i = Application.Caller.Row + 1
x = plage1(i - 1) & ".*"
L = Len(x)
While plage1(i, 1) <> ""
    If plage1(i) Like x And InStr(Mid(plage1(i), L), ".") = 0 Then SOMSI = SOMSI + plage2(i)
    i = i + 1
Wend
End Function

A+

Merci beaucoup !

Bonne journée