Discussion :

[luxo_m]

Bonjour !

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :)

[BENNASR]

Bonjour
pour moi je fais avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[luxo_m]

Ça marche ! Merci beaucoup pour votre aide