Aide pour une macro

[Iriata]

Bonjour,

Je souhaiterais créer une macro mais je ne connais pas assez bien le langage.Je ne sais d'ailleurs pas si c'est possible....

C'est un tableau pour gérer les dates de détartrages de mes machines.

A5 : date du prochain détartrage (formule : =DATE(ANNEE(J5); MOIS(J5)+K5;JOUR(J5)) )
H5 : Date du dernier détartrage
J5 : Période du dernier détartrage ( ne correspond pas toujours a la date du dernier détartrage)
K5 : Fréquence du détartrage


Ce que j'aimerais :

Lorsque je met à jour la date du détartrage (H5), excel me demande si je veux mettre à jour la période de détartrage (J5)
si je répond non : il change uniquement H5 sans rien faire et si je met oui, il met la valeur de A5 dans J5 (ce qui me permettra d'avoir un nouveau résultat dans A5)

Voila, j’espère que j'ai été assez claire et que vous pourrez m'aider.

Merci

 

[Compte Supprimé 979]

Re : Aide pour une macro

Bonjour Iriata et bienvenue sur ce forum

Malheureusement, sans fichier d'exemple, j'ai bien peur que l'on ne puisse pas faire grand choses

A+

 

[mikael2235]

Re : Aide pour une macro

Bonjour Iriata,

Si j'ai bien compris ta demande, ce fichier devrait te convenir.
Pour mettre la macro dans ton classeur, tu ouvres l'editeur VBA en faisant Alt+F11, et dans l'arborescence de gauche, tu vas dans detartrage.xls/Microsoft Excel Objets/Feuil1. Tu le recopie et le colle dans ton classeur au même endroit.

Mikael

 

[Iriata]

Re : Aide pour une macro

Super, ca fonctionne très bien,

Merci pour tout

 

[Iriata]

Re : Aide pour une macro

Bonjour,

J'aurais finalement besoin d'une petite modification. J'avais oublié de préciser que mon tableau faisait + de 300 lignes et que la macro devait s’exécuter sur toutes les lignes. Est ce possible ?

Merci

 

[frangy]

Re : Aide pour une macro

Bonjour Iriata, mikael, le forum,

Tu n’as besoin que d’une petite adaptation du code de mikael pour appliquer la procédure au reste de la colonne H.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Not Application.Intersect(Target, Range("H5:H" & Rows.Count)) Is Nothing Then
        question = MsgBox("Voulez-vous mettre à jour la periode de detartrage ?", vbYesNo)
        If question = 6 Then
            Target.Offset(0, 2).Value = Target.Offset(0, -7).Value
        End If
    End If
End Sub

Cordialement.

 

[Iriata]

Re : Aide pour une macro

Merci, c'est parfait