Comment dire à Excel VBA : Si valeur non présente dans colonne alors ok

[AURACLE68]

Amis Excellien,

Je sollicite votre aide, (encore et encore,... me direz vous !)

En effet, je tourne en rond parce que dans ma routine, je n'arrive pas à dire (en VBA). Ceci

Si valeur1 déjà présente dans cette feuille, alors Exit if

Merci par avance de votre aide à tous.

Amicalement Michel.

 

[AURACLE68]

Re : Comment dire à Excel VBA : Si valeur non présente dans colonne alors ok

Re bonjour,

Je teste cette formule VBA pour m'aider mais ça marche pas, le but c'est qu'il recherche dans la colonne 1 si la donnée est déjà présente, et je n'arrive pas, voici la ligne qui coince. Une âme charitable pour m'aider.

If Application.VLookup(RFS, Range("a1:a" & rfs2), 1, 0) <> crfs2 Then

rfs déclarer comme variable et crfs2 aussi

 

[DoubleZero]

Re : Comment dire à Excel VBA : Si valeur non présente dans colonne alors ok

Bonjour, AURACLE68, le Forum

Peut-être ainsi :

Option Explicit
Sub Toto_si()
    Application.ScreenUpdating = False
    Dim c As Range, plage As Range
    Set plage = Columns(1)
    On Error Resume Next
    If Application.WorksheetFunction.CountIf(plage, 1) >= 1 Then
        Exit Sub
        Else:
        Call Toto
    End If
    Application.ScreenUpdating = True
End Sub
Sub Toto()
    MsgBox "Le 1 est absent !"
End Sub

A bientôt 🙂

 

[AURACLE68]

Re : Comment dire à Excel VBA : Si valeur non présente dans colonne alors ok

Merci beaucoup doublezero, ca marche nickel, merci beaucoup de ton aide.