Bonjour à tous,
Tout d'abord, merci à vous tous pour le soutien que vous apportez aux débutants dont je fais partie. Vos conseils et astuces m'ont permis d'apprendre rapidement les rudiments du VBA.
Mon problème actuel est l'utilisation de la fonction .find sous excel 97.
Bien entendu, lorsque j'ai crée mon outil, c'était avec Excel 2002, sans penser que certains utilisateurs n'auraient que 97 !
Mon objectif est d'obtenir des données dans des labels (eux-même figurant dans userform), à partir d'un choix effectué sur une Combobox.
L'opération fonctionne très bien avec Excel 2002 et se présente sous la forme :
Private Sub UserForm_Initialize()
CboRestitNomBis.RowSource = ('pif!Nom')
End Sub
Private Sub CmdConsultSimpleBis_Click()
NumNom = CboRestitNomBis.Value
With Sheets('pif').Range('a:a')
Set C = .Find(NumNom, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then Lig = C.Row
End With
Unload UsfConsultSimple
UsfEnCoursSimple.Show
End Sub
J'ai lu que l'on pouvait contourner le problème par :
Function TrouverMot(PlageDeRecherche As Range, mot As String)
Set zz = Range(PlageDeRecherche.Find(what:='' & mot).Address)
TrouverMot = zz.Address
End Function
Mais, j'ai du mal écrire mon module car cela ne fonctionne pas
'Erreur de compilation, argument attendu...'
Si vous aviez des solutions, je vous en serais reconnaissant.
Merci d'avance
M
Tout d'abord, merci à vous tous pour le soutien que vous apportez aux débutants dont je fais partie. Vos conseils et astuces m'ont permis d'apprendre rapidement les rudiments du VBA.
Mon problème actuel est l'utilisation de la fonction .find sous excel 97.
Bien entendu, lorsque j'ai crée mon outil, c'était avec Excel 2002, sans penser que certains utilisateurs n'auraient que 97 !
Mon objectif est d'obtenir des données dans des labels (eux-même figurant dans userform), à partir d'un choix effectué sur une Combobox.
L'opération fonctionne très bien avec Excel 2002 et se présente sous la forme :
Private Sub UserForm_Initialize()
CboRestitNomBis.RowSource = ('pif!Nom')
End Sub
Private Sub CmdConsultSimpleBis_Click()
NumNom = CboRestitNomBis.Value
With Sheets('pif').Range('a:a')
Set C = .Find(NumNom, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then Lig = C.Row
End With
Unload UsfConsultSimple
UsfEnCoursSimple.Show
End Sub
J'ai lu que l'on pouvait contourner le problème par :
Function TrouverMot(PlageDeRecherche As Range, mot As String)
Set zz = Range(PlageDeRecherche.Find(what:='' & mot).Address)
TrouverMot = zz.Address
End Function
Mais, j'ai du mal écrire mon module car cela ne fonctionne pas
'Erreur de compilation, argument attendu...'
Si vous aviez des solutions, je vous en serais reconnaissant.
Merci d'avance
M
