Recherche de valeurs negative en VBA

B

bebere

Guest

• 5 Novembre 2005

• #2

bonjour
Marion,le Forum

à placer ds le code de la feuille
clic droit -> onglet feuille -> visualiser code

Private Sub Worksheet_Activate()
Dim Cel As Range, L As Byte
For Each Cel In Range('G4:G14')
If Cel < 0 Then
L = L + 1
Range('M' & L).Offset(3, 0).Value = Cel.Value
Range('L' & L).Offset(3, 0).Value = Range('B' & Cel.Row).Value
End If
Next Cel
End Sub
à bientôt 🙂

 

Vote positif 0 Vote négatif

Ti_

Nous a quitté

Repose en paix

• 5 Novembre 2005

• #3

une solution simple et classique, avec quelques formules [file name=ValNeg.zip size=5155]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ValNeg.zip[/file]

 

Pièces jointes

• ValNeg.zip

  5 KB · Affichages: 45

Vote positif 0 Vote négatif

M

Marion

Guest

• 5 Novembre 2005

• #4

Re bonjour

merci a tous les deux

la solution de bebere est tout a fait ce qu'il me faut


jel'ai adapté a mon fichier cela fonctionne mais le temps du calcul est trés long

Peut-on améliorer ce petit soucis

Merci encore

A+Marion

 

Vote positif 0 Vote négatif

B

bebere

Guest

• 5 Novembre 2005

• #5

bonjour Marion,Ti
essaye le suivant
Private Sub Worksheet_Activate()
Dim L As Integer, C As Integer
Dim Tbl As Variant
Dim Cel As Range
For Each Cel In Range('H4:H14')
If Cel < 0 Then
L = L + 1
End If
Next Cel
ReDim Tbl(1 To L, 1 To 2)
L = 0
For Each Cel In Range('H4:H14')
If Cel < 0 Then
L = L + 1
Tbl(L, 1) = Cells(Cel.Row, 3).Value '3 colonne C
Tbl(L, 2) = Cells(Cel.Row, 8).Value '8 colonne H
End If
Next Cel
For L = 1 To UBound(Tbl, 1)
For C = 1 To UBound(Tbl, 2)
Cells(3, 10).Offset(L, C).Value = Tbl(L, C)
Next C
Next L
End Sub
à bientôt

 

Vote positif 0 Vote négatif

M

Marion

Guest

• 5 Novembre 2005

• #6

RE

desolée pour le retard

Je viens de mettre en place le nouveau code mais il bug a ce niveau


ReDim Tbl(1 To L, 1 To 2)

je ne peux donc pas voir si il accélère l'opération

Merci

A+Marion

 

Vote positif 0 Vote négatif

B

bebere

Guest

• 5 Novembre 2005

• #7

bonsoir Marion
si bug à redim ,la variable L=0
regarde si Range('H4:H14') est bien ta colonne de chiffres
et aussi les 2 lignes suivantes
Tbl(L, 1) = Cells(Cel.Row, 3).Value '3 colonne C
Tbl(L, 2) = Cells(Cel.Row, 8).Value '8 colonne H
à bientôt 🙂

 

Vote positif 0 Vote négatif

M

Marion

Guest

• 6 Novembre 2005

• #8

Bonjour au forum

Merci Bebere je viens de faire une petite modif et ça fonctionne bien



A+Marion

 

Vote positif 0 Vote négatif