conserver une valeur par ligne

[philmaure]

bonjour à tous,

J'ai tout expliqué dans le fichier joint
sur une ligne j'ai plusieurs cellules non vide . Je suhaite dans la première colonne conserver que la dernière valeur de chaque ligne les autres valeurs peuvent être effacées.

Merci pour votre aide
Cdlt
philippe

 

[CISCO]

Re : conserver une valeur par ligne

Bonjour

Tu peux faire en A2 avec

=DECALER(A2;;MAX(SI(B2:AA2<>"";COLONNE(B2:AA2)-1)))

en matriciel, donc à valider avec Ctrl+maj tempo + enter. Cette formule donne le bon résultat si la dernière valeur se trouve avant la colonne AB.

@ plus

 

[philmaure]

Re : conserver une valeur par ligne

bonjour Cisco

Super
Un grand merci et une bonne a-m
cdlt
philippe

 

[job75]

Re : conserver une valeur par ligne

Bonjour philmaure, CISCO,

Une solution VBA :

Sub DenièreDate()
Dim derlig&, dercol%, t, i&, j%
dercol = 15 'à adapter
derlig = Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
t = [A2].Resize(derlig, dercol)
For i = 1 To UBound(t)
  For j = dercol To 1 Step -1
    If IsDate(t(i, j)) Then t(i, 1) = CDate(t(i, j)): Exit For
  Next
Next
[A2].Resize(derlig, dercol).ClearContents
[A2].Resize(derlig) = t
Columns(1).AutoFit 'ajustement largeur
End Sub

A+

 

[philmaure]

Re : conserver une valeur par ligne

Bonjour,

Merci cisco pour ta solution.

Maintenant je sais identifier la dernière colonne mais comment identifier la première colonne avec le meme critère ?
Merci pour votre aide
Cdlt
philippe

 

[CISCO]

Re : conserver une valeur par ligne

Bonjour

Il suffit de remplacer le MAX par un MIN dans la formule précédente, toujours en matriciel.

@ plus