VBA : Copier une valeur sauf si vide

Fermé

HEMIYELY - 13 août 2018 à 13:53
yg_be Messages postés 23419 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 janvier 2025 - 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

A voir également:

VBA : Copier une valeur sauf si vide
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel

1 réponse

Réponse 1 / 1

yg_be Messages postés 23419 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 janvier 2025 Ambassadeur 1 557
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?

HEMIYELY
13 août 2018 à 15:07

Oui pourquoi pas. Sinon lorsqu'on clique sur une bouton. Peu m'importe.

yg_be Messages postés 23419 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 janvier 2025 1 557 > HEMIYELY
13 août 2018 à 15:27

alors tu peux t'inspirer de ceci:
https://forums.commentcamarche.net/forum/affich-35523014-vba-addition-de-2-cellules-de-2-feuilles-diff

HEMIYELY
13 août 2018 à 15:57

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...

yg_be Messages postés 23419 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 10 janvier 2025 1 557 > 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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel