Utilisation d'une variable

[pierre17du]

Je suis sur une ComboBox, et pour facilité la modification éventuel du document par des tiers je veux utiliser une variable, sauf qu'il me manque un truc au niveau de la sintaxe:

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
[A1] = Target.Row
[B1] = Target.Column
Cancel = True
UserForm1.Show
End If

End Sub

 

[Pierrot93]

Re : Utilisation d'une variable

BONJOUR,

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

 

[Robert]

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é

 

[pierre17du]

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.

 

[Robert]

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 :

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:

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 ???

 

[pierre17du]

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)

 

[pierre17du]

Re : Utilisation d'une variable

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

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

et sur:

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

 

[Fo_rum]

Re : Utilisation d'une variable

Bonjour,

avec un autre type de "Déclaration"

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

 

[pierre17du]

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.

 

[pierre17du]

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

 

[Robert]

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 :

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

 

[Staple1600]

Re : Utilisation d'une variable

Bonsoir

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

Du grand art !

 

[Staple1600]

Re : Utilisation d'une variable

Re

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

 

[pierre17du]

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 :

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

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