bonjour a tous
voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon
code.
Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells
Set c = .Find(DTPicker1.Value)
If Not c Is Nothing Then
MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
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
michdenis
Bonjour Jerome,
Si tu veux avoir de l'aide, il faut d'abord que tu expliques ce que tu cherches et le résultat que tu désires obtenir. En attendant, lis l'aide sur la méthode Find dans l'aide.. ça peut aider. Il y a aussi un texte sur le sujet sur le xlwiki à Misange.. je t'ai donné l'adresse sur une de tes ficelles hier.
Salutations!
"Jerome SABATHIE" a écrit dans le message de news: 443798d0$0$6655$ bonjour a tous voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon code. Private Sub DTPicker1_CloseUp() With Worksheets(1).Cells Set c = .Find(DTPicker1.Value) If Not c Is Nothing Then MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
Bonjour Jerome,
Si tu veux avoir de l'aide, il faut d'abord que tu expliques ce que tu cherches et
le résultat que tu désires obtenir.
En attendant, lis l'aide sur la méthode Find dans l'aide.. ça peut aider.
Il y a aussi un texte sur le sujet sur le xlwiki à Misange.. je t'ai donné l'adresse
sur une de tes ficelles hier.
Salutations!
"Jerome SABATHIE" <jerome.tania@wanadoo.fr> a écrit dans le message de news: 443798d0$0$6655$8fcfb975@news.wanadoo.fr...
bonjour a tous
voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon
code.
Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells
Set c = .Find(DTPicker1.Value)
If Not c Is Nothing Then
MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
Si tu veux avoir de l'aide, il faut d'abord que tu expliques ce que tu cherches et le résultat que tu désires obtenir. En attendant, lis l'aide sur la méthode Find dans l'aide.. ça peut aider. Il y a aussi un texte sur le sujet sur le xlwiki à Misange.. je t'ai donné l'adresse sur une de tes ficelles hier.
Salutations!
"Jerome SABATHIE" a écrit dans le message de news: 443798d0$0$6655$ bonjour a tous voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon code. Private Sub DTPicker1_CloseUp() With Worksheets(1).Cells Set c = .Find(DTPicker1.Value) If Not c Is Nothing Then MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
Clément Marcotte
Bonjour,
Avec des cellules au "vrai" format de date, ie numérique avec format d'affichage en date, cela marche chez-moi. Sur une colonne de 3 dates avec 2 dates pareilles, il sélectionne la première.
Avec des cellules au format texte, il ne ramène rien, même si la date est affichée avec la même présentation que la date du dtpicker
"Jerome SABATHIE" a écrit dans le message de news: 443798d0$0$6655$
bonjour a tous voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon code. Private Sub DTPicker1_CloseUp() With Worksheets(1).Cells Set c = .Find(DTPicker1.Value) If Not c Is Nothing Then MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
Bonjour,
Avec des cellules au "vrai" format de date, ie numérique avec format
d'affichage en date, cela marche chez-moi. Sur une colonne de 3 dates avec 2
dates pareilles, il sélectionne la première.
Avec des cellules au format texte, il ne ramène rien, même si la date est
affichée avec la même présentation que la date du dtpicker
"Jerome SABATHIE" <jerome.tania@wanadoo.fr> a écrit dans le message de news:
443798d0$0$6655$8fcfb975@news.wanadoo.fr...
bonjour a tous
voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici
mon code.
Private Sub DTPicker1_CloseUp()
With Worksheets(1).Cells
Set c = .Find(DTPicker1.Value)
If Not c Is Nothing Then
MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
Avec des cellules au "vrai" format de date, ie numérique avec format d'affichage en date, cela marche chez-moi. Sur une colonne de 3 dates avec 2 dates pareilles, il sélectionne la première.
Avec des cellules au format texte, il ne ramène rien, même si la date est affichée avec la même présentation que la date du dtpicker
"Jerome SABATHIE" a écrit dans le message de news: 443798d0$0$6655$
bonjour a tous voici mon soucis mon dt picker ne rouve pas mes date en colonne a voici mon code. Private Sub DTPicker1_CloseUp() With Worksheets(1).Cells Set c = .Find(DTPicker1.Value) If Not c Is Nothing Then MsgBox c & " - " & DTPicker1.Value & " - " & Range("a").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
