Remplacement de la valeur d'une cellule par une autre

[captainejack]

Bonjour à tous
Quand je coche dans la cellule A1 par un "X" ,une valeur numérique s'affiche automatiquement dans cette même cellule. Pour cela j'emploie ce code:
If Target.Count = 1 And Target.Address = "$A$1" And UCase(Target.Value) = "X" Then _
Target.Value = 6
et ainsi de suite
Dans le tableau joint , dans les colonnes D et F, je souhaiterai faire la même chose , tout en sachant que je serais amené à ajouter des lignes intermédiares.
Quel serait le code ?

En vous remerciant

 

[st007]

Re : Remplacement de la valeur d'une cellule par une autre

Bonjour,

A priori autant de if then que de cellules et range dx:dxx pour des plages (dx:dxx,fx:fxx)

 

[captainejack]

Re : Remplacement de la valeur d'une cellule par une autre

Bjr
J'ai essayé mais quand je rajoute une ligne à mon tableau, ça ne marche pas
quelqu'un aurait il une solution?
Merci

 

[captainejack]

Re : Remplacement de la valeur d'une cellule par une autre

Bjr à tous

personne à une idée??
merci

 

[Misange]

Re : Remplacement de la valeur d'une cellule par une autre

Bonjour

pour ma part je ne comprends pas ta question.
Ton "et ainsi de suite est trop vague" et que veux tu dire par "quand je rajoute une ligne à mon tableau".
Quand on n'a pzs de réponse sur xld c'est en général que la question est mal posée.
il faut remplacer x par 6 juste dans la cellule A1 ou dans toute la colonne A ?