bonjour
J'ai deux colonnes A et K. Dans A des n° et dans K différents texte suivant l'inscription dans A.
Pour effacer K si A est <= à 109 ou >= à 119 je dois donc écrire:
Sub test ()
If Range("A1") <=109 or >=119 Then
Range(activecell,ActiveCell.Offset(0,7)).Select
activecell = clearcontents
end if
end sub le code est il correct?
Ma question est la suivante: Comment généraliser ce code à l'ensemble des cellules K en fonction de A, des lignes 21 à 102 ????
Merci à l'avance
J'ai deux colonnes A et K. Dans A des n° et dans K différents texte suivant l'inscription dans A.
Pour effacer K si A est <= à 109 ou >= à 119 je dois donc écrire:
Sub test ()
If Range("A1") <=109 or >=119 Then
Range(activecell,ActiveCell.Offset(0,7)).Select
activecell = clearcontents
end if
end sub le code est il correct?
Ma question est la suivante: Comment généraliser ce code à l'ensemble des cellules K en fonction de A, des lignes 21 à 102 ????
Merci à l'avance
