Problème de fonction recherche de la valeur dernière colonne

[donpopo]

Bonjour le forum,

J'ai un petit problème avec la fonction Cells(64, Columns.Count).End(xlToLeft).Value.
En effet, j'ai différentes colonnes remplies de nombres et en dessous une ligne reprenant les totaux de ces colonnes.

J'aimerais récupérer le dernier total calculé, soit la valeur de la dernière colonne où se trouve un total.
Mais cela m'affiche 0 tandis le numéro de colonne est toujours celui de la dernière colonne

Comme je peux comprendre, la faute est au fait que dans cette ligne de totaux, j’ai dans chaque cellule une formule qui calcule le total de la colonne. La fonction de recherche de la dernière colonne non vide est donc faussé car j'ai un 0 partout.

Mon exemple joint sera peut être plus clair.

Y a t'il un moyen de contourner ce problème? Personnellement, je tourne en rond.

Merci d'avance pour votre aide,

donpopo

 

[JHA]

Bonjour à tous,

Cette formule matricielle te donne "90"

=INDEX($B$19:$T$19;;MAX(SI($B$19:$T$19<>0;COLONNE($B$19:$T$19)))-1)

Pour la colonne en validation matricielle

=MAX(SI($B$19:$T$19<>0;COLONNE($B$19:$T$19)))-1

JHA

 

[donpopo]

Bonjour JHA,
En fait ma réponse, soit 90 en l’occurrence, doit s'afficher sur une autre feuille, ici sur la feuil2 par exemple.
De plus le nombre de colonne n'est pas figé et est indéfini. Je peux, à tout moment, rajouter un certain nombre de colonnes.
Comment corriger cette formule?
Merci,
donpopo

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[job75]

Bonjour donpopo, JHA, le forum,

Le code du bouton modifié :

Private Sub CommandButton1_Click()
Dim c As Range, dernTot As Integer, DernCol As Integer
With Range("B1:B18").Resize(, Columns.Count - 1) 'modifiable
    Set c = .Find("*", , xlValues, , xlByColumns, xlPrevious)
    If c Is Nothing Then MsgBox "Y a rien !": Exit Sub
    dernTot = Intersect(.Rows(.Rows.Count + 1), c.EntireColumn)
    DernCol = c.Column
    MsgBox ("Valeur " & dernTot & " et colonne " & DernCol)
End With
End Sub

Bonne journée.

 

[job75]

Re,

Pour la solution par formules du fichier joint le tableau T est défini dynamiquement :

=DECALER(Feuil1!$A$1;;1;18;NB(Feuil1!$19:$19))

A+

 

[job75]

Re,

Avec cette formule en Feuil1!B19 les solutions VBA et par formules sont bien plus simples :

=SI(NB.SI(B1:B18;">=0")+NB.SI(B1:B18;"<0");SOMME(B1:B18);"")

Fichier (2).

A+

 

[donpopo]

Bonjour JHA, job75, le forum,
Merci pour ces réponses. Je vais les tester de suite.
A+

 

[donpopo]

Merci à tous deux,
chaque proposition me convient. Il est vrai que j'ai toujours un peu de mal à saisir les formules matricielles; Il faudrait que j'approfondisse un peu ce type de formule.
Encore merci,
A+

 

[job75]

Bonjour donpopo, JHA,

Il est vrai que j'ai toujours un peu de mal à saisir les formules matricielles;

Avez vous vu mon post #7 ? Avec les nouvelles formules en 1ère feuille il n'y a plus de formule matricielle dans la 2ème feuille.

A+