séparation des code dans la meme Sub

camarchepas

XLDnaute Barbatruc

• 30 Août 2014

• #16

Re : séparation des code dans la meme Sub

Ilino ,

Je crois qu'a multiplier les discussions pour en fait le même sujet,

l'on arrive plus à suivre ton besoin.

rien ne sert de nous arceler , si C est une position spécifique , alors , il faut simplement la mémoriser dans un module standard avec une variable public , puis l'utiliser aprés , mais en aucun cas modifier la syntaxe de l'événementiel.

Dans un module standard
Public C as range
sub memoire
Set C = range("C4")
end sub

puis ici

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

utilisation de C

End Sub

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Août 2014

• #17

Re : séparation des code dans la meme Sub

Re nono
merci pour la réponse
C est une position variable , j'ai utilisé ce code pour faire bouger un bouton(bouton Menu) dans la feuille "FGP 2014"avec le curseur de la souris donc il est variable : Set C = range("C4") ????

grazie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Août 2014

• #18

Re : séparation des code dans la meme Sub

Ilino à dit:

a quel niveau je modified mon code ?

Cliquez pour agrandir...

Au niveau de la variable c, à remplacer tout simplement par Target 🙄

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Août 2014

• #19

Re : séparation des code dans la meme Sub

Re Job
j'aurai pas apres un conflit dans la meme sub(just pour savoir) ???
A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Août 2014

• #20

Re : séparation des code dans la meme Sub

Re,

Non, aucune raison, le 1er code ne fait que nommer la cellule/plage.

Faut pas voir des conflits partout, Excel c'est pas l'Irak.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Août 2014

• #21

Re : séparation des code dans la meme Sub

Re
apparemment ce n'est pas le cas ( c'est IRAK😀) j'ai modifier le code les bouton ne bouge pas avec le cursseur soory maitre ?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 30 Août 2014

• #22

Re : séparation des code dans la meme Sub

Bon ,

voici donc un exemple ,
lorsque tu cliques sur une cellule , le bouton ce déplace au même endroit.

Si j'ai compris c'est ce que tu veux faire .

 

Pièces jointes

• Souris_Bouton.xlsm

  15.8 KB · Affichages: 9

Dernière édition: 30 Août 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Août 2014

• #23

Re : séparation des code dans la meme Sub

Re NONO
grazie pour le code ;mais ce n'est pas l'objet de mon souci, neanmoins encore merci
NB : le code du bouton qui bouge avec le curseur ça fonctionne tres bien chez moi
A+

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 30 Août 2014

• #24

Re : séparation des code dans la meme Sub

Bon ,

Je crois que j'en perds mon vba , j'arrive vraiment pas à cerner ton besoin.

Désolé....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Août 2014

• #25

Re : séparation des code dans la meme Sub

Bonjour Ilino, camarchepas,

Fichier joint avec le code qui soit-disant crée un conflit 😕

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Target.Name = "Cible"

If ActiveSheet.Name = "FGP 2014" Then
    With ActiveSheet.Shapes("CommandButton109")
     .Top = Target.Top - 25
     .Left = Target.Left + 150
    End With
 

    With ActiveSheet.Shapes("CommandButton15")
    .Top = Target.Top - 25
    .Left = Target.Left + 195
    End With
End If

End Sub

Edit : pour ceux qui aiment le bon français noter qu'il faut écrire "soi-disant".

A+

 

Pièces jointes

• Classeur(1).xlsm

  22.8 KB · Affichages: 23
• Classeur(1).xlsm

  22.8 KB · Affichages: 21
• Classeur(1).xlsm

  22.8 KB · Affichages: 25

Dernière édition: 1 Septembre 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 31 Août 2014

• #26

Re : séparation des code dans la meme Sub

Bonjour Job,camarchepas, forum
je vous remercie infinement pour vos propositions (super forum)
grazie
B.W

 

Vote positif 0 Vote négatif