Discussion :

[dubdub22]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kiki29]

Salut, à consulter ici

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom = Range("C1")

As-tu fais tourner ton programme ?

[keygen08]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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