VBA : Copier une valeur sauf si vide

HEMIYELY -

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

Afficher la suite

1 réponse

Réponse 1 / 1
yg_be Contributeur
bonjour, souhaites-tu que la copie se fasse automatiquement dés que la cellule J2 de la feuille "Quick Update" est modifiée?
0
1. HEMIYELY
  
  Oui pourquoi pas. Sinon lorsqu'on clique sur une bouton. Peu m'importe.
  
  0
2. yg_be Contributeur
  
  @HEMIYELYalors tu peux t'inspirer de ceci:
  https://forums.commentcamarche.net/forum/affich-35523014-vba-addition-de-2-cellules-de-2-feuilles-diff
  
  0
3. HEMIYELY
  
  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
4. yg_be Contributeur
  
  @HEMIYELYsuggestion:
  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

VBA : Copier une valeur sauf si vide

1 réponse

Discussions similaires

Newsletters