[VBA] Condition = Valeur négative

[TheLio]

Bonsoir, dans le code cidessous, j'aimerai ajouter une condition
dans le but de répondre à un autre fil, mais je bute 😱

La condition supplémentaire est si ="tutu" maitre la ligne (col 3à14) en chiffre négatif..

Option Explicit
'############
'Auteur PMO2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lig&
Dim i&
Dim R As Range
Dim R2 As Range
Dim C As Range
Dim valeur
Dim couleur
Set R = Application.Intersect(Target, Range(Columns(2).Address))
If R Is Nothing Then Exit Sub
'--- A adapter ---
valeur = Array("toto", "tutu")
couleur = Array(41, 44)
'-----------------
For Each C In R
lig& = C.Row
Set R2 = ActiveSheet.Range(Cells(lig&, 3), Cells(lig&, 14))
For i& = LBound(valeur) To UBound(valeur)
If C = valeur(i&) Then
R2.Interior.ColorIndex = couleur(i&)
Exit For
End If
Next i&
Next C
End Sub
'############

Merci pour vos pistes
A++
Lio

 

[skoobi]

Re : [VBA] Condition = Valeur négative

Salut Lionel,

essaye ceci:

If valeur(i&) = "tutu" Then ActiveSheet.Range(Cells(lig&, 3), Cells(lig&, 14)).Value = - ActiveSheet.Range(Cells(lig&, 3), Cells(lig&, 14)).Value

 

[TheLio]

Re : [VBA] Condition = Valeur négative

Bonjour Tous,
Salut Skoobi et merci pour la piste, je crois que je m'approche du résultat.
Avec le code ci-dessous les cellule se mettent à Zéro si j'ajoute la partie en rouge la valeur VRAI mais toujours pas de cellule en négatif

Option Explicit
'############
'Auteur PMO2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lig&
Dim i&
Dim R As Range
Dim R2 As Range
Dim C As Range
Dim valeur
Dim couleur
Set R = Application.Intersect(Target, Range(Columns(2).Address))
If R Is Nothing Then Exit Sub
'--- A adapter ---
valeur = Array("toto", "tutu")
couleur = Array(41, 44)
'-----------------
For Each C In R
lig& = C.Row
Set R2 = ActiveSheet.Range(Cells(lig&, 3), Cells(lig&, 14))
For i& = LBound(valeur) To UBound(valeur)
If C = valeur(i&) Then
R2.Interior.ColorIndex = couleur(i&)
On Error Resume Next
If valeur(i&) = "tutu" Then
R2.Value = -R2(Cells(lig&, 3), Cells(lig&, 14)).Value '= -R2(Cells(lig&, 3), Cells(lig&, 14)).Value
Exit For
End If
End If
Next i&
Next C
End Sub
'############

 

[skoobi]

Re : [VBA] Condition = Valeur négative

Bonjour tout le monde,

essaye en passant par une boucle:

For Col = 3 To 14
Cells(lig&, Col).Value = - Cells(lig&, Col).Value
Next

 

[pierrejean]

Re : [VBA] Condition = Valeur négative

bonjour Thelio
bonjour Skoobi

A tester

Dim cel as range
.....
If C = valeur(i&) Then
R2.Interior.ColorIndex = couleur(i&)
[COLOR=blue]If C="tutu" then[/COLOR]
[COLOR=blue] for each cel in R2[/COLOR]
[COLOR=blue]  cel.value=-cel.value[/COLOR]
[COLOR=blue] next cel[/COLOR]
[COLOR=blue]End if
[/COLOR]Exit For
.....

 

[TheLio]

Re : [VBA] Condition = Valeur négative

Bonjour pierrejean 🙂 Skoobi 🙂
Merci pour votre aide
Les deux cas fonctionnent,
je lui poste sa solution ici
A++
Lio