Pb variable avec application.match

Bonjour à tous, et j'espère que vous passez de bonnes fêtes,

Je reviens vers vous avec mes questions de débutant qui comprend la moitié des choses qu'il fait... et du coup j'espère un petit coup de pouce.

J'obtiens une erreur exécution 13 incompatibilité de type avec le code ci-dessous sur la ligne

If col > "" Then

J'ai compris que c'est lié à une mauvaise définition de la variable col.

Ce que je veux, c'est que le contenu de la cellule (3,134) qui est un nom soit comparé à ceux contenus dans la colonne A1 et que ça déclenche les conditions.

Dim col As Variant

col = Application.Match(Sheets("saisie").Cells(3, 134), Columns(1), 0)

If col > "" Then 'si le nom apparait dans la colonne
ComboBox2.Value = Sheets("Saisie").Cells(col, 2).Value
...
ElseIf col = "" Then  'si le nom n'apparaît pas
Sheets("Formulaire").Range("a1").Select
...

Si vous avez un conseil je suis preneur.

Merci d'avance à toutes et tous.

Bonjour,

De ce que je comprends !?

Dim rw As Variant
    On Error Resume Next
    rw = Application.Match(Worksheets("saisie").Cells(3, 134).Value, Columns(1), 0)
    If Not IsError(rw) Then
        ComboBox2.Value = Worksheets("Saisie").Cells(rw, 2).Value
    Else
        Worksheets("Formulaire").Cells(1).Select
    End If

Cdlt.

Bonjour à tous,

dim col as long

col = Application.Match(Sheets("saisie").Cells(3, 134).value, sheets("Saisie").Columns(1), 0)

A noter que la variable col renvoie un numéro de ligne ici . Il pourrait être plus simple de la nommer lig par exemple.

On est bien d'accord que la cellule (3, 134) est la cellule à la ligne 3 et à la colonne 134 ?

Cdlt,

Merci pour vos réponses.

On est bien d'accord que la cellule (3, 134) est la cellule à la ligne 3 et à la colonne 134 ?

Absolument

Je vais tester vos propositions. Je vous fais un retour rapidement.

Merci d'avoir pris le temps de me répondre.