Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel perdu mon code de dt picker

perdu mon code de dt picker

4 réponses
Avatar
Jerome SABATHIE
Bonsoir,
donc j'avais un dt picker mais je n'ai plus le code, quelqu'un en aurait -il
un afin que quand je choiss la date cella m'active la cellule
concernée.sachant que entre chaque date il y a une intervalle de 10 à 12
ligne.
Merci d'avance
tania
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Daniel
Bonsoir.
Pour des dates en colonne A :

If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If

Cordialement.
Daniel
"Jerome SABATHIE" a écrit dans le message de news:
4460ed9d$0$20187$
Bonsoir,
donc j'avais un dt picker mais je n'ai plus le code, quelqu'un en
aurait -il un afin que quand je choiss la date cella m'active la cellule
concernée.sachant que entre chaque date il y a une intervalle de 10 à 12
ligne.
Merci d'avance
tania



Avatar
Jerome SABATHIE
bonjour,
Je viens d'essayer le code , il n'y a pas d'erreur mais pas de réaction
spéciale.
Que pourrais-je rajouté pour qu'il se mette sur la cellule concernée?
Merci
Tania
"Daniel" a écrit dans le message de news:

Bonsoir.
Pour des dates en colonne A :

If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If

Cordialement.
Daniel
"Jerome SABATHIE" a écrit dans le message de
news: 4460ed9d$0$20187$
Bonsoir,
donc j'avais un dt picker mais je n'ai plus le code, quelqu'un en
aurait -il un afin que quand je choiss la date cella m'active la cellule
concernée.sachant que entre chaque date il y a une intervalle de 10 à 12
ligne.
Merci d'avance
tania







Avatar
Daniel
Bonjour.
Il faut mettre ce bout de code dans une macro évènementielle (avant de
décharger le userform) :

Private Sub DTPicker1_Change()
If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If
Unload Me
End Sub

Cordialement.
Daniel

"Jerome SABATHIE" a écrit dans le message de news:
446191d5$0$20169$
bonjour,
Je viens d'essayer le code , il n'y a pas d'erreur mais pas de réaction
spéciale.
Que pourrais-je rajouté pour qu'il se mette sur la cellule concernée?
Merci
Tania
"Daniel" a écrit dans le message de news:

Bonsoir.
Pour des dates en colonne A :

If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If

Cordialement.
Daniel
"Jerome SABATHIE" a écrit dans le message de
news: 4460ed9d$0$20187$
Bonsoir,
donc j'avais un dt picker mais je n'ai plus le code, quelqu'un en
aurait -il un afin que quand je choiss la date cella m'active la cellule
concernée.sachant que entre chaque date il y a une intervalle de 10 à 12
ligne.
Merci d'avance
tania











Avatar
Jerome SABATHIE
Rebonjour,
je viens d'essayer et cela fonctionne merci
bonne journée
tania
"Daniel" a écrit dans le message de news:
%
Bonjour.
Il faut mettre ce bout de code dans une macro évènementielle (avant de
décharger le userform) :

Private Sub DTPicker1_Change()
If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If
Unload Me
End Sub

Cordialement.
Daniel

"Jerome SABATHIE" a écrit dans le message de
news: 446191d5$0$20169$
bonjour,
Je viens d'essayer le code , il n'y a pas d'erreur mais pas de réaction
spéciale.
Que pourrais-je rajouté pour qu'il se mette sur la cellule concernée?
Merci
Tania
"Daniel" a écrit dans le message de news:

Bonsoir.
Pour des dates en colonne A :

If IsNumeric(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0))
Then
Cells(Application.Match(DTPicker1.Value * 1, Range("A:A"), 0),
1).Select
Else
MsgBox "date sans correspondance"
End If

Cordialement.
Daniel
"Jerome SABATHIE" a écrit dans le message de
news: 4460ed9d$0$20187$
Bonsoir,
donc j'avais un dt picker mais je n'ai plus le code, quelqu'un en
aurait -il un afin que quand je choiss la date cella m'active la
cellule concernée.sachant que entre chaque date il y a une intervalle
de 10 à 12 ligne.
Merci d'avance
tania