condition en VBA

[bica]

Bonjour à toutes et à tous ,

je possède un tableau à trois colonnes allant de A6 à C100 , dans les deux premières colonnes ( A et B) je récupère des valeurs et en C j'aimerais les traiter par un simple calcul (A-B) avec deux conditions
1.appliquer(A-B) en C que SI $A$>0 OU SI $B$>0 donc si A=0 et B=0 ne rien faire

2.Si $A$ = $B$ alors afficher en C le terme " EGALITE"

que se soit en VBA ou par une formule je suis preneur , pour plus de clarté je vous joint un fichier.

Merci d'avance pour vôtre aide.

Bica.

 

[Tibo]

Re : condition en VBA

Salut Bica,

En C6 : cette formule à recopier vers le bas :

=SI(OU(A6=0;B6=0);"";SI(A6=B6;"EGALITE";A6-B6))

Bon WE

@+

 

[ERIC S]

Re : condition en VBA

bonjour

non testé

=si(et(A1=0;B1=0);"";si(A1=B1;"égalité";(A1-B1))

rebonjour Tibo

j'ai des doutes sur ton "ou"

 

[Tibo]

Re : condition en VBA

rebonjour Eric,

C'est à la lecture de l'énoncé de bica que j'ai également des doutes puisqu'il dit :

"SI $A$>0 OU SI $B$>0 donc si A=0 et B=0 ne rien faire"

Donc à bica de faire l'essai avec les deux formules et de retenir celle qui lui convient

@+

 

[Gorfael]

Re : condition en VBA

Bonjour à toutes et à tous ,

je possède un tableau à trois colonnes allant de A6 à C100 , dans les deux premières colonnes ( A et B) je récupère des valeurs et en C j'aimerais les traiter par un simple calcul (A-B) avec deux conditions
1.appliquer(A-B) en C que SI $A$>0 OU SI $B$>0 donc si A=0 et B=0 ne rien faire

2.Si $A$ = $B$ alors afficher en C le terme " EGALITE"

que se soit en VBA ou par une formule je suis preneur , pour plus de clarté je vous joint un fichier.

Merci d'avance pour vôtre aide.

Bica.

Salut
C6 =

=SI(A6=B6;SI(A6=0;"";"EGALITE");A6-B6)

si A = B et A>0 ou B>0 <=>non(A=0 ET B=0)
A+

 

[bica]

Re : condition en VBA

Salut Tibo et salut Eric S ,

merci pour vos réponses si rapide et après avoir tester les deux formules , j'ai constaté que c'est la formule de Eric S qui est juste.
J'en ai profité pour comprendre l'imbrication des si dans une condition.

Et en VBA cela donne quoi , est-ce que quelqu-un peut me répondre ? sinon bravo à Tibo et à Eric S pour leur aide.

@+Bica.

 

[bica]

Re : condition en VBA

Salut Gorfael ,
les réponses sont si rapides que je n'ai pas vu ton post , merci pour la petite démonstration c'est effectivement juste !!

merci à toi aussi .

@+ Bica

 

[Gorfael]

Re : condition en VBA

Salut Tibo et salut Eric S ,

merci pour vos réponses si rapide et après avoir tester les deux formules , j'ai constaté que c'est la formule de Eric S qui est juste.
J'en ai profité pour comprendre l'imbrication des si dans une condition.

Et en VBA cela donne quoi , est-ce que quelqu-un peut me répondre ? sinon bravo à Tibo et à Eric S pour leur aide.

@+Bica.

Re...

Sub test()
Dim X As Long
For X = 6 To Range("A65536").End(xlUp).Row
Range("C" & X) = IIf(Range("A" & X) <> Range("B" & X), Range("A" & X) - Range("B" & X), _
                IIf(Range("A" & X) = 0, "", "ÉGALITÉ"))
Next
End Sub

A+

 

[bica]

Re : condition en VBA

Oh ! le joli code VBA arrivé aussi rapidement que le TGV .

Merci à toi Gorfael et j'espère à bientôt sur ce site .

Bica