VBA : Copier une valeur sauf si vide

Fermé
HEMIYELY - 13 août 2018 à 13:53
yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 - 13 août 2018 à 16:25
Bonjour,
Je souhaite copier une valeur contenu dans une cellule dans une autre cellule sauf si elle est vide. Je m'explique :
- La feuille "CoverPage" Contient la valeur 60 dans la cellule C5
- La feuille "Quick Update" contient la valeur 70 dans la cellule J2
- Je souhaite que la cellule C5 de la feuille "CoverPage" soit remplacée par la valeur 70.
-Cependant, si la cellule J2 de la feuille "Quick Update" est vide, la cellule C5 de la feuille "CoverPage" ne doit pas être modifiée.

Merci pour votre réponse

1 réponse

yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
13 août 2018 à 14:36
bonjour, souhaites-tu que la copie se fasse automatiquement dés que la cellule J2 de la feuille "Quick Update" est modifiée?
0
Oui pourquoi pas. Sinon lorsqu'on clique sur une bouton. Peu m'importe.
0
yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > HEMIYELY
13 août 2018 à 15:27
0
Merci de votre réponse,
Cependant, dans ce cas bien précis, je ne souhaite pas faire la somme des deux cellules mais remplacer la valeur d'une cellule par la valeur contenu dans l'autre...
0
yg_be Messages postés 22722 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > HEMIYELY
13 août 2018 à 16:25
suggestion:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then
    If Target <> "" Then
        Sheets("CoverPage").[C5] = Target
    End If
End If
End Sub
0