Salut,

Colles ce code dans un module, associse le à u, bouton et cliques sur la première cellule de la ligne puis sur le bouton.

Avec plus d'explication il sera possible de faire un balayage depuis la première ligne et le code s'arrêtera sur le premier chiffre négatif

A+

Exuse je rsuis sur plusieurs discussion en même temps

Sub test()
'Range("A1").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(0, 1).Select
If ActiveCell < 0 Then Exit Sub
Loop
End Sub

A+

Bonjour,

Sans macro

formule matricielle à valider par Ctrl=maj+entree (et non par entrée comme d'hab), le curseur étant dans la barre de cellule
=MIN(SI(A1:M1<0;COLONNE(A1:M1)))

Pour blinder au cas où il n'a pas de valeur négative:
=SI(MIN(A1:M1)>=0;"";MIN(SI(A1:M1<0;COLONNE(A1:M1))))
toujours en matricielle Le forum est basé sur le partage de connaissances:Je ne réponds donc pas à des questions techniques par message privé.
Cordialement, Michel

Re,

Lorsque tu parles d' extraire, que veux tu dire la couper et la mettre en fin de ligne ou simplement un copier et coller de cette valeur en fin de ligne

Si on fait en couper de cette valeur négative, la deuxième valeur négative sur la ligne devient première, que fait on

Et ces valeurs sont des valeurs saisies ou le résultat d'une formule, le code n'est pas le même

A+