Remplacement de la valeur d'une cellule par une autre

Bjr à tous

Est ce possible de remplacer la valeur d'une cellule par une autre automatiquement? Je m'explique:

Si dans la cellule A1, je la coche par X, est possible que dans cette même cellule A1, une valeur numérique s'affiche, par exemple par 6?

Est ce possible?

cela va servir à remplir un tableau d'évaluation

En vous remerciant

Bonjour,

Tu peux utiliser l'évènement Change de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 And Target.Address = "$A$1" And UCase(Target.Value) = "X" Then _
    Target.Value = 6
End Sub

A+

Merci frangy,

J'ai essayé, cela fonctionne

mais quelle serait le code pour plusieurs cellules sur la même collone? Exemple: de A1 à A8 en sacahant que la colonne A est noté 6, B ==>8 etc...

cela va me servir à codifier une feuille d'évaluation selon les risques sélectionnés par les opérateurs;

Merci pour ton aide, tu me facilite le travail

J'attends vos réponses

Merci

Salut captainjack,

Énoncer le problème dans sa globalité dès le départ, c'est pas mal non plus.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("A1:B8")) Is Nothing Then
            Select Case Target.Column
                Case 1: If UCase(Target.Value) = "X" Then Target.Value = 6
                Case 2: If UCase(Target.Value) = "X" Then Target.Value = 8
                Case Else: MsgBox "Non prévu !"
            End Select
        End If
    End If
End Sub

A+