Discussion :

[graphikris]

Bonjour,

Je cherche à mettre une valeur par défaut parmi 2 choix qui se trouve dans une liste déroulante (Libre; Attribué)
J'ai trouvé la manière de le faire dans une cellule d'une feuille mais je voudrais le faire dans un tableau nommé (Tableau1)

Code sur une feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A2] = "" Then [A2] = "Libre"
End Sub

Cordialement

[Invité]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub AssignerValeurParDefaut()
 
Dim MaPlage As Range, CelluleEnCours As Range
 
    Set MaPlage = Sheets("Feuil1").ListObjects("Tableau1").ListColumns(1).DataBodyRange
    With MaPlage
         For Each CelluleEnCours In MaPlage
             If CelluleEnCours = "" Then CelluleEnCours = "Libre"
         Next CelluleEnCours
    End With
    Set MaPlage = Nothing
 
End Sub

[graphikris]

Bonjour et merci,

Code facilement adapté dans ma feuille.