séparation des code dans la meme Sub

[Ilino]

Forum Bonjour
Question d’ordre générale
Je souhaite un code ou une syntaxe pour séparer mes codes dans la meme sub.. est il possibl ?
grazie

 

[camarchepas]

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

 

[Ilino]

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

 

[job75]

Re : séparation des code dans la meme Sub

a quel niveau je modified mon code ?

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

A+

 

[Ilino]

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+

 

[job75]

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+

 

[Ilino]

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 ?

 

[camarchepas]

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 .

 

[Ilino]

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+

 

[camarchepas]

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é....

 

[job75]

Re : séparation des code dans la meme Sub

Bonjour Ilino, camarchepas,

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

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+

 

[Ilino]

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