Si(Nom >= A) en VBA

Bonjour à toutes et tous,

Voici mon problème,

J'ai une macro que je veux déclencher si 3 conditions sont remplies, pas de souci, si les conditions sont des chiffres, mais en revanche l'une d'entre elles est remplie par des noms, donc des lettres, et là je ne trouve pas la solution.

Je vous joins le code que j'utilise :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub variables() If IsNumeric(Range("A3")) Then 'SI NUMERIQUE Dim Reglement As Integer, Intervenant As Integer, Nom As Integer Reglement = Range("A1") Intervenant = Range("A2") Nom = Range("C1") If Reglement >= 1 And Intervenant >= 1 And Nom >= "A" Then 'SI CORRECT Range("A3").Select Selection.Copy Range("P3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Else 'SI INCORRECT MsgBox "Donnée(s) manquante(s) !" Range("P3").ClearContents End If End If End Sub
C'est sur cette ligne que je ne trouve pas la solution

If Reglement >= 1 And Intervenant >= 1 And Nom >= "A" Then 'SI N° CORRECT

Si j'enlève le "A" et que je le remplace par un chiffre dans la formule, le code fonctionne, mais ce n'est pas ce que je veux, puisque la cellule contient des
lettres.

Alors quelqu'un parmi vous peut m'apporter la solution, ce serait sympa.

Cordialement

Dubdub22

Salut, à consulter ici

Bonjour,

Citation:

C'est sur cette ligne que je ne trouve pas la solution
If Reglement >= 1 And Intervenant >= 1 And Nom >= "A" Then 'SI N° CORRECT

A moins d'avoir utilisé un "On Error" que tu nous caches, je suis très étonné que tu n'aies pas eu un beau message d'erreur sur cette ligne qui t'indiquerait tout de suite où est le problème.

Le même message aurait dû d'ailleurs apparaître à la ligne 6 de ta procédure (ci-dessous), si le contenu de C1 était une chaîne de caractères.

Code:

Nom = Range("C1")

As-tu fais tourner ton programme ?

Bonjour
et si simplement tu testais si la cellule contient une donnée, cela sera serait il suffisant

Code:

If Reglement >= 1 And Intervenant >= 1 And Nom <> "" Then

heu..

bonjour

Code:

1
2
3
4
5
6
7
Sub variables()
    Dim ok As Boolean
    ok = IsNumeric(Range("A3")): ok = Range("A1") >= 1
    ok = Range("A2") >= 1:ok = Range("C1") <> ""
    Range("P3") = IIf(ok, Range("A3").Value, "")
    If ok = False Then MsgBox "Donnée(s) manquante(s) !"
End Sub

;)

j'edit parceque j'ai fait une monumentale erreur

c'est plutot ca

Code:

1
2
3
4
5
6
7
8
9
Sub variables()
    Dim ok As Boolean
    ok = IsNumeric(Range("A3"))
    ok = IIf(ok, Range("A1") >= 1, False)
    ok = IIf(ok, Range("A2") >= 1, False)
    ok = IIf(ok, Range("C1") <> "", False)
    Range("P3") = IIf(ok, Range("A3").Value, "")
    If ok = False Then MsgBox "Donnée(s) manquante(s) !"
End Sub