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
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
A voir également:
- Copier élément de B dans A en rouge si la case A est vide
- Coeur vide ✓ - Forum Internet / Réseaux sociaux
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
- Freeplug rouge ✓ - Forum CPL
- Devolo clignote rouge - Forum CPL
- Dessin a copier coller ✓ - Forum Internet / Réseaux sociaux
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
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
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