http://cjoint.com/?dnsQUYaF2t
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
http://cjoint.com/?dnsQUYaF2t
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
http://cjoint.com/?dnsQUYaF2t
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)
http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courage
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: %23NJnrcZZHHA.348@TK2MSFTNGP02.phx.gbl...
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)
http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courage
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: %23NJnrcZZHHA.348@TK2MSFTNGP02.phx.gbl...
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)
http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courage
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" a écrit dans le message de news:Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: OBpOcQbZHHA.4396@TK2MSFTNGP06.phx.gbl...
Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: %23NJnrcZZHHA.348@TK2MSFTNGP02.phx.gbl...
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)
http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courage
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Salut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" a écrit dans le message de news:Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais pas
pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Re-,
je crains une intervention de LSteph ou JB qui, non seulement me mettrait définitivement hors course (déjà largué), mais qui en
plus mettrait ton code au rang des éléphants. Heureusement que JPS est hors de toute portée WIFI....
Pour les cervoises, c'est peut-être la raison du seul neurone...
AmicalementSalut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" a écrit dans le message de news:Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais
pas pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Re-,
je crains une intervention de LSteph ou JB qui, non seulement me mettrait définitivement hors course (déjà largué), mais qui en
plus mettrait ton code au rang des éléphants. Heureusement que JPS est hors de toute portée WIFI....
Pour les cervoises, c'est peut-être la raison du seul neurone...
Amicalement
Salut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: OBpOcQbZHHA.4396@TK2MSFTNGP06.phx.gbl...
Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais
pas pensé au tri (snif!!!!)
Bonne soirée -)
Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" <pmcsnhb_nospam@aol.com> a écrit dans le message de news: %23NJnrcZZHHA.348@TK2MSFTNGP02.phx.gbl...
Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)
http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courage
Bonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish
Re-,
je crains une intervention de LSteph ou JB qui, non seulement me mettrait définitivement hors course (déjà largué), mais qui en
plus mettrait ton code au rang des éléphants. Heureusement que JPS est hors de toute portée WIFI....
Pour les cervoises, c'est peut-être la raison du seul neurone...
AmicalementSalut cousin,
Ce qui m'a mis sur cette piste, c'est la macro des
sauts de lignes sur laquelle nous buchämes récemment.
Quant au tri et aux boucles, trois ou quatre petites cervoises
et des heures d'obstination maladive ;-)
Si quelqu'un trouve une formule pour faire ça,
je vais sombrer dans une profonde dépression ;-)))
A+
Serge
"cousinhub" a écrit dans le message de news:Bonsoir Serge et Ashish,
effectivement, Serge, c'était à priori cela, mais avec mon seul neurone encore présent, et la détresse d'Ashish, j'avais
essayé....
Devant ton code, je ne peux que m'incliner bien bas
Félicitations
PS, j'ai fait un essai avec 1500 lignes, je ne donnerais pour rien au monde mon temps.................comparé au tien, j'avais
pas pensé au tri (snif!!!!)
Bonne soirée -)Salut Ashish et cousinhub,
Si j'ai bien compris la question, cette macro me semble compétente.
Elle mutiplie tous les nombres de la colonne B qui correspondent
à une même lettre de la colonne A (pour chacune des lettres) et
additionne le tout. Est-ce bien cela qu'il faut obtenir ?
Sub Somme_De_Produits()
Application.ScreenUpdating = False
Dim k As Long
Dim i As Long
Dim L(1 To 65536) as Long
Dim p(1 To 65536) As Double
Dim s As Double
Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending
i = 1
Do
i = i + 1
If Cells(i, 1) <> Cells(i - 1, 1) Then
k = k + 1
L(k) = i - 1
End If
Loop Until Cells(i - 1, 1) = ""
p(1) = WorksheetFunction.Product(Range(Cells(1, 2), Cells(L(1), 2)))
For i = 2 To k
p(i) = WorksheetFunction.Product(Range(Cells(L(i - 1) + 1, 2), Cells(L(i), 2)))
Next i
For i = 1 To k
s = s + p(i)
Next i
[D1] = s
Application.ScreenUpdating = True
End Sub
Serge
"cousinhub" a écrit dans le message de news: %Bonsoir,
voici un petit code, à adapter bien sûr.
Il y a sûrement plus simple, mais c'est tout ce que j'avais comme idée ce soir....-)http://cjoint.com/?dnsQUYaF2t
Sub multi()
Application.ScreenUpdating = False
[h1:i1].Value = [a1:b1].Value
For Each c In [lettres]
temp = c
temp1 = c.Offset(0, 1)
[h65000].End(xlUp).Offset(1, 0) = temp
For Each cell In [lettres]
If cell.Address <> c.Address Then
If cell = c Then temp1 = temp1 * cell.Offset(0, 1)
End If
Next cell
[i65000].End(xlUp).Offset(1, 0) = temp1
Next c
derlig1 = [i65000].End(xlUp).Row
With Range("H1:I" & derlig1)
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:F1"), Unique:=True
.ClearContents
End With
derlig = [f65000].End(xlUp).Row
[e65000].End(xlUp).Offset(1, 0) = "Total"
[f65000].End(xlUp).Offset(1, 0) = Evaluate("SUM(F2:F" & derlig & ")")
Application.ScreenUpdating = True
End Sub
bon courageBonjour,
mon premier post n'a pas marché, alors je recommence...
J'ai besoin d'une formule qui me permette de faire une opération entre
plusieurs valeurs d'un tableau, en fonction de la valeur contenue dans
la première colonne. Exemple :
A B
1 a 2
2 b 3
3 c 5
4
5 b 10
6 a 20
L'opération sera : B1*B6 + B2*B5 (1er a * 2eme a + 1er b * 2eme b)
Quelqu'un a-t-il la solution ??
Merci beaucoup !
Ashish