Disparition d'un texte dans une cellule excel
Fermé
Dorientamento
Messages postés
32
Date d'inscription
dimanche 2 octobre 2011
Statut
Membre
Dernière intervention
28 avril 2014
-
Modifié par Dorientamento le 2/01/2014 à 12:37
Dorientamento Messages postés 32 Date d'inscription dimanche 2 octobre 2011 Statut Membre Dernière intervention 28 avril 2014 - 2 janv. 2014 à 16:05
Dorientamento Messages postés 32 Date d'inscription dimanche 2 octobre 2011 Statut Membre Dernière intervention 28 avril 2014 - 2 janv. 2014 à 16:05
A voir également:
- Disparition d'un texte dans une cellule excel
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Verrouiller cellule excel - Guide
- Formule excel - Guide
1 réponse
dlt-pan
Messages postés
481
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
23 décembre 2014
67
2 janv. 2014 à 15:18
2 janv. 2014 à 15:18
Bonjour
A adapter a tes besoins. le test ne se fait que dans les cellules D1 à D30.
Private Sub Worksheet_Change(ByVal Target As Range)
'limite la macro a la plage de cellule D1 a D30
If Not Intersect(Target, Range("D1:D30")) Is Nothing Then
'test sut toutes les cellules de D1 a D30
For i = 1 To 30
'si elle est vide, on rempli avec le mot date en rouge
If Cells(i, 4) = "" Or Cells(i, 4) = " " Then
Cells(i, 4) = "Date"
Cells(i, 4).Font.Color = -16776961
Else
'sinon on met en noire
If Cells(i, 4) <> "Date" Then
Cells(i, 4).Font.Color = 0
End If
End If
Next i
End If
End Sub
A adapter a tes besoins. le test ne se fait que dans les cellules D1 à D30.
Private Sub Worksheet_Change(ByVal Target As Range)
'limite la macro a la plage de cellule D1 a D30
If Not Intersect(Target, Range("D1:D30")) Is Nothing Then
'test sut toutes les cellules de D1 a D30
For i = 1 To 30
'si elle est vide, on rempli avec le mot date en rouge
If Cells(i, 4) = "" Or Cells(i, 4) = " " Then
Cells(i, 4) = "Date"
Cells(i, 4).Font.Color = -16776961
Else
'sinon on met en noire
If Cells(i, 4) <> "Date" Then
Cells(i, 4).Font.Color = 0
End If
End If
Next i
End If
End Sub
2 janv. 2014 à 16:05
Bonne fin de journée