Contrôle de colonne au lieu de cellule par cellule

[Arnaud dit Citro]

Bonjour à tous,

Sur l'une de mes feuilles, je souhaite contrôler que si les cellules de la colonne A à partir de A4 sont différentes de "" et que celles correspondantes de la colonne J à partir de J4 sont différentes de "Inexistant", cela lance un userform sinon un message d'erreur.

Dans cet optique, j'ai créé un code :

Sub Inv_Cde_Barre()

Dim cola As Range
Dim colj As Range

Sheets("Stock").Select

Set cola = Range("A4:A15")

For Each colj In cola
    If colj.Value <> "" Then
        If colj.Offset(0, 9).Value <> "Inexistant" Then 'userform10.show
        MsgBox "Ok"
        Else: MsgBox "Certains codes sont inexistants."
        End If
    End If
    
Next colj


End Sub

Pour le moment, j'ai demandé cela sur la plage A4:A15 et j'ai mis en stand by le lancement de l'userform (remplacé par un message ok).

Le problème vient que le contrôle s'effectue cellule par cellule, et donc un message Ok ou d'erreur à chaque cellule contrôlée. Or je voudrais que cela se fasse en un coup : cela contrôle toutes les plages, si c'est bon ok sinon erreur.

Une petite idée serait la bienvenue.

Bonne journée

Arnaud

 

[Arnaud dit Citro]

Pas de soucis, j'avais rapproché avec somme.si, c'est dire si j'avais pas tout bien saisi

Oui je vais faire ça, et cela ne devrait pas tarder, je coince sur un code qui en plus, doit être le dernier de mon fichier.

Merci, à toi aussi