Trouver la ligne d'une donnée via la commande Row

Version imprimable

Bonjour !

Je travail actuellement sur une macro pour mon taff et une section de mon code me pose problème :
Code:

1 2 3 4 5 6 7 If Sheets("Base de donnée client").Columns("A:A").Find(nomClient) Is Nothing Then client = False MsgBox (nomClient & " n'a pas été trouvé dans la base de donnée, veuillez remplir une fiche de renseignements") Exit Sub Else incrémentationClient = Sheets("Base de donnée client").Columns("A:A").Find(nomClient).Row End If
Je n'ai pas défini ma variable incrémentationClient.

J'utilise Excel 2016.

Le but de cette section est de localiser le client dans la base de donnée pour pouvoir, ensuite, obtenir les informations liées. Lorsque j'exécute ma macro, j'obtiens le message d'erreur "Incompatibilité de type". Je ne comprends pas ce qui ne marche pas... Est-ce que quelqu'un aurait une idée ??

Merci :)

Bonjour
pour moi je fais avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim F As Worksheet
Dim plage As Range
Dim C As Range
Dim nomClient As String
Set F = Sheets("Base de donnée client")
Set plage = F.Columns("A:A")
nomClient = F.Cells(1, "F")
Set C = plage.Find(nomClient, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
incrémentationClient = C.Row
F.Cells(1, "G") = incrémentationClient
Else
MsgBox (nomClient & " n'a pas été trouvé dans la base de donnée, veuillez remplir une fiche de renseignements")
End If
End Sub

15/09/2023, 16h56
luxo_m

Ça marche ! Merci beaucoup pour votre aide :)