diagonale

[nono555]

Bonjour,

J'ai des données chiffrées dans un tableau qui forment un triangle du style :

54321
4321
321
21
1

Je voudrais savoir s'il y avait un moyen rapide de récupérer les chiffres qui se trouvent sur la diagonale (ici tous les 1) pour les utiliser dans un graphique ou en faire la somme.

Merci d'avance.

 

[Creepy]

Re : diagonale

Hello le forum, Nono,

Par formules : =DROITE(A1;1)

Par codes VBA :
Dim Val as integer
Val = right$(cells(1,1).value,1)

@+

Creepy

 

[porcinet82]

Re : diagonale

Salut,

Deux bout de code en fonction de tes data :

[COLOR=seagreen]'Si chaque chiffre est dans une cellule[/COLOR]
Sub test()
Dim i&, somme&
For i = 1 To Range("A65536").End(xlUp).Row
    somme = somme + Cells(i, Range("IV" & i).End(xlToLeft).Column).Value
Next i
MsgBox "La somme est : " & somme
End Sub
 
[COLOR=seagreen]'Si les listes sont dans une seule cellule[/COLOR]
Sub test2()
Dim i&, somme&
For i = 1 To Range("A65536").End(xlUp).Row
    somme = somme + Val(Right(Cells(i, 1).Value, 1))
Next i
MsgBox "La somme est : " & somme
End Sub

@+

Edition : Salut Creepy, pas rafraichit... Je manque de rapidité aujourd'hui !!!

 

[nono555]

Re : diagonale

Merci beaucoup à tous les deux

 

[nono555]

Re : diagonale

En fait, chaque chiffre est dans une cellule séparée et je voudrais savoir s'il existe une fontion excel sans passer par vba.

Merci.

 

[ninbihan]

Re : diagonale

Bonjour le Forum et le fil,

En ayant tes données dans la plage A1:A5 essaie:
SOMMEPROD(DROITE(A1:A5;1)*1)

@+

Ninbihan

 

[2passage]

Re : diagonale

Bonjour,

Si j'ai bien compris, tu veux récupérer la dernière cellule utilisée de chaque ligne. Je pense qu'il faudra passer par un tableau intermédiaire. En reprenant ton exemple, si tu as :
54321
4321
321
21
1
dans les colonnes A à E, lignes 1 à 5 tu peux mettre en A10 :
=DECALER(A1;0;NBVAL(A1:E1)-1)
et tirer la formule vers le bas. tu auras en A10 à A15, la dernière valeur de chaque ligne :
1
1
1
1
1
De là tu pourras faire ton graphique.

A +

edit : tant que j'y suis, l'exemple

 

[Monique]

Re : diagonale

Bonjour,

=RECHERCHE(9^9;1:1)
puis copier-coller vers le bas

Idem :
=RECHERCHE(9^9;A1:K1)
puis copier-coller vers le bas