Adaptation de la datation si année bissextile

[Thibaut]

Bonjour le forum,

J ai un tableau courant sur une année où doivent rentrer des valeurs prises automatiquement sur une autre feuille... le seul truc c est que le tableau doit s adapter si il s agit d une année bissextile. Voici les lignes de codes que j avais mis mais lorsque je teste ma macro, la ligne supplémentaire n apparait pas... Pourriez-vous m aider???

MsgBox " Attention, cette macro s'execute dès l'ouverture du fichier!"
MsgBox " S'agit-il d'une année bissextile?", vbYesNo
If rep = vbYes Then
Rows("65:65").Select
Selection.Insert Shift:=xlDown
Range("C65").Select
ActiveCell.FormulaR1C1 = "29-févr"
Range("A65").Select
ActiveCell.FormulaR1C1 = "DEU"
Range("B65").Select
ActiveCell.FormulaR1C1 = "DBT"
Range("E65").Select
ActiveCell.FormulaR1C1 = "24"
Range("B1").Select
End If
If rep = vbNo Then
Range("B1").Select
End If

MsgBox " 1/ Sélectionner le fichier où il faut aller rechercher les températures relevées!"
rep = Application.Dialogs(xlDialogOpen).Show

D'avance un tout grand merci
Bonne journée

Thibaut

 

[@Christophe@]

Bonjout Thibaut

Un peu bordel ton code, rire

bon voici une version révisé de ton code:

Dim rep As String

MsgBox " Attention, cette macro s'execute dès l'ouverture du fichier!"
rep = MsgBox("S'agit-il d'une année bissextile?", vbYesNo, "Choix")
If rep = vbYes Then
Rows("2:2").Insert Shift:=xlDown
Range("C2").Value = "29-févr"
Range("A2").Value = "DEU"
Range("B2").Value = "DBT"
Range("E2").Value = "24"
Range("B1").Select
Else
Range("B1").Select
End If

MsgBox " 1/ Sélectionner le fichier où il faut aller rechercher les températures relevées!"
rep = Application.Dialogs(xlDialogOpen).Show

N'oublie pas de modifie les cellules, rire

Bonne journée

@Christophe@

 

[Thibaut]

Merci @Christophe@ ... ça marche... p je sais que c était un peu le bordel... mais ne m y connaissant pas encore de trop, je ne connais pas encore les "raccourcis"... alors si en plus je dois utiliser la fonction "If" ;o)
Bonne journée

 

[@Christophe@]

Re

Je comprends, pas de problème, content que cela marche, bonne journée

@Christophe@