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

Fermé
christian.stef Messages postés 5 Date d'inscription mardi 28 mai 2013 Statut Membre Dernière intervention 25 juin 2013 - 29 mai 2013 à 11:43
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 29 mai 2013 à 13:59
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

1 réponse

Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 5 040
29 mai 2013 à 13:59
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
0