Supprimer contenu cellule selon autre cellule Fermé

Question

Bonjour, 


Sur Excel j'essaie de créer une macro qui permet d'analyser une valeur d'une  cellule et qui en fonction de sa valeur, supprime le contenu d'une autre cellule. Jusqu'à là pas trop de soucis, un simple "IF range("L5") < 1 then range("Q5") = " " .....  Cependant j'aimerai appliquer cette formule à tout un tableau entier sans devoir écrire l'analyse pour chaque ligne indépendamment ...

Donc éviter de devoir faire : 
If Range("L5") < 1 Then
Range("Q5") = ""
End If
If Range("L6") < 1 Then
Range("Q6") = ""
End If
If Range("L7") < 1 Then
Range("Q7") = ""
End If

etc...

Dans mon tableau exemple il n'y a que 11 lignes mais le but serait d'appliquer ça ensuite à un tableau bien plus grand (environ 1000 à 2000 lignes)

Est-ce qu'il y a une solution qui analyse pour toutes les lignes de la plage définie qui dès qu'il y a une valeur dans le contenu de cette plage, qui pour la ligne correspondante supprime la donnée dans colonne "Q" ? 

Soit : "Si dans plage "L5:L15" il y a une valeur < 1 alors la ligne correspondante en colonne "Q" = ""
sachant que dans "L5: L15" il peut y avoir plusieurs cellules concernées en même temps.

Je connais déjà la formule range("Q" & (activecell.row)) = "" mais cela s'applique uniquement sur la ligne "actuellement sélectionnée"..

Comment faire pour que l'analyse s'applique à l'entier de la plage souhaitée ? 


Merci d'avance de vos réponses à cette question.


Configuration: Windows / Firefox 61.0

ccm81 · Answer

Bonjour

Const lideb = 5

Sub ok()
Dim li As Long, lifin As Long
lifin = Range("L" & Rows.Count).End(xlUp).Row
For li = lideb To lifin
  If Range("L" & li).Value < 1 Then Range("Q" & li).Value = ""
Next li
End Sub
Cdlmnt

ccm81 · Answer

Tu ne dis pas sur quelle ligne se produit l'erreur
Peut être un pb d'accès à une feuille
Le fichier
https://www.cjoint.com/c/HHvlWxsUGqB

Cdlmnt

ccm81 · Answer

https://www.cjoint.com/c/HHvofjyZHAB

Cdlmnt

ccm81 · Answer

https://www.cjoint.com/c/HHEmSt4TbeB

Cdlmnt

Supprimer contenu cellule selon autre cellule

4 réponses

Discussions similaires