Utilisation d'une variable

Pierrot93

XLDnaute Barbatruc

• 22 Juillet 2011

• #2

Re : Utilisation d'une variable

BONJOUR,

un début de réponse ici :
Lien supprimé

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2011

• #3

Re : Utilisation d'une variable

Bonjour Pierre, bonjour le forum,

Essaie comme ça :
Private ChoisEmployeDebut As String
'rentrer ici les coordonnes de la première cellule de la colonne employé
ChoisEmployeDebut = "AB5"
Private ChoisEmployeDebut As String
'rentrer ici les coordonnes de la dernière cellule de la colonne employé
ChoisEmployeFin = "AB23"



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

'code pour la selection de nom du personnel
If Not Intersect(Target, Range(ChoisEmployeDebut & ":" & ChoisEmployeFin)) Is Noting Then

[Édition]
Bonjour Pierrot. Oui tu as raison j'avais même pas vu... Désolé

 

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 22 Juillet 2011

• #4

Re : Utilisation d'une variable

merci de a proposition, je l'ai tenté mais j'obtien le même résultat que pour moi:


A vrai dire je n'arrive pes à savoir le type de donnée dans Range, est-ce bien une String?
je n'ai encore rien trouvé à ce sujet pour confirmer.🙁

 

Pièces jointes

• prob.jpg

  33.5 KB · Affichages: 79
• prob.jpg

  33.5 KB · Affichages: 87
• prob.jpg

  33.5 KB · Affichages: 86

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2011

• #5

Re : Utilisation d'une variable

Bonjour les Pierre's, bonjour le forum,

Oui j'avais pas fait attention ! Les définitions des variables doivent être dans la procédure BeforeRightClick. Les déclarations peuvent être en dehors (niveau Module) mais pas les définitions. Essaie comme ça :

Code:

Private ChoisEmployeDebut As String
Private ChoisEmployeDebut As String
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ChoisEmployeDebut = "AB5"
ChoisEmployeFin = "AB23"
If Not Intersect(Target, Range(ChoisEmployeDebut & ":" & ChoisEmployeFin) Is Noting Then
     [A1] = Target.Row
     [B1] = Target.Column
     Cancel = True
     UserForm1.Show
End If
End Sub

ou comme ça:

Code:

Private ChoisEmployeDebut As Range
Private ChoisEmployeDebut As Range
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set ChoisEmployeDebut = Range("AB5")
Set ChoisEmployeFin = Range("AB23")
If Not Intersect(Target, Range(ChoisEmployeDebut ,ChoisEmployeFin) Is Noting Then
     [A1] = Target.Row
     [B1] = Target.Column
     Cancel = True
     UserForm1.Show
End If
End Sub

Mais je comprends pas alors pourquoi utiliser des variables qui correspondent à des adresses en dur ???

 

Dernière édition: 22 Juillet 2011

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 22 Juillet 2011

• #6

Re : Utilisation d'une variable

Je vais tenter.
Ce fichier va surement étre utilisé par plusieurs personnes différentes, dont un bon nombre ne connnaissent pas la programmation, je voudrais simplifier au mieux les chamgements futurs ( qui, apparemment, ne seront pas nombreux, mais je préfére prendre les devants)

 

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 22 Juillet 2011

• #7

Re : Utilisation d'une variable

Bon, grace à toi ça avance un peut, là ( dans les deux cas) il bloque sur :

Code:

If Not Intersect(Target, Range(ChoisEmployeDebut & ":" & ChoisEmployeFin) Is Noting Then

et sur:

Code:

If Not Intersect(Target, Range(ChoisEmployeDebut ,ChoisEmployeFin) Is Noting Then

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 22 Juillet 2011

• #8

Re : Utilisation d'une variable

Bonjour,

avec un autre type de "Déclaration"

Code:

Option Explicit
Const ChoisEmployeDebut = "AB5"
Const ChoisEmployeFin = "AB23"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range(ChoisEmployeDebut, ChoisEmployeFin)) Is Nothing Then Exit Sub
    [A1] = Target.Row
    [B1] = Target.Column
    UserForm1.Show
End Sub

 

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 22 Juillet 2011

• #9

Re : Utilisation d'une variable

Mes premiers tests me laissent penser que c'est une solution parfaitement fonctionnel, je confirmirais quand ça marchera parfaitement.
Merci encore.

 

Dernière modification par un modérateur: 22 Juillet 2011

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 22 Juillet 2011

• #10

Re : Utilisation d'une variable

Probléme réglé,
juste pour que d'autre en profite, le fichier est dans la discution

https://www.excel-downloads.com/threads/problemes-de-mise-en-page.166963/

Encore merci

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 22 Juillet 2011

• #11

Re : Utilisation d'une variable

Bonjour le fil, bonjour le forum,

Je ne comprends absolument pas pourquoi l'utilisation de variables (ou même de constantes) et pas :

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AB5:AB23") Is Nothing Then

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2011

• #12

Re : Utilisation d'une variable

Bonsoir

Bravo pierre17du, voici un fil complet dans lequel à aucun moment tu ne nous dis bonjour . 🙄

Du grand art !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Juillet 2011

• #13

Re : Utilisation d'une variable

Re

Je vois pas de bonjours émanant de pierre17 dans ce fil.
Où les vois-tu Sharky ?

 

Vote positif 0 Vote négatif

P

pierre17du

Guest

• 25 Juillet 2011

• #14

Re : Utilisation d'une variable

Bonjour
Je vous présente mes excuses pour les bonjours, je n'ai jamais été sur les forums au paravant, et j'étais plus dans une ambiance de chat. désolé.

Bonjour le fil, bonjour le forum,

Je ne comprends absolument pas pourquoi l'utilisation de variables (ou même de constantes) et pas :

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("AB5:AB23") Is Nothing Then

Cliquez pour agrandir...

C'était effectivement le code que j'avais au début; dans mon ducument j'ai des zones actives avec le clique droit; comme il sera utilisé par des personnes ignorant surement l'existance du VBA, je voulais simplifier au plus les modifications résultant de l'ajout de lignes ou de colones. (si vous voulez mieux vous faire une idée de mon probléme (passé) tchéquez la discution précité (où phlaurent55 m'a bien aidé), et imaginez les difficultés, que qqu ne connaisant rien au VBA, aurait eu à ajouter une ligne)

Mais je viens de tomber sur une solution plus sympat encore sur :Ce lien n'existe plus
qui utilise le gestionaire de nom.

Cordialement. P

 

Vote positif 0 Vote négatif