WorksheetFunction.VLookup

[nikkyb]

Bonjour,

j'ai du mal à effectuer une rechercheV en VBA explication :

Dans la feuil "encaissement client" j'incrémente un numéro grace à un bouton :

Private Sub cmdplusun_Click()
Dim Derli As Integer 'Variable pour connaitre le numéro de derniere ligne vide

Derli = Sheets("encaissement client").Range("A65536").End(xlUp).Row + 1 ' On identifie la dernière ligne vide en partant du bas
With Sheets("encaissement client") 'ici changer nom de ta feuille
.Cells(Derli, 1).Value = Application.WorksheetFunction.Max(.Range("A:A")) + 1
.Cells(Derli, 7).Value = 0


UserForm_Initialize
End With
End Sub

J'ai une autre feuil 'Détail" dans lequel on retrouve ces numéro et en colonne B, on retrouve le nom du client, j'aimerais donc que le nom du client s'inscrive automatiquement (comme une rechercheV).
J'ai donc vu quelque truc sur ca :WorksheetFunction.VLookup mais je n'arrive pas à le mettre en application.....

PS le code sur feuil fonctionne de cette maniere : =SI(ESTNA(RECHERCHEV(A35;tableaudetail;2;0));"";RECHERCHEV(A35;tableaudetail;2;0))

Merci par avance!!

 

[kjin]

Re : WorksheetFunction.VLookup

Bonsoir,
Ou doit s'inscire le résultat, mystère et ...
Alors msgbox

With Sheets("encaissement client")
    Derli = .Range("A65536").End(xlUp).Row + 1
    NewNo = Application.WorksheetFunction.Max(.Range("A:A")) + 1
    .Cells(Derli, 1).Value = NewNo
    .Cells(Derli, 7).Value = 0
End With
With Sheets("Détail")
    'solution 1
    Set c = .Columns(1).Find(NewNo)
    If Not c Is Nothing Then MsgBox c.Offset(, 1)
    ' solution 2
    'MsgBox Application.VLookup(NewNo, .Range("A:B"), 2, 0)
End With

A+
kjin

 

[nikkyb]

Re : WorksheetFunction.VLookup

Salut
merci pour la réponse.
Par contre j'ai eu plusieur méssage d'erreur de type variable non défini :

Variable non défini pour derli, pour NewNo et C donc j'ai rajouté a mes variables :

Option Explicit
Dim rgencaisseclient, rgrecuperedetail, Derli, NewNo, C As Range

Aprés ca quand je clique sur le bouton j'ai un méssage avec le nom de l'entreprise mais celle ci ne s'affiche pas dans la feuil ni dans la listview ?? une idée.....🙄


Merci par avance 🙂

PS le resultat doit s'afficher en colonne B de encaissement client.

 

[kjin]

Re : WorksheetFunction.VLookup

Bonsoir,

une idée.....

Oui, sans doute avec un bout de fichier...
A+
kjin

 

[nikkyb]

Re : WorksheetFunction.VLookup

Salut
voici un bout de fichié

Feuil détail dans laquelle ont trouve les données

Feuil encaissement client dans laquel nous avon un bouton +1 quand on clique sur ce bouton, la 1ere colonne est une incrémentation (ca s'est bon) puis il faudrais qu'apparaise le nom de l'entreprise ainsi que le montant lié au numéro.

PS tu trouvera des explication dans le fichié



Merci beaucoup!!

 

[kjin]

Re : WorksheetFunction.VLookup

Re,

Private Sub cmdplusun_Click()
Dim Derli As Integer, NewNo, c As Range
With Sheets("encaissement client")
    Derli = Sheets("encaissement client").Range("A65536").End(xlUp).Row + 1
    NewNo = Application.WorksheetFunction.Max(.Range("A:A")) + 1
    Set c = Sheets("Détail").Columns(1).Find(NewNo)
            If Not c Is Nothing Then MsgBox c.Offset(, 1)
            .Cells(Derli, 1).Value = NewNo
            .Cells(Derli, 2).Value = c.Offset(0, 1)
            .Cells(Derli, 3).Value = c.Offset(0, 13)
End With
UserForm_Initialize

End Sub

Désolé mais pour le reste je n'est rien compris à la manière dont cette chose doit fonctionner, d'autant que tu fais appel à des fonctions qui bug parce que tes cellules sont vides
A+
kjin

 

[nikkyb]

Re : WorksheetFunction.VLookup

Salut aprés quelque essaie ca a l'air parfait 🙂

Sait tu comment je pourrais lui dire que si il ne trouve pas de numéro dans le feuille "Détail" alors il indique un message " veuillez creer une nouvelle session" et annuler l'action car a lors actuel il fait buguer l'application

Merci beaucoup!