Problème mise en forme

Bonjour j'ai ce code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim S As Worksheet
     If Target.Address = "$C$3" Then
         If Target = 3 Then
             deconnexion
         ElseIf Target = 2 Then
             UserForm_Minuteur.Show
        End If
End If
End Sub

j'aimerai remplacer la valeur 3 par une cellule ainsi que la valeur 2, comme ca je peux les regler directement depuis une cellule mais je n'y arrive pas.

merci

Bonjour,

Il suffit de remplacer les valeurs indiquées par les objets Range concernés (qui renverront leur valeur, la propriété Value étant la propriété par défaut de ces objets).

Pourquoi déclarer une variable S non initialisée et non utilisée !?

Merci, j'ai compris mon erreur. Je progresse chaque jour grace à vous.

Je profite pour te demander une petite question.

Dans le ichier cijoint je n'arive pas à centre mon TextBox2. As-tu une idée?

Merci

et j'aimerai que cet évènement se produise quand je suis dans n'importe quelle feuille de mon fichier alors que ce n'est pas le cas.

Il se produit que quand je suis sur la feuille "Réglage".

comment dois-je adapter mon code?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
         Dim S As Worksheet
         If Target.Address = ThisWorkbook.Sheets("Réglage").Range("C3") Then
         If Target = ThisWorkbook.Sheets("Réglage").Range("C10") Then
             deconnexion
         ElseIf Target = ThisWorkbook.Sheets("Réglage").Range("C9") Then
             UserForm_Minuteur.Show
        End If
End If
End Sub

Merci

Dans le ichier cijoint je n'arive pas à centre mon TextBox2.

Centrer où ?

et j'aimerai que cet évènement se produise quand je suis dans n'importe quelle feuille de mon fichier alors que ce n'est pas le cas.

Il se produit que quand je suis sur la feuille "Réglage".

Si le changement se produit sur "Réglage", il ne se produit pas ailleurs !

Précise où doit se produire le changement pris en considération !

l'evenement, c'était juste un petit souci. Je l'ai reglé.

Par contre je voudrai centrer verticalement le texte dans le textbox2, ça je n'y arrive pas

Parce qu'il n'y a pas de centrage vertical.

Tout ce que tu peux faire, c'est mettre AutoSize à True et Multiline à True, mais je ne pense pas que ce soit très pratique à l'usage.

merci, ce n'est donc pas possible a l'aide d'un code?