améliorer ligne de code

J

jp14

XLDnaute Barbatruc

• 6 Mai 2016

• #2

Re : améliorer ligne de code

Bonjour

Ci dessous un code possible

ok = true
For i = 3 to x step 3
If target.adress <> "$D$" & i then
Ok= false
exit for
Next i
If ok = false then exit sub
Bonne journéee

JP

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Mai 2016

• #3

Re : améliorer ligne de code

Bonjour.

Je dirais :

VB:

If Not Target.Address Like "$D$*" Or Target.Row Mod 3 <> 0 Then Exit Sub

 

Dernière édition: 6 Mai 2016

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 6 Mai 2016

• #4

Re : améliorer ligne de code

Merci à vous deux

En effet celà fonctionne si les cellules sont réparties toutes les 3 lignes comme dans ma question mais si les cellules sont discontigues et non réparties toutes les 3 lignes ?

Je pensais en novice à un code du type : If Target.Address <> "$D$5","$D$7","$D$11" etc. sachant qu'il y a une vingtaine de cellules à prendre en compte dans la même colonne

Merci

 

Dernière édition: 6 Mai 2016

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 6 Mai 2016

• #5

Re : améliorer ligne de code

Bonjour

En utilisant un "Array"

Code:

Dim tablo As Variant, i As Long, Ok as Boolean

tablo = Array("$D$5","$D$7","$D$11", .......)
Ok = true
For i = LBound(tablo) To UBound(tablo)
If target.adress <> tablo(i) then
Ok= false
exit for
end if
Next i
If ok = false then exit sub

JP

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 6 Mai 2016

• #6

Re : améliorer ligne de code

Merci jp14

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 6 Mai 2016

• #7

Re : améliorer ligne de code

Bonsoir gourdin, jp14, Dranreb,

Autre méthode possible:

Code:

Dim Plage As Range
Set Plage = Range("D3, D6, D9, D12,.....")
If Intersect(Plage, Target) Is Nothing Then ....

Cordialement.

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 20 Mai 2016

• #8

Re : améliorer ligne de code

Merci Papou-net

 

Vote positif 0 Vote négatif