Copier élément de B dans A en rouge si la case A est vide

Question

Bonjour, 

J'ai deux colonnes dont une avec les dates reçu (A) et l'autre avec les dates protégés (B).  Je souhaite copier tous les éléments de la colonne B dans A en rouge seulement ceux dont la case A est vide. Car s'il y'a déjà une date dans A : pas de modification.  J'ai un fichier Excel de 65530.
Je vous remercie.
Cordialement

Mike-31 · Answer

Salut,

Code VBA uniquement, colle ce code dans un module, surveille la colonne A de A1 à A200 à adapter, si cellule en A est vide colle la cellule en B si non vide et colorise en rouge

Sub Essai()
    Dim Cell As Range
    Application.ScreenUpdating = False
    For Each Cell In Range("A1:A200")
    If Cell.Value = "" And Cell.Offset(0, 1) <> "" Then
    Cell.Value = Cell.Offset(0, 1)
    Cell.Font.ColorIndex = 3
    End If
    Next
 End Sub

Copier élément de B dans A en rouge si la case A est vide

1 réponse

Discussions similaires

Newsletters