Recopie macro sur plusieurs lignes

Bonjour,

J'ai un bon de commande avec 10 lignes pour les articles. je souhaite empêcher l'enregistrement si un code n'est pas rentré en colonne A si la référence en colonne B est rempli.

J'ai réussi pour la première ligne 22 mais je n'arrive pas à recopier cette formule de 23 à 31. J'ai essayé de mettre la plage mais il bloque et je ne suis pas très à l'aide en vba. Il y a un fichier joint pour comprendre.

Voici mon code :

If Range("b22") = "" Then

Range("a22").Select

Exit Sub

End If

If ActiveCell.Address <> Range("b22") And Range("a22") = "" Then

MsgBox ("Merci de remplir le code nomenclature ou nacre")

Range("b22").Select

End If

Merci de votre aide

A bientôt

Fleur

Bonjour Fleur,

A essayer :

For i = 22 To 31
    If Range("B" & i) = "" Then
        Range("A" & i).Select
        Exit Sub
     End If
     If ActiveCell.Address <> Range("B" & i) And Range("A" & i) = "" Then
         MsgBox ("Merci de remplir le code nomenclature ou nacre")
         Range("B" & i).Select
     End If
 Next i
    

Cordialement,

Bonjour IronBoule et merci mais malheureusement non ça ne fonctionne pas

Re,

J'avais juste complété le code sans trop le regarder... Je pense que l'une des conditions n'est plus correcte.

A essayer :

ça ne fonctionne pas chez moi quand je me mets en cellule B23 et que je rentre du texte et que j'essaie de fermer je n'ai pas le message d'erreur.

ça fonctionne chez toi ?

Fleur

Oui, ça fonctionne bien chez moi, bizarre... Je viens de tester et ça fonctionne bien.

Dans ton test tu n'as rien mis en B22 juste en B23 ?

Essayes avec cette version :

J'ai enlevé le test avec l'exit sub qui je pense, faisait ton blocage pour l'anomalie.

Merci à toi, ça fonctionne