Déclencher la copie d'une cellule suite à ... tout en ...

Résolu
Erindan Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Erindan Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour!

J'espère que vous pouvez m'aider.

J'ai un fichier, avec une petite macro, qui calcul le nombre de jour écoulés en fonction du service chargé de l'avancé d'un dossier.

Afin de déterminer le temps imputable à mon service sur la gestion d'un dossier x, j'ai un besoin que je n'arrive pas à résoudre seul.
Il faut que B1 récupère la valeur de A1 lorsque C1 est remplie.
Cependant, suite à cette copie, j'ai besoin que la valeur de B1 n'évolue plus, malgré le fait que A1 évolue tous les jours.

Auriez vous une idée?

Je précise que je suis nul en macro. M'améliorer fait partie de mes révisions de cet été ^^.

Cordialement
A voir également:

1 réponse

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
Bonjour,

à mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 3 Or Target.Row = 1 Then Exit Sub
    If Target.Offset(, -1) = "" Then Target.Offset(, -1) = Target.Offset(, -2)
End Sub 

eric
0
Erindan Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour votre réponse Eric.

Je m'aperçois que j'ai oublié trois choses dans ma demande.

D'abord de remercier par avance ! Quel mufle je fais...

Mais aussi que ce qui est vrai pour B1 est vrai pour B2,B3 et ainsi de suite jusqu'à 500.
J'imagine qu'il y a un moyen de "filer" une macro, mais j'ignore comment.
De plus, mon B1 est sur une autre feuille, pour que mes collaborateurs ne modifie pas les données par erreur.


Pourriez vous compléter votre réponse?
Désolé de ne pas avoir été clair de suite.

Merci!
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
ce qui est vrai pour B1 est vrai pour B2,B3 et ainsi de suite jusqu'à 500
Normalement la macro fait toute la colonne (sauf ligne 1)

De plus, mon B1 est sur une autre feuille
Ben oui, ça compte
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 3 Or Target.Row = 1 Then Exit Sub
    If Sheets("Feuil2").Cells(Target.Row, 2) = "" Then Sheets("Feuil2").Cells(Target.Row, 2) = Target.Offset(, -2)
End Sub

eric
0
Erindan Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Parfait!

Merci beaucoup.
0