Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform
jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins
c'est qu'en fonction de la date que la personne choisie le placement va se
faire sur une colonne différente d'une feuille. Exemple :
Si janvier placement sur la colonne A
Si février placement sur la colonne E
Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
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
Daniel
Bonsoir. Essaie :
Private Sub Calendar1_Click() If Month(Calendar1.Value) = 1 Then [A1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 2 Then [E1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 3 Then [J1] = Calendar1.Value End If End Sub
Cordialement. Daniel "j0b" a écrit dans le message de news:
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins c'est qu'en fonction de la date que la personne choisie le placement va se faire sur une colonne différente d'une feuille. Exemple : Si janvier placement sur la colonne A Si février placement sur la colonne E Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
Bonsoir.
Essaie :
Private Sub Calendar1_Click()
If Month(Calendar1.Value) = 1 Then
[A1] = Calendar1.Value
ElseIf Month(Calendar1.Value) = 2 Then
[E1] = Calendar1.Value
ElseIf Month(Calendar1.Value) = 3 Then
[J1] = Calendar1.Value
End If
End Sub
Cordialement.
Daniel
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
A3F259F2-3E61-4D95-9531-9D946032853B@microsoft.com...
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform
jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins
c'est qu'en fonction de la date que la personne choisie le placement va se
faire sur une colonne différente d'une feuille. Exemple :
Si janvier placement sur la colonne A
Si février placement sur la colonne E
Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
Private Sub Calendar1_Click() If Month(Calendar1.Value) = 1 Then [A1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 2 Then [E1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 3 Then [J1] = Calendar1.Value End If End Sub
Cordialement. Daniel "j0b" a écrit dans le message de news:
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins c'est qu'en fonction de la date que la personne choisie le placement va se faire sur une colonne différente d'une feuille. Exemple : Si janvier placement sur la colonne A Si février placement sur la colonne E Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
j0b
Je vais modifier les [A1] = Calendar1.Value car ce n'est pas ce que je recherche mais la structure globale est parfaite. Merci
Bonsoir. Essaie :
Private Sub Calendar1_Click() If Month(Calendar1.Value) = 1 Then [A1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 2 Then [E1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 3 Then [J1] = Calendar1.Value End If End Sub
Cordialement. Daniel "j0b" a écrit dans le message de news:
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins c'est qu'en fonction de la date que la personne choisie le placement va se faire sur une colonne différente d'une feuille. Exemple : Si janvier placement sur la colonne A Si février placement sur la colonne E Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
Je vais modifier les [A1] = Calendar1.Value car ce n'est pas ce que je
recherche mais la structure globale est parfaite. Merci
Bonsoir.
Essaie :
Private Sub Calendar1_Click()
If Month(Calendar1.Value) = 1 Then
[A1] = Calendar1.Value
ElseIf Month(Calendar1.Value) = 2 Then
[E1] = Calendar1.Value
ElseIf Month(Calendar1.Value) = 3 Then
[J1] = Calendar1.Value
End If
End Sub
Cordialement.
Daniel
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
A3F259F2-3E61-4D95-9531-9D946032853B@microsoft.com...
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform
jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins
c'est qu'en fonction de la date que la personne choisie le placement va se
faire sur une colonne différente d'une feuille. Exemple :
Si janvier placement sur la colonne A
Si février placement sur la colonne E
Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
Je vais modifier les [A1] = Calendar1.Value car ce n'est pas ce que je recherche mais la structure globale est parfaite. Merci
Bonsoir. Essaie :
Private Sub Calendar1_Click() If Month(Calendar1.Value) = 1 Then [A1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 2 Then [E1] = Calendar1.Value ElseIf Month(Calendar1.Value) = 3 Then [J1] = Calendar1.Value End If End Sub
Cordialement. Daniel "j0b" a écrit dans le message de news:
Bonsoir à vous tous, je viens d'intégrer un calendrier dans mon userform jusque la pas de soucis. En fait ce que je recherche à faire plus ou moins c'est qu'en fonction de la date que la personne choisie le placement va se faire sur une colonne différente d'une feuille. Exemple : Si janvier placement sur la colonne A Si février placement sur la colonne E Si mars placement sur la colonne J
Etc..... Merci pour le coup de main que vous pourrez m'apporter.
