Bonjour,
Pour cela, il faut utiliser l'évènement change qui se déclenche quand la cellule est modifiée :
'exemple 1
private sub worksheet_change(byval target as range)
if not intersect(target, range("B1:B100")) is nothing then '<<<limité à B1:B100 (intersection de la plage et de la cible non vide revient à dire que la plage contient la cible)
if target.value <> "" and target.count = 1 then 'si target non vide et pas un groupe de cellules
target.offset(0,1).value = target.value * 2 'la cellule à droite (décalée de 0 ligne et 1 colonne) de target prend valeur target x 2
end if
end if
end sub
'exemple 2
private sub worksheet_change(byval target as range)
if target.column = 2 then 'limité à 2è colonne
if target.value <> "" and target.count = 1 then 'si target non vide et pas un groupe de cellules
target.offset(0,1).value = target.value * 2 'la cellule à droite (décalée de 0 ligne et 1 colonne) de target prend valeur target x 2
end if
end if
end sub
Je ne sais pas quel est le but mais la formule reste à privilégier selon moi :
=B3 * 2 'à saisir en C3
Cdlt,