modifier une macro

[robbin06]

salut
je voudrais modifier macro qui marche tres bien sur toute la feuille mais voudrais que sa marche que de b8 a b25 merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[j3] = Target
End Sub

 

[zeltron24]

Re : modifier une macro

Bonjour robbin

Essayez ceci :

If Target.Column = 10 And Target.Row > 7 And Target.Row < 26 Then
Votre code
End If

 

[sourcier08]

Re : modifier une macro

Salut à tous,

Tu peux aussi utiliser :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B8:B25")) Is Nothing then

 

[robbin06]

Re : modifier une macro

merci a vous 2 pour sourcier08 erreur compilation bloc if sans end if pour zeltron24 rien ne se passe sur la feuille ????????
(g juste fais un copier coller de vos solutions peut etre fo rajouter kk chose de ma part mais koi ????

 

[zeltron24]

Re : modifier une macro

Re,
Peut etre un extrait de votre fichier pour voir.....

 

[robbin06]

Re : modifier une macro

c que je veux c clic une cellule entre b8 et b25 qui renvoi ce quil y a dans la celulle vers la cellule j3 ca marche tres bien avec
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[j3] = Target
End Sub

mais pour toute la feuille moi je veux que de b8 a b25 la si je clic partout ca marche aussi donc je supprime ma macro et j attend la votre merci

 

[sourcier08]

Re : modifier une macro

Désolé, pour moi la suite était logique mais c'est vrai que si tu débutes, la suite ne viendra pas toute seule.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B8:B25")) Is Nothing then
Range("J3")= Target
end if
end sub

 

[robbin06]

Re : modifier une macro

c impect merci sourcier08