VBA question basique sur if then sur valeurs nulles (novice)

[needz]

Bonjour à tous

Je cherche juste à rajouter au début d'une macro la condition "si ma plage de cellule ne contient que des valeurs nulles alors MsgBox + Exit Sub sinon continuer la procédure de la macro.

Comme je suis pas très fort voilà ce que ça donne :

If Range("G6").Value = 0 & Range("H6").Value = 0 & Range("I6").Value = 0 & Range("J6").Value = 0 Then
MsgBox ("Vous n'avez pas exécuté correctement l'analyse. Veuillez reprendre la procédure")
Exit Sub
Else
End If

Et bien sûr ça marche pas... Quelqu'un pourrait m'aider pour cette manip sûrement très simple (avec quelques explications si vous avez le temps).

Merci à vous.

 

[Dull]

Re : VBA question basique sur if then sur valeurs nulles (novice)

Salut needz, le Forum

As tu essayer de remplacer les & par And ou par des Or ?

If Range("G6").Value = 0 [B]And [/B]Range("H6").Value = 0 [B]And[/B] Range("I6").Value = 0 [B]And [/B]Range("J6").Value = 0 Then
MsgBox ("Vous n'avez pas exécuté correctement l'analyse. Veuillez reprendre la procédure")
Exit Sub
Else
MsgBox ("Vous avez correctement exécuté l'analyse.")
End If

a tester

EDITION: Salut FG 🙂 même idée 😀

Bonne Journée

 

[Efgé]

Re : VBA question basique sur if then sur valeurs nulles (novice)

Bonjour needz,
En macro on utilise And à la place de &. Il n'y a pas besoin du else:

[COLOR=blue]Sub[/COLOR] needz()
[COLOR=blue]If[/COLOR] Range("G6").Value = 0 [COLOR=blue]And[/COLOR] Range("H6").Value = 0 [COLOR=blue]And[/COLOR] Range("I6").Value = 0 [COLOR=blue]And[/COLOR] Range("J6").Value = 0 [COLOR=blue]Then[/COLOR]
    MsgBox ("Vous n'avez pas exécuté correctement l'analyse. Veuillez reprendre la procédure")
    [COLOR=blue]Exit Sub[/COLOR]
[COLOR=blue]End If[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Si le fait qu'une seule cellule soit vide doit faire sortir de la macro, il faut utiliser Or (ou) à la place de And.
Cordialement
EDIT Bonjour DULL🙂, mêmes posts 😛

 

[needz]

Re : VBA question basique sur if then sur valeurs nulles (novice)

Bon bah comme quoi ... lol j'ai vraiment besoin de plus de bases.
Merci beaucoup pour vos réponses.

Quelle serait la méthode la plus efficace pour coder cette procédure ? j'imagine qu'on peut aussi directement demander ça pour la plage (H6:J6) sans passer par des And fastidieux.

En tout cas une fois encore merci pour la rapidité de vos réponses.

Un newbie du VBA

 

[ROGER2327]

Re : VBA question basique sur if then sur valeurs nulles (novice)

Bonjour à tous

Si les valeurs attendues dans la plage H6:J6 sont numériques :

[COLOR=DarkSlateGray][B]If WorksheetFunction.SumProduct(Range("H6:J6"), Range("H6:J6")) = 0 Then MsgBox "Vous n'avez pas exécuté correctement l'analyse. Veuillez reprendre la procédure": Exit Sub[/B][/COLOR]

ROGER2327
#4445

Lundi 2 As 138 (Sainte RroSainte Sélavy, héroine, SQ)
14 Brumaire An CCXIX
2010-W44-4T11:31:18Z

 

[needz]

Re : VBA question basique sur if then sur valeurs nulles (novice)

Merci à tous 🙂