Syntaxe VBA

[JJ1]

Bonsoir,

J'ai voulu mettre un status bar dans mon code, il fonctionne.
La condition a du être doublée et c'est mon souci:
je n'ai pas pu écrire:

If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row + 1) And i=i+1

mais avec 2 If
If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row +1)
If [U1] >= 8 And ([W1] > 1 And [W1] < 4) Then i = i + 1
Application.StatusBar = "résultat = " & i

Comment je peux faire pour avoir la copie et le compteur avec un seul If ?
merci à vous
Bonne soirée

 

[laurent950]

Re : Syntaxe VBA

Bonsoir jj1,

Peut-etre comme cela ?

If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then 
            [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row +1)
ElseIf [U1] >= 8 And ([W1] > 1 And [W1] < 4) Then
            i = i + 1
            Application.StatusBar = "résultat = " & i
end if

Laurent

 

[Fo_rum]

Re : Syntaxe VBA

Bonsoir,

à tester (seconde ligne sans If) :

Application.StatusBar = "résultat = " & i - ([U1] >= 8 And [W1] > 1 And [W1] < 4)

 

[JJ1]

Re : Syntaxe VBA

Bonjour
Merci Laurent, Forum

On ne simplifie pas beaucoup car on oblige à tester 2 fois.
Le code de Forum n'incrémente pas i ?

Merci

 

[Fo_rum]

Re : Syntaxe VBA

Bonsoir,

...
Le code de Forum n'incrémente pas i ?
...
Merci

l'as-tu testé ? C'est le - qui t'interpelle ?
Sache que si la condition est vraie, elle retourne -1 sinon elle retourne 0 et i-(-1)= i+1.

 

[JJ1]

Re : Syntaxe VBA

Bonjour à tous,
Non je n'ai pas testé.
Effectivement le - me faisait douter de l'incrémentation mais vu ta démonstration...logique !
Merci et bon dimanche.