Sur Fonction range

bonjour a tous

j'ai ce code ci dessous....

je cherche que lorsque h3 est egal a 1 que ce code ne s'effectue pas.

si quelqu'un peut m'aider

merci merci

  Dim J As Long

 For J = 1 To Range("bi" & Rows.Count).End(xlUp).Row

  If Application.CountIf(Columns(61), Range("bl" & J)) > 1 Then

      MsgBox "CE N° DE COMMANDE EXISTE DEJA POUR CE FOURNISSEUR"
      MsgBox "SAISIR UN AUTRE N°"
     Unload Me

      Exit Sub
End If
  Next J

bonjour,

Pas de tranche de saucisson une Sub commence par Sub... et se finit par End Sub

Prend l'habitude de toujours joindre un bout de classeur ki va bien avec a macro :

Essaie :

If Range("H3") <> 1 then
'... Ton Laïus
End if

A+

Génial merci Galopin1

merci merci