Erreur d'exécution 1004 impossible de lire la propriété VLookup de la classe Wof
SIMO
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, Merci de m aider pour résoudre ce problème
Private Sub txtarticl_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("Stock initial").Range("A:A"), Me.txtarticl.Value) = 0 Then
MsgBox "ce code est inexsitant, veuillez retapez un autre code", vbInformation + vbOKOnly, "code introuvable"
End If
With Me
.txtdesignation = Application.WorksheetFunction.VLookup(CLng(Me.txtarticl), Sheets("Stock initial").Range("Tableau_stock_hygiène"), 2, 0)
.txtstock = Application.WorksheetFunction.VLookup(CLng(Me.txtarticl), Sheets("Stock initial").Range("Tableau_stock_hygiène"), 3, 0)
End With
End Sub
Private Sub txtarticl_AfterUpdate()
If WorksheetFunction.CountIf(Sheets("Stock initial").Range("A:A"), Me.txtarticl.Value) = 0 Then
MsgBox "ce code est inexsitant, veuillez retapez un autre code", vbInformation + vbOKOnly, "code introuvable"
End If
With Me
.txtdesignation = Application.WorksheetFunction.VLookup(CLng(Me.txtarticl), Sheets("Stock initial").Range("Tableau_stock_hygiène"), 2, 0)
.txtstock = Application.WorksheetFunction.VLookup(CLng(Me.txtarticl), Sheets("Stock initial").Range("Tableau_stock_hygiène"), 3, 0)
End With
End Sub
Configuration: Windows / Chrome 89.0.4389.114
A voir également:
- Impossible de lire la propriété vlookup de la classe worksheetfunction
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Lire epub - Guide
- Lire fichier bin - Guide
- Comment lire un message supprimé sur whatsapp - Guide
- Lire iso - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
ne serait-ce pas parce que la recherche ne trouve pas ce qui est cherché?
ne serait-ce pas parce que la recherche ne trouve pas ce qui est cherché?
