Problème incompréhensible

Bonjour à tous,

je suis confronté à un problème qui à mon avis est tout bête, mais je n'arrive pas à le solutionner...

voilà mon code

Sub test()

Range("a1").Select
If IsEmpty("A1") = True Then
Range("C5").Select
End If

End Sub

Avec celui-ci, je souhaite vérifier que la cellule nommée A1 est vide. si c'est le cas, le code envoi en cellule C5, sinon on suite la suite du code.

la cellule A1 est vide (la formule =estvide(A1) renvoi vrai)

pour autant, le code ne s'exécute pas?

merci de vos retours

VL

0classeur1.xlsm (13.90 Ko)

Bonjour,

enleve simplement "=true"

If IsEmpty("A1") Then

(Si A1 est vide alors...)

et non pas si A1 est vide est vrai alors ...)

A+

Merci du retour, mais je dois louper qqch car cela ne fonctionne toujours pas???

Sub test()

Range("a1").Select
If IsEmpty("A1") = True Then
Range("C5").Select
End If

End Sub

0classeur1b.xlsm (12.30 Ko)

VL

avec le classeur modifié...

6classeur1b.xlsm (13.46 Ko)

Bonjour,

Un petit coup de Range ça aiderait bien :

Sub test()
If Range("A1") = "" Then Range("C5").Select
End Sub

A+

Bonjour Galopin,

OOPS j'avais même pas fais gaffe à ça effectivement

Hello,

enleve simplement "=true"

If IsEmpty("A1") Then

tu as sûrement du lire trop vite ce passage :

Essaie :

Sub test()

Range("a1").Select
If IsEmpty("A1") Then
Range("C5").Select
End If

End Sub

@+

Rechercher des sujets similaires à "probleme incomprehensible"