Mettre un 0 dans une cellule qui jouxte une cellule contenant un X

Bonjour

La question est dans le titre

ci-dessous fichier avec explications

Cordialement

Bonjour Joco

En VBA :

Sub CopyZeroBelow()
Dim oCell As Range
For Each oCell In Range("C2:L12")
If oCell.Offset(0, 1).Text = "" And oCell.Text = "X" Then
oCell.Offset(0, 1).Value = "0"
End If
Next
End Sub

Cdlt

Bonjour scraper

merci pour ton aide

je mets en place sur l'original et je te tiens au courant

Impeccable tout fonctionne

Merci Bonne journée

Je reviens sur mon fichier

Le code avec le X fonctionne bien ,mais il faudrait que quand je remplace le X par un nom que le 0

s'efface et laisse la cellule vide.

Est-ce possible

Je vous remercie

Bonsoir Joco7915, scraper, le forum,

A tester:

Cordialement,

Bonsoir…

J’évite de proposer une procédure impeccable quand le contexte est flou.

Donc, avec un contexte plus cerné, comme xorsankukai (

salut) je passe par une évènementielle Change accompagnée …

Bonjour

Merci pour vos réponses

je me suis planté dans mes explications je dois revoir mon tableau

Crdlt