bonjour,
j'ai un userform avec un dtpicker dessus et se 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("d22").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
End Sub
quand je clic sur une date il me met erreur 1004
méthode select de la classe range a échoué pour quoi me met - il ça???
merci
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
isabelle
bonjour jerome,
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
bonjour jerome,
essaie en remplacant :
c.Select
par
Application.Goto c
isabelle
bonjour,
j'ai un userform avec un dtpicker dessus et se 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("d22").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
End Sub
quand je clic sur une date il me met erreur 1004
méthode select de la classe range a échoué pour quoi me met - il ça???
merci
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
jerome.tania
merci cela a bien fonctionné mais j'ai un petit probleme car j'avais fais une liste de date sur une colonne et il m'activait cette colonne de date alors que moi se son les dates qui se trouve en ligne qui m'interresse. qoi rajouté pour qu'il les prennent en compte?? merci "isabelle" a écrit dans le message de news: uW%
bonjour jerome,
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
merci cela a bien fonctionné
mais j'ai un petit probleme car j'avais fais une liste de date sur une
colonne et il m'activait cette colonne de date alors que moi se son les
dates qui se trouve en ligne qui m'interresse.
qoi rajouté pour qu'il les prennent en compte??
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uW%23h75lWGHA.3440@TK2MSFTNGP02.phx.gbl...
bonjour jerome,
essaie en remplacant :
c.Select
par
Application.Goto c
isabelle
bonjour,
j'ai un userform avec un dtpicker dessus et se 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("d22").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
End Sub
quand je clic sur une date il me met erreur 1004
méthode select de la classe range a échoué pour quoi me met - il ça???
merci
merci cela a bien fonctionné mais j'ai un petit probleme car j'avais fais une liste de date sur une colonne et il m'activait cette colonne de date alors que moi se son les dates qui se trouve en ligne qui m'interresse. qoi rajouté pour qu'il les prennent en compte?? merci "isabelle" a écrit dans le message de news: uW%
bonjour jerome,
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
michdenis
Bonjour Jérome,
Si tu utilises la méthode Find pour trouver une date, il y a un "bon article" sur le sujet là : http://xlwiki.free.fr/wiki/wakka.php?wiki=RechercheDate
;-)
Salutations!
"Jerome SABATHIE" a écrit dans le message de news: 443681cc$0$22714$ bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
Bonjour Jérome,
Si tu utilises la méthode Find pour trouver une date, il y
a un "bon article" sur le sujet là :
http://xlwiki.free.fr/wiki/wakka.php?wiki=RechercheDate
;-)
Salutations!
"Jerome SABATHIE" <jerome.tania@wanadoo.fr> a écrit dans le message de news: 443681cc$0$22714$8fcfb975@news.wanadoo.fr...
bonjour,
j'ai un userform avec un dtpicker dessus et se 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("d22").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
End Sub
quand je clic sur une date il me met erreur 1004
méthode select de la classe range a échoué pour quoi me met - il ça???
merci
Si tu utilises la méthode Find pour trouver une date, il y a un "bon article" sur le sujet là : http://xlwiki.free.fr/wiki/wakka.php?wiki=RechercheDate
;-)
Salutations!
"Jerome SABATHIE" a écrit dans le message de news: 443681cc$0$22714$ bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
isabelle
bonjour jerome,
essaie en remplacant : With Worksheets(1).Cells par With Worksheets(1).Range(La plage voulu) ' à adapter
isabelle
merci cela a bien fonctionné mais j'ai un petit probleme car j'avais fais une liste de date sur une colonne et il m'activait cette colonne de date alors que moi se son les dates qui se trouve en ligne qui m'interresse. qoi rajouté pour qu'il les prennent en compte?? merci "isabelle" a écrit dans le message de news: uW%
bonjour jerome,
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
bonjour jerome,
essaie en remplacant :
With Worksheets(1).Cells
par
With Worksheets(1).Range(La plage voulu) ' à adapter
isabelle
merci cela a bien fonctionné
mais j'ai un petit probleme car j'avais fais une liste de date sur une
colonne et il m'activait cette colonne de date alors que moi se son les
dates qui se trouve en ligne qui m'interresse.
qoi rajouté pour qu'il les prennent en compte??
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
uW%23h75lWGHA.3440@TK2MSFTNGP02.phx.gbl...
bonjour jerome,
essaie en remplacant :
c.Select
par
Application.Goto c
isabelle
bonjour,
j'ai un userform avec un dtpicker dessus et se 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("d22").Value
c.Select
Else
MsgBox "Aucune date ne correspond avec celle entrée !",
vbInformation
End If
End With
End Sub
quand je clic sur une date il me met erreur 1004
méthode select de la classe range a échoué pour quoi me met - il ça???
merci
essaie en remplacant : With Worksheets(1).Cells par With Worksheets(1).Range(La plage voulu) ' à adapter
isabelle
merci cela a bien fonctionné mais j'ai un petit probleme car j'avais fais une liste de date sur une colonne et il m'activait cette colonne de date alors que moi se son les dates qui se trouve en ligne qui m'interresse. qoi rajouté pour qu'il les prennent en compte?? merci "isabelle" a écrit dans le message de news: uW%
bonjour jerome,
essaie en remplacant : c.Select par Application.Goto c
isabelle
bonjour, j'ai un userform avec un dtpicker dessus et se 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("d22").Value c.Select Else MsgBox "Aucune date ne correspond avec celle entrée !", vbInformation End If End With
End Sub
quand je clic sur une date il me met erreur 1004 méthode select de la classe range a échoué pour quoi me met - il ça??? merci
