Valeur par defaut dans cellue si elle est vide

[chaelie2015]

Bonjour Forum
je souhaite afficher par defaut dans des cellules (BB11 : bb16) et (BB 22: bb32) si elles sont vide "En cours" et si je saisie un text la valeur c'efface
ci dessous un code pour une cellule
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$BB$11" Then
If Target.Value = "En cours" Then Target.Value = ""
ElseIf Range("bb11").Value = "" Then
Range("bb11").Value = "En cours"
End If
End Sub
Merci

 

[st007]

Une idée,
ceci écris "En cours" dans toutes les cellules de la colonne H pour toutes lignes contenant quelque chose en colonne A

Sub remplir2()
Dim cel As Range, DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
For Each cel In Sheets("Feuil1").Range("H2:H" & DernLigne)
If cel.Value = "" Then cel.Value = "En cours"
Next cel
End Sub

 

[GALOUGALOU]

bonjour chaelie 2015 bonjourst007 bonjour le forum
par macro dans évenement feuille

Private Sub Worksheet_Activate()
Call poser_lettre
End Sub

dans un module

Sub poser_lettre()
Dim J As Long
Sheets("Feuil1").Select

  For J = 16 To 11 Step -1
     If Range("BB" & J) = "" Then Rows(J).Range("BB1") = "En cours"
  Next J
 
  For J = 32 To 22 Step -1
     If Range("BB" & J) = "" Then Rows(J).Range("BB1") = "En cours"
  Next J
End Sub

cordialement
galougalou

 

[chaelie2015]

Bonsoir galougalou ,st007
Merci pour les réponses et desolé pour ce retard
Probléme résolu
a+