Discussion :

[redhotchilipeppers]

Bonjour tout le monde,

J'ai une question qui parait facile mais que je n'ai pas trouvé de solution !

J'ai un range définit d'activeX combobox et je veux via une macro réinitialiser toutes les valeurs affichées et mettre une valeur précise.
J'ai essayé ceci mais ça ne marche pas:

Code :

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

1
2
3
4
5
6
Option Explicit
 Sub Worksheet_Activate()
    Dim ws As Worksheet
    Set ws = Sheets("Ma_feuille")
    ws.Range("B2,D20").Value = "ma_valeur_par_défaut"
End Sub

Quelqu'un peut m'aider svp ?

[Invité]

j'ai testé ça marche

Code :

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

1
2
3
4
5
Sub Worksheet_Activate()
Dim ws As Worksheet
Set ws = Sheets("Ma_feuille")
ws.Range("B2,D20").Value = "ma_valeur_par_défaut" 'place une valeur dans les cellules B2 et D20 uniquement
End Sub

Code :

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

1
2
3
4
5
Sub Worksheet_Activate()
Dim ws As Worksheet
Set ws = Sheets("Ma_feuille")
ws.Range("B2:D20").Value = "ma_valeur_par_défaut" 'place une valeur dans les cellules  de  B2 à D20 uniquement
End Sub

Code :

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

1
2
3
4
5
Sub Worksheet_Activate()
Dim ws As Worksheet
Set ws = Sheets("Ma_feuille")
ws.UsedRange.Value = "ma_valeur_par_défaut" 'place une valeur dans la plage de  cellules utilisées
End Sub

[redhotchilipeppers]

Merci beaucoup pour votre réponse, c'est presque fait sauf que je veux ajouter une condition, que si la valeur existante est différente de la valeur par défaut que je veux poser, je veux que la macro change cette valeur uniquement,

J'ai fait ça mais ça marche pas

Code :

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

1
2
3
4
5
6
7
8
 
Sub Worksheet_Activate()
    Dim ws As Worksheet
    Set ws = Sheets("Ma_feuille")
    If Range("B2,D20").Cells.Value = "AZERTY" Then
    ws.UsedRange.Value = "ma_valeur_par_défaut" 'place une valeur dans la plage de  cellules utilisées
    End If
End Sub