Problème VBA

[Nanard]

Bonjour à tous ,

Voici mon souci sur une facture, à l'aide d'une boite d'un InputBox et de la fonction recherchev, je recherche des clients auxquels j'ai attribué un nombre à 10 chiffres.

Le problème ne se situe pas là
Je voudrais que lorsque le client n'existe pas, que la valeur de la feuil facture de la cellule E11 soit renvoyée dans la feuil Clients sur la dernière cellule vide de la colonne B

Pour le moment j'obtient un 0 !!!

Quelqu'un peut il m'aider

Voici mon code:

Sub recherche_clients()
Dim saisie As Long
Dim DerLigne As Integer
With ActiveWorkbook.Sheets("Facture")
.Range("E10").Value = Application.InputBox(prompt:="Entrez le numéro du client ", Type:=1)
If IsError(.Range("E11").Value) Then
ActiveWorkbook.Sheets("Clients").Select
saisie = num_cli
DerLigne = Sheets("Clients").Range("B65536").End(xlUp).Row + 1
Sheets("Clients").Cells(DerLigne, 2).Value = saisie
Else
Sheets("facture").Range("A21").Select
End If
End With
End Sub

Par avance merci

Nanard

 

[Robert]

Salut Nanard, salut le forum,

Dans ce code, tu n'as ni déclaré, ni defini la variable num_cli. Donc elle prend la valeur 0 par défaut et par conséquent, Sheets("Clients").Cells(DerLigne, 2).Value = saisie inscrit 0 dans la dernière ligne vide de la colonne 2.

Mais je pense que tu n'as pas besoin de définir num_cli
tu pourrais mettre : saisie=Sheets("Facture").Range("E11").Value à la place de saisie=num_cli.

À plus,

Robert

 

[Nanard]

Bonjour robert,

effectivement je n'avais pas déclaré ni définie ma variable

merci à toi de m'avoir ouvert les yeux

J'ai déclaré et tout fonctionne normalement
bon pour ce soir encore un pti code et dodo

encore merci

@+
Nanard

 

[Yeahou]

Bonjour Nanard, Robert, le forum

Nanard, peut être pas grand chose mais tu as défini DerLigne en integer, cela provoquera une erreur si la première cellule vide a un numéro de ligne supérieur à 32 767. Une feuille excel pouvant contenir 65536 lignes, il vaut mieux définir DerLigne en Long (jusqu'à 2 147 483 647)ce qui évitera ce problème.

Cordialement, A+