Discussion :

[Laura92300]

Bonjour,

Je suis plus que novice en VBA d'où la question très primaire que je vais poser.

J'aimerais que :
si dans ma cellule AG309 est indiqué un nombre
alors dans ma cellule AG310 remonte automatiquement le chiffre 1.

En regardant des posts dans différents forums, j'ai trouvé des lignes de code que j'ai essayé d'adapter à mon besoin et voici ce que j'ai écrit :


If Not IsEmpty(Range("AG309")) Then
Range("AG310").Select
Range("AG310") = "1"

Else

Range("AG310") = ""


Comme vous pouvez vous en douter, ça ne fonctionne pas.

Pouvez-vous m'aider svp.

Cordialement,

Laura

[Igloobel]

Bonjour,

là tu demandes (Si c'est pas vide alors je met 1 en cellule AG310)

je pense que "IsNumeric" serait plus adapté

sinon quelques remarques

- personellement à :

Code :

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

Range("AG310") = "1"

je préfère

Code :

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

Range("AG310").Value = "1"

- lorque tu mets "1" c'est que tu mets un chiffre 1 en mode texte. Est-ce bien ce que tu veux ?
- Utilise les Balises Code (le #) c'est plus propre lorque l'on pose un Code

Tu modifies tu essayes et tu dis si cela marche ou pas

A bientôt

[Philippe Tulliez]

Bonjour,
Pour tester un nombre c'est IsNumeric

Code :

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

1
2
3
4
5
 If IsNumeric(Range("A1").Value) Then
   Range("b1") = 1
  Else
  Range("B1") = ""
 End If

ou

Code :

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

 If IsNumeric(Range("A1").Value) Then Range("b1") = 1 Else Range("B1") = ""

Si l'instruction If est sur une ligne le End If ne peut pas être placé.

]EDIT]
Désolé Igloobel je n'avais pas vu ta réponse au moment de l'envoi de la mienne

[Laura92300]

Bonjour,

Merci beaucoup pour vos retours rapides mais ça ne fonctionne pas Je ne dois surement pas bien écrire ce que vous m'avez communiqué.

Le 1 s'affiche bien dans la cellule AG310 mais de façon constante, pas quand AG309 est quantifiée et c'est pour moi la seule condition pour faire remonter le 1 dans AG310.

Merci pour votre aide

Laura

[lionel86500]

Bonjour,

quand tu dis que ca ne fonctionne pas, c'est quand ta cellule A1 est vide.
et a ce moment la il la considère comme numérique.
si c'est ce cas prends ceci

Code :

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

1
2
3
4
5
6
 
If IsNumeric(Range("A1").Value) And Range("A1").Value <> "" Then
   Range("b1") = 1
  Else
  Range("B1") = ""
 End If

[Philippe Tulliez]

Bonjour,
Dans ce cas, il faut faire deux tests. L'un pour vérifier si la cellule a un contenu numérique et l'autre pour vérifier qu'il y a au moins un caractère
Exemple

Code :

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

1
2
3
4
5
 If IsNumeric(Range("A1").Value) And Len(Range("A1").Value) > 0 Then
   Range("b1") = 1
  Else
   Range("B1") = ""
 End If

[Menhir]

A mon avis, pour obtenir ce que tu recherches, tu devrais plutôt faire une fonction personnalisée.

Je vais reprendre le code de Philippe (excuse-moi Lionel, ton code est aussi bon, j'ai tiré à "pile ou face" ) en le simplifiant.

Dans un module VBA, tu tapes :

Code :

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

1
2
3
4
Function MonNum(Source As Range) As Variant
MonNum = ""
If IsNumeric(Source.Value) And Len(Source.Value) > 0 Then MonNum = 1
End Function

Ensuite, tu écris en B1

Code :

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

=MonNum(A1)

Et tu auras exactement ce que tu souhaites et en dynamique. C'est à dire que si tu changes le contenu de A1, B1 se mettra tout seul à jour.

Et, cerise sur le gâteau, tu pourras l'utiliser cette fonction pour connaitre l'état (numérique ou non) de n'importe quelle cellule et récupérer le résultat dans n'importe quelle cellule, sans avoir à toucher au code, juste en changeant la référence dans la fonction MonNum que tu pourras placer n'importe où.

[Laura92300]

Merci beaucoup à vous tous pour vos réponses.
Grace à votre aide, ça fonctionne
Bonne journée,
Laura

[Philippe Tulliez]

Bonjour,
On pouvait faire le test avec une simple formule d'excel et dans ce cas de figure, il ne faut pas vérifier si la cellule est vide car elle n'est pas considérée alors comme numérique. Seul bémol une date est considérée comme une valeur numérique.

Code :

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

=SI(ESTNUM(A1);1;"")