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 liste combobox

liste combobox

4 réponses
Avatar
testou
bonjour,

j'ai un userform et sur cette userform , j'ai des dates,1 janvier 2005,1
fevrier 2005,1 mars 2005............
je voudrai quand je pointe sur la deuxieme date 1 fevrier 2005.
la date du 1 er janvier 2005 vient s'afficher sur la cellule du feuillet
1fevrier 2005(exemple A3)
quand je pointe sur le 1er mars, la date du 1 fevrier vient s'afficher sur
une cellule la cellule du feuillet 1 mars 2005 ( exemple A3)
a chaque fois dans A3 j'aurai la date précedente

merci
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
Pounet95
Bonjour Teste Tout,
Je m'étais juré de ne plus te répondre, mais là je craque !
Ton application,( si j'ai bien tout lu ? ) est obèse. Sa taille est > 1Mo
J'espère que cela est dû à ce que tu as mis sur l'onglet qui s'affiche
à l'ouverture de ton classeur !
Je précise : l'onglet s'appelle REMERCIEMENTS et contient la
LISTE DE TOUS CEUX QUI T'ONT REPONDU
Conseil : mets en ROUGE GRAS ceux qui ont encore la patience de te répondre.

PS : si tu sais pas comment afficher un onglet (ou feuille) particulier à
l'ouverture,
demandes ..... ! Avec un peu de chance, la liste citée plus haut devrait
s'allonger.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de news:

bonjour,

j'ai un userform et sur cette userform , j'ai des dates,1 janvier 2005,1
fevrier 2005,1 mars 2005............
je voudrai quand je pointe sur la deuxieme date 1 fevrier 2005.
la date du 1 er janvier 2005 vient s'afficher sur la cellule du feuillet
1fevrier 2005(exemple A3)
quand je pointe sur le 1er mars, la date du 1 fevrier vient s'afficher sur
une cellule la cellule du feuillet 1 mars 2005 ( exemple A3)
a chaque fois dans A3 j'aurai la date précedente

merci


Avatar
Pierre CFI [mvp]
prochaine question
Je ne trouve pas l'onglet "remerciement" que dois je faire
:o)
--
Pierre CFI
MVP Microsoft Access



Avatar
testou
merci beaucoup


Bonjour Teste Tout,
Je m'étais juré de ne plus te répondre, mais là je craque !
Ton application,( si j'ai bien tout lu ? ) est obèse. Sa taille est > 1Mo
J'espère que cela est dû à ce que tu as mis sur l'onglet qui s'affiche
à l'ouverture de ton classeur !
Je précise : l'onglet s'appelle REMERCIEMENTS et contient la
LISTE DE TOUS CEUX QUI T'ONT REPONDU
Conseil : mets en ROUGE GRAS ceux qui ont encore la patience de te répondre.

PS : si tu sais pas comment afficher un onglet (ou feuille) particulier à
l'ouverture,
demandes ..... ! Avec un peu de chance, la liste citée plus haut devrait
s'allonger.

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de news:

bonjour,

j'ai un userform et sur cette userform , j'ai des dates,1 janvier 2005,1
fevrier 2005,1 mars 2005............
je voudrai quand je pointe sur la deuxieme date 1 fevrier 2005.
la date du 1 er janvier 2005 vient s'afficher sur la cellule du feuillet
1fevrier 2005(exemple A3)
quand je pointe sur le 1er mars, la date du 1 fevrier vient s'afficher sur
une cellule la cellule du feuillet 1 mars 2005 ( exemple A3)
a chaque fois dans A3 j'aurai la date précedente

merci






Avatar
michdenis
Bonjour Testou,

à l'ouverture de ton formulaire, voici une façon d'insérer tes dates dans le combobox
'------------------------------------------
Private Sub UserForm_Initialize()

With Me.ComboBox1
For a = 1 To 12
'DateSerial(année,mois,jour)
.AddItem Format(DateSerial(2005, a, 1), "d mmmm yyyy")
Next
End With
'------------------------------------------


Pour afficher dans la cellule A3 de la feuille sélectionnée à partir d'un élément du combobox, pour insérer la date du
premier du mois précédent ... tu peux utiliser ceci :

A ) Attention, si tu sélectionne le 1 janvier 2005, la date insérée sera le 1 décembre 2004 en cellule A3 de la feuille
1 janvier 2005

B ) Il est essentiel que le nom de tes onglets des feuilles de ton classeur ait le même format de date que celui affiché
dans ton combobox.

C ) Il se peut que le service de messagerie coupe une ligne de code en 2...évidemment cela génère une erreur. Il s'agit
seulement de les replacer les 2 bouts de code sur la même ligne.
'---------------------------
Private Sub CommandButton1_Click()

Dim Dte As Date
Dim LaDate As String

With Me.ComboBox1
If .ListIndex <> -1 Then
LaDate = .Text
With Worksheets(LaDate)
'Active la feuille
'pas obligatoire ...
.Select
'applique le format à la cellule
.Range("A1").NumberFormat = "dd/mm/YY"
Dte = CDate(LaDate)
.Range("A3").Value = DateSerial(Year(Dte), Month(Dte - 1), 1)
End With
End If
End With

End Sub
'---------------------------


Salutations!





"testou" a écrit dans le message de news:

bonjour,

j'ai un userform et sur cette userform , j'ai des dates,1 janvier 2005,1
fevrier 2005,1 mars 2005............
je voudrai quand je pointe sur la deuxieme date 1 fevrier 2005.
la date du 1 er janvier 2005 vient s'afficher sur la cellule du feuillet
1fevrier 2005(exemple A3)
quand je pointe sur le 1er mars, la date du 1 fevrier vient s'afficher sur
une cellule la cellule du feuillet 1 mars 2005 ( exemple A3)
a chaque fois dans A3 j'aurai la date précedente

merci