extraire la premiere valeur négative excell

Question

Bonjour, 
je ne maitrise pas du tout le code excel pour creer une macro et j'ai des fichiers a analyser sous excel (2007) , dans chaque fichier il y a une colonne de position en degrés (obtenue par une formule de multiplication de deux cellules il parait que c est important de le dire...) et a coté une colonne de nombres positifs sauf deux séries de valeurs négatives, et je voudrais pouvoir trouver directement la premiere valeur négative de chacune de ces séries et la valeur de position correspondante (et les faire copier coller directement en haut du fichier pour pouvoir en faire un nouveau tableau).
Chaque fichier comporte au moins 1500 valeurs par colonne...
merci d avance
Robin

Configuration: Windows 7 / Internet Explorer 9.0

Mike-31 · Answer

Salut, 

Si j'ai bien compris, tu cherche à afficher la première valeur inférieure à 0 parmis des valeurs positives et négatives 

formule matricielle à confirmer en appuyant en même temps sur Ctrl, Shift et Entrée 
=MAX(SI(A1:A30<0;(A1:A30);"")) 

si tu le fais correctement, la formule se mettra entre {} 

comme ceci 
{=MAX(SI(A1:A30<0;(A1:A30);""))} 

et si tu souhaites retrouver la première valeur négative 0 compris ajoute = entre < et 0 comme ceci <=0 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Difficile à cerner, pourrais tu mettre ton fichier sur un lien sans notes confidentielles, avec ce lien

https://www.cjoint.com/

Mike-31 · Answer

Re, 

pour la première formule, le chiffre en vert n'est pas le premier négatif de la liste, c'est celui qui est sur la ligne inférieure idem pour la deuxième 

et la formule est 

=RECHERCHEV(MAX(SI(C23:C1722<0;(C23:C1722);""));C37:E1722;3;0) 
formule matricielle à confirmer Ctrl+Shift+Entrée) 

pour la seconde valeur, soit tu limites chaque zone de recherche 
première formule 
=RECHERCHEV(MAX(SI(C23:C556<0;(C23:C556);""));C37:E556;3;0) 
deuxième formule 
=RECHERCHEV(MAX(SI(C556:C1722<0;(C556:C1722);""));C556:E1722;3;0) 

ou on recherche une formule plus complexe si les plages sont variables 

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

michel_m · Answer

Bonjour, 

j'ai hésité avec des matricielles sur 1500 lignes 

Ci joint macro avec le moyens du bord: fichier illisible pour les gens n'ayant pas les moyens de se payer office 2007 
valable quelque soit le nombre de groupes négatifs

Const lig As Byte = 2 'ligne de départ 
Sub premiers_negatifs() 
Dim derlig As Integer 
Dim liste, retour 
Dim cptr As Integer, cptr_t As Byte 

derlig = Range("B3000").End(xlUp).Row 
ReDim retour(1, 0) 
liste = Application.Transpose(Range("B" & lig & ":B" & derlig).Value) 

For cptr = 1 To UBound(liste) 
    If cptr = UBound(liste) Then Exit For 
    If liste(cptr) >= 0 And liste(cptr + 1) < 0 Then 
    ReDim Preserve retour(1, cptr_t) 
    retour(0, cptr_t) = liste(cptr + 1) 
    retour(1, cptr_t) = "B" & cptr + lig 
    cptr_t = cptr_t + 1 
    End If 
Next 
Application.ScreenUpdating = False 
Range("E" & lig).Resize(cptr_t, 2) = Application.Transpose(retour) 
End Sub

piece jointe: 
http://www.cijoint.fr/cjlink.php?file=cj201010/cijtbmLP4y.xls 


Pour Mike31: 
salut, 
vaut mieux passer par cijoint.fr que par cjoint; avec cijoint.fr, on peut lire les fichiers 2007 avec la visionneuse microsoft 
Michel

Extraire la premiere valeur négative excell

4 réponses

Discussions similaires

Newsletters