Ecrire en VBA " si la cellule est supérieure à 1"
Bonjour, J'ai posé une question à une personne sur le forum , qui m'a proposé une solution, qui ne fonctionne pas.
Voici ma question :
dans le code ci-dessous comment je fait pour ecrire "SI LA CELLULE EST SUPERIEURE A 1" ?
If Not Intersect(.Range("AL194"), Target) Is Nothing Then
Application.EnableEvents = False
Select Case .Range("AL194").Value
"SI LA CELLULE AL196 EST SUPERIEURE A 1"
' .Range("AL195").Value = "Avec question en attente de réponse"
Case Else
End Select
Application.EnableEvents = True
End If
End With
La solution qui m'a été proposée et qui parait conforme aux règles est la suivante (mais ne fonctionne pas dans mon cas )
With ActiveSheet
If Not Intersect(.Range("AL194"), Target) Is Nothing Then
Application.EnableEvents = False
If .Range("AL194").Value > 1 Then
.Range("AL195").Value = "Avec question en attente de réponse"
End If
Application.EnableEvents = True
End If
End With
Quelqu'un aurait une idée ?
D'avance merci !
Bonjour Eric,
Il y a-t-il un message d'erreur? si oui, quel est le nom du message et sur quelle ligne du code il pointe quand tu clic sur Débogage. Merci
Cldt.
Bonjour, merci pour ton retour,
ton message m'a fait tilt en fait, j'ai trouvé, c'était tout con en fait, ma colonne AL était en dehors de mon tableau...
La honte !
Merci pur ton retour !
Re,
HaHa tkt ça arrive, Bonne continuation sur ton fichier Excel!
Cldt.
Attends, non en fait...
Je ne sais pas ce qui se passe mais ça ne fonctionne pas...
Je peux t'envoyer le fichier en MP ?
Ben j'ai trouvé en fait, j'ai décalé d'une colonne le tableau et ça fonctionne... j'avoue que je ne comprend pas trop pourquoi mais ça fonctionne alors ça me va !
Merci pour ton aide ;)
Eric
Excusez, encore moi, je rencontre encore des difficultés à faire fonctionner le code...
Quelqu'un peut-il me donner la main svp ?
En pièce jointe, le code.
L'idée, c'est quand on rajoute "1" (ou n'importe quel chiffre en fait) , dans le range AL23:AL163, la somme est faite en AL164.
Et en AL 165, devrait ête renseigné automatiquement : "question(s)ont été posée dans ce dashboard"
Seulement ça ne fonctionne pas !
D'avance merci !
Eric