XL 2019 Fonction IF sur plus plage de cellule définie

[wrap food]

Bonjour a tous

Je rencontre un problème sur le fonctionnement de la fonction If .
Je souhaiterais que si une ou plusieurs cellules d'une plage défini et égale à "1" alors les cellules correspondantes soit égal à "".
j'ai essayé le code ci-dessous mais en vain.

If Range("E2:AF2") = 1 Then
Range("E41:AF87").Value = ""
End If

Pourriez vous le donner un début de solution.

Par avance merci

 

[Dranreb]

Bonjour.
Ça dépend de ce que contiennent les autres d'autre que 1. Si elles ont aussi des valeurs numériques mais autre que 1 on ne peut pas utiliser la méthode SpecialCells à moins de mettre une formule temporaire dans une ligne libre.

 

[pierrejean]

Bonjour wrap food
for each cel in range("E2:AF2")
if cel.value=1 then Range("E41:AF87").Value = ""
next

 

[Dranreb]

Plutôt
for each cel in range("E2:AF2")
if cel.value=1 then Intersect(Range("41:87"), cel.EntireColumn).Value = ""
next

 

[wrap food]

Un grand merci beaucoup a tous les deux
J'ai encore un dernier problème sur le même principe.
Vraiment désolé.
Cette fois Je souhaiterais que si une ou plusieurs cellules d'une plage défini contiennent une partie d'un texte alors les cellules correspondantes soit égal à "_".
J'ai essayé d'adapter le code ci dessous mais cela ne fonctionne pas.

for each cel in range("E2:E84")
if cel.value="CDD*" then Intersect(Range("C:AJ"), cel.EntireColumn).Value = "_"
next

je vais continué a chercher mais si vous pouviez me mettre sur la voila …..

encore merci de temps passé sur ce sujet

Cdt

 

[Dranreb]

'Like' au lieu de '='
et EntireRow au lieu de EntireColumn
Mais ça va écraser la E car elle est contenue dans C:AJ

 

[JBARBE]

Bonjour à tous,
if cel.value like"CDD*" then Intersect(Range("C:AJ"), cel.EntireColumn).Value = "_"
bonne journée !
bonjour Dranreb en même temps