Couleur De Police Vba

[david.ridelaire]

Bonjour,

je souhaiterai mettre en blanc le contenu de la cellule F3 lorsque la cellule E3 contient quelque chose

quelqu'un aurait-il la solution sous VBA

d'avance merci

DAVID

 

[PascalXLD]

Re : Couleur De Police Vba

Bonjour

Avant que je prenne du temps pour te donner une réponse j'aimerai que tu prennes du temps pour dire au moins ce qu'il en est de ces fils

https://www.excel-downloads.com/threads/probleme-avec-une-ligne-de-programme.83081/

https://www.excel-downloads.com/threads/probleme-routine.82984/

https://www.excel-downloads.com/threads/probleme-avec-programme.82976/

https://www.excel-downloads.com/threads/question-concernant-une-ligne-de-programmation.82922/

https://www.excel-downloads.com/threads/formule-visual-basic.82052/

Liste non exhaustive

Merci d'avance

Sinon lien très utile

Lien supprimé

 

[pierrejean]

Re : Couleur De Police Vba

bonjour DAVID

vois si cela te convient

edit:

Salut Pascal

 

[david.ridelaire]

Re : Couleur De Police Vba

voilà les réponses sont données aux différents

post envoyés

merci pour toutes les solutions apportées

 

[david.ridelaire]

Re : Couleur De Police Vba

MERCI PIERRE JEAN

PEUT-ON

INSERER CE PROGRAMME DANS UNE FEUILLE QUI POSSEDE DEJA CE PROGRAMME:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Date
If Target.Column = 13 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(0, -2)
End Sub

ET SURTOUT PEUT ON APPLIQUER TON PROGRAMME A L'ENSEMBLE DE LA COLONNE?

D'AVANCE MERCI
DAVID

 

[pierrejean]

Re : Couleur De Police Vba

Re David

1) jette un oeil sur la charte pour revoir la signification des majuscules

2) pour la 1ere question la reponse te sera très rapidement donnée par un test (je pense qu'elle sera positive)

3) A tester:

If Target.Column = 5 Then
 If Target <> "" Then
   Range("F" & Target.Column).Font.ColorIndex = 2
 Else
   Range("F" & Target.Column).Font.ColorIndex = 1
 End If
 End If

 

[david.ridelaire]

Re : Couleur De Police Vba

Salut pierrejean

dois-je inserer ton code avant ou après le End Sub

concernant les majuscules encore milles excuses je n'avais pas lu la charte

d'avance merci david

 

[pierrejean]

Re : Couleur De Police Vba

Re

avant bien sur !!!

 

[david.ridelaire]

Re : Couleur De Police Vba

je l'ai inserer de cette manière mais rien ne se passe!!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Date
If Target.Column = 13 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(0, -2)
If Target.Column = 5 Then
End If
If Target.Column = 5 Then
If Target <> "" Then
Range("F" & Target.Column).Font.ColorIndex = 2
Else
Range("F" & Target.Column).Font.ColorIndex = 1
End If
End If
End Sub

 

[wilfried_42]

Re : Couleur De Police Vba

Bonjour à tous, pierrejean 🙂

Range("F" & target.column ---> Column ????? ou bien je n'ai rien compris mais Row serait plus juste

 

[Épaf]

Re : Couleur De Police Vba

Bonjour David, PierreJean, tous,

je souhaiterai mettre en blanc le contenu de la cellule F3 lorsque la cellule E3 contient quelque chose

Qu'appelles-tu le contenu ? Le fond ou les caractères ?
@+

PS - Bien vu, Wilfried !

 

[pierrejean]

Re : Couleur De Police Vba

bonjour David

voila le bon code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Date
If Target.Column = 13 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(0, -2)
If Target.Column = 5 Then
If Target.Value <> "" Then
Range("F" & Target.Row).Font.ColorIndex = 2
Else
Range("F" & Target.Row).Font.ColorIndex = 1
End If
End If
End Sub

avec toutes mes excuses

edit

salut Wilfried 🙂 tu as vu juste bien sur !!!
salut Epaf 🙂

 

[david.ridelaire]

Re : Couleur De Police Vba

C'est parfait pierre jean merci bcp

DAVID