Problème détection cellule vide

charlot

XLDnaute Nouveau
Bonjour à tous, j'ai un petit soucis pour faire marcher une boucle If et la détection d'une cellule vide.

J'ai deux colonnes:
- une avec les numéros d'instructions
- l'autre avec le nom de l'instruction correspondante

Ma boucle If doit vérifier si la cellule correspondante au nom de l'instruction est vide:
- si oui le fond de la case doit se colorer (en vert il me semble dans mon cas)
- si non afficher le nom de l'instruction via la boite de dialogue

Mon problème: il ne me détecte jamais la cellule vide et m'affiche toujours la boite de dialogue avec le nom de l'instruction si la cellule n'est pas vide, ou avec rien du tout si elle est vide.

Voici mon code:

Code:
Sub numero_nouvelle_instruction()

    'déclaration des variables
    Dim n°_instruction As Integer
    Dim nom_instruction As String

    n°_instruction = Cells(1, 4)
    nom_instruction = Cells(6, 5)



        If IsEmpty("nom_instruction") Then
       
        Range("nom_instruction").Interior.Color = 4


        Else: MsgBox nom_instruction & " "

   
        End If

End Sub

Si quelqu'un saurai m'aider je suis preneur !
Merci
 

Paf

XLDnaute Barbatruc
Bonjour charlot, sousou,

outre les remarques de sousou, pourquoi passer par des variables plutôt que de tester directement les cellules?

ce qui éviterait Range("nom_instruction").Interior.Color = 4 qui ne doit pas bien fonctionner ( à moins que "nom_instruction" soit une cellule nommée, et encore ....?)

les numéros d'instructions et le nom de l'instruction correspondante ne sont pas sur la même ligne ?

un classeur même succinct permettrait d'y voir plus clair.

A+
 

Discussions similaires

Statistiques des forums

Discussions
312 927
Messages
2 093 688
Membres
105 783
dernier inscrit
Maya33