• Initiateur de la discussion Initiateur de la discussion grin d'or
  • 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 !

G

grin d'or

Guest
Bonjour à toutes et à tous
Bonjour le Forum
J’ai créé une macro pour changer la date de 3 cellules, mon problème que je n’arrive pas à afficher le même mois à chaque changement de date
Voir fichier joint
Merci d’avance [file name=date_20060527160317.zip size=6998]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/date_20060527160317.zip[/file]
 

Pièces jointes

Re
Merci Dan
Excusé moi,je veux dire le même jour et le même mois
Formule dans A1 pour éxecuter la macro: =si('A12=aujourdhui;3;0)
ex:Avant le changement de date
A10 = 01/07/2005
A11 = 01/07/2006
A12 = 01/07/2007
quand je clic pour changer la date,je veux:
A10 = 01/07/2008
A11 = 01/07/2009
A12 = 01/07/2010
etc......
Merci
 
Bonjour

Un Salut particulier à Dan

Essaye ce code
Code:
Sub Macro1()
If Range('A1').Value = 3 Then
confirm = MsgBox('Changez la date', vbOKCancel + vbInformation, Title:='Date')
If confirm = vbCancel Then Exit Sub
   With Sheets('Feuil1')
      .Range('A10') = DateSerial(Year(.Range('A10')) + 3, Month(.Range('A10')), Day(.Range('A10')))
      .Range('A11') = DateSerial(Year(.Range('A10')) + 1, Month(.Range('A10')), Day(.Range('A10')))
      .Range('A12') = DateSerial(Year(.Range('A11')) + 1, Month(.Range('A10')), Day(.Range('A10')))
   End With
End If
End Sub

Attention, tu auras un problème pour le 29 février xx.

@+Jean-Marie
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
6
Affichages
303
Réponses
4
Affichages
243
Réponses
12
Affichages
500
Retour