Format date et vode VBA pour tableau simple

  • Initiateur de la discussion Initiateur de la discussion Factotum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Factotum

XLDnaute Nouveau
Bonjour,
Je travaille avec EXCEL depuis des années. Actuellement, je dispose d'Excel 2007 et de Windows XP. Je voudrais maintenant m'initier à la création de macros Visual Basic.
Mes deux premières macros fonctionnent très bien : il s'agit de la mise à largeur des colonnes en fonction de leur contenu et la suppression ou l'affichage du quadrillage.
Je suis maintenant en difficulté avec une nouvelle macro. Il s'agit d'obtenir un MsgBox avec le nom d'une constellation (variable déclarée en Dim As String) en référence à une date anniversaire (variable déclarée en Dim As Date dans le code VBE et à entrer dans un InputBox).
J'ai tapé les 366 dates d'anniversaire possibles en colonne A d'un fichier Excel (sous le format cellule personnel "j-mmm") et, en regard de celles-ci, les noms des 12 constellations crorrespondantes (sous le format de cellule "texte"). Mais cela ne marche pas...
Si quelqu'un pouvait me donner un exemple de tableau à 2 colonnes, avec seulement quelques lignes, et surtout, le code VB adéquat, j'en serais très heureux.
Merci d'avance en toute amitié.

Factotum
 
Re : Format date et vode VBA pour tableau simple

Bonsoir Factotum

si tes dates en colonne A et tes noms de constellations en colonne B, regarde le code ci dessous, si ca peut t'aider :

Code:
Option Explicit
Sub test()
Dim d As Date, c As Range
d = InputBox("saisissez une date !!!")
If IsDate(d) Then
    Set c = Range("A:A").Find(d, , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then MsgBox "Pour le : " & d & vbLf & _
        "c'est la constellation : " & c.Offset(0, 1).Value
End If
End Sub

bonne soirée
@+
 
Re : Format date et vode VBA pour tableau simple

Bonjour et merci à Pierrot93 !
Je viens de rédiger le code proposé par Pierrot93. Cela semble marcher puisque je n'obtiens plus de message d'erreur... MAIS il semble encore y avoir un "stud"...
En effet : aucun message MsgBox n'apparaît après avoir entré la date par l'InputBox... Donc, pas de réponse du tout !
Que manque-t-il encore ?

Amicalement,
Factotum
 
Re : Format date et vode VBA pour tableau simple

bonjour Factotum

il ne trouve sans doute pas la valeur saisie dans l'inputbox dans la colonne A. Sous quel format tu renseignes l'inputbox ? Essaye en mettant JJ/MM/AAAA.

Sinon mets un fichier en pièce jointe, pas forcement la totalité, mais avec le type de données, les formats et le code.

bon après midi
@+
 
Re : Format date et vode VBA pour tableau simple

Quelle érudition !
J'ai changé le format de la date dans la colonne A de la feuille de calcul comme proposé (jour/mois/année) et j'entre seulement un jour et un mois (25/09 par exemple) dans l'InputBox, et ça marche !
Merci !
Factotum
N.B.: Le message MsgBox n'apparaît cependant que sur une cellule quelconque de la feuille de calcul où figure le tableau, donc pas sur les autres feuilles du même classeur, et, a fortiori, dans un autre classeur. Je suppose que c'est normal...
 
Re : Format date et vode VBA pour tableau simple

Re,

attention, si tu ne saisis pas l'année dans l'inputbox, Excel la déduira comme l'année en cours (chez moi, Excel 2003). Un peu gênant si dans ta colonne "A" se trouve une autre année.

D'autre part, la macro recherche sur le classeur actif, feuille active, donc si tu as des données sur un autre classeur, elle fonctionnera également, dès l'instant ou celui ci sera actif.

bonne soirée.
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
356
Réponses
4
Affichages
563
Réponses
4
Affichages
320
Réponses
2
Affichages
409
Retour