Comment utilise t on la fonction rechercher avec une valeur issue d'un textbox
8 réponses
Alex
Bonjour =E0 tous,
J'ai enregistr=E9 avec l'eregitreur une macro la fonction Rechercher,
(Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro
pour l'adapter =E0 une valeur issue d'une textbox. J'ai donc modifier la
valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans
guillement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
Essaie comme ceci Cells.Find(What:Íate(Me.TextBox1.Value), After........
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher, (Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans guillement.
Essaie comme ceci
Cells.Find(What:Íate(Me.TextBox1.Value), After........
--
Salutations
JJ
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
e09060b4-4354-4ef0-85d5-bce74ad1f90c@b2g2000yqi.googlegroups.com...
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher,
(Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro
pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la
valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans
guillement.
Essaie comme ceci Cells.Find(What:Íate(Me.TextBox1.Value), After........
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher, (Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans guillement.
Re... Avec une petite gestion d'erreur '------------ Private Sub CommandButton1_Click() Dim MaDate As Object Set Madate = Cells.Find(What:Íate(Me.TextBox1), After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse) '''********* If Madate Is Nothing Then MsgBox "Date non trouvée" Else Madate.Activate End If '''********* Unload UserForm1 End Sub '------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj201001/cijW60zWuN.xls
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher, (Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans guillement.
Re...
Avec une petite gestion d'erreur
'------------
Private Sub CommandButton1_Click()
Dim MaDate As Object
Set Madate = Cells.Find(What:Íate(Me.TextBox1), After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:úlse, SearchFormat:úlse)
'''*********
If Madate Is Nothing Then
MsgBox "Date non trouvée"
Else
Madate.Activate
End If
'''*********
Unload UserForm1
End Sub
'------------
Voir ici
http://www.cijoint.fr/cjlink.php?file=cj201001/cijW60zWuN.xls
--
Salutations
JJ
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
e09060b4-4354-4ef0-85d5-bce74ad1f90c@b2g2000yqi.googlegroups.com...
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher,
(Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro
pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la
valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans
guillement.
Re... Avec une petite gestion d'erreur '------------ Private Sub CommandButton1_Click() Dim MaDate As Object Set Madate = Cells.Find(What:Íate(Me.TextBox1), After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse, SearchFormat:úlse) '''********* If Madate Is Nothing Then MsgBox "Date non trouvée" Else Madate.Activate End If '''********* Unload UserForm1 End Sub '------------ Voir ici http://www.cijoint.fr/cjlink.php?file=cj201001/cijW60zWuN.xls
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour à tous,
J'ai enregistré avec l'eregitreur une macro la fonction Rechercher, (Ex 25/01/2010)
Puis de modifier la ligne de commande issue de l'enregistreur de Macro pour l'adapter à une valeur issue d'une textbox. J'ai donc modifier la valeur entre guillemenet, ici "25/01/2010" par Me.Textbox.value sans guillement.
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro.
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas
d'une valeur texte ? ou d'un montant (chiffre) ?
Merci par avance de ta réponse.
Alex
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Jacky
Re.. Essaie.. '------------ X = Me.TextBox1 If IsDate(Me.TextBox1) Then X = CDate(Me.TextBox1) Set MaDate = Cells.Find(What:=x, After...... '------------
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Re..
Essaie..
'------------
X = Me.TextBox1
If IsDate(Me.TextBox1) Then X = CDate(Me.TextBox1)
Set MaDate = Cells.Find(What:=x, After......
'------------
--
Salutations
JJ
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
a406fded-9aa3-40d5-8ad1-ad647ca9a359@m25g2000yqc.googlegroups.com...
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro.
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas
d'une valeur texte ? ou d'un montant (chiffre) ?
Merci par avance de ta réponse.
Alex
Re.. Essaie.. '------------ X = Me.TextBox1 If IsDate(Me.TextBox1) Then X = CDate(Me.TextBox1) Set MaDate = Cells.Find(What:=x, After...... '------------
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Jacky
Re.. Essaie.. '------------ x = Me.TextBox1 If IsDate(Me.TextBox1) And Len(Me.TextBox1) = 10 Then x = CDate(Me.TextBox1) Set MaDate = Cells.Find(What:=x, After...... '------------
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Re..
Essaie..
'------------
x = Me.TextBox1
If IsDate(Me.TextBox1) And Len(Me.TextBox1) = 10 Then x = CDate(Me.TextBox1)
Set MaDate = Cells.Find(What:=x, After......
'------------
--
Salutations
JJ
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
a406fded-9aa3-40d5-8ad1-ad647ca9a359@m25g2000yqc.googlegroups.com...
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro.
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas
d'une valeur texte ? ou d'un montant (chiffre) ?
Merci par avance de ta réponse.
Alex
Re.. Essaie.. '------------ x = Me.TextBox1 If IsDate(Me.TextBox1) And Len(Me.TextBox1) = 10 Then x = CDate(Me.TextBox1) Set MaDate = Cells.Find(What:=x, After...... '------------
-- Salutations JJ
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Mishell
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ?
Pour une valeur texte (String en anglais), utilise CSTR (convertir en STRING)
Pour un chiffre, utilise CDBL (convertir en DOUBLE)
Mishell
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas
d'une valeur texte ? ou d'un montant (chiffre) ?
Pour une valeur texte (String en anglais), utilise CSTR (convertir en
STRING)
Pour un chiffre, utilise CDBL (convertir en DOUBLE)
Mishell
"Alex" <alex-m@orange.fr> a écrit dans le message de news:
a406fded-9aa3-40d5-8ad1-ad647ca9a359@m25g2000yqc.googlegroups.com...
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro.
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas
d'une valeur texte ? ou d'un montant (chiffre) ?
Merci par avance de ta réponse.
Alex
Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ?
Pour une valeur texte (String en anglais), utilise CSTR (convertir en STRING)
Pour un chiffre, utilise CDBL (convertir en DOUBLE)
Mishell
"Alex" a écrit dans le message de news:
Bonjour Jacky,
Merci pour ta réponse, cela m'a permis de continuer ma macro. Peux tu me dire ce qu'il faut mettre à la place de CDate, dans le cas d'une valeur texte ? ou d'un montant (chiffre) ? Merci par avance de ta réponse. Alex