Discussion :

[mikadoo57]

Bonjour,
dans une feuille d'un fichier, il y a deux colonnes (F et H) destinées à recevoir une date. Pour faciliter la saisie des usager, j'ai créé un contrôle calendrier et mis le code suivant dans l'objet feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'macro calendrier
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("F3:F1202", "H3:H" & Rows.Count)) Is Nothing Then   'la zone de saisie commence à la ligne 3
Cancel = True
Userform8.Show
End If
End Sub

cela fonctionne très bien mais je ne comprends pas pourquoi je dois spécifier une seconde valeur à F (ici 1202 mais avec 1 cela fonctionne tout aussi bien !) et pas pour H qui doit rester "H3:H"
La macro ne fonctionne que configurée comme cela.
Si quelqu'un peu m'éclairer car là, je suis dans le brouillard.
Merci

[Philippe Tulliez]

Bonsoir,
Parce-que tu utilises mal l'objet Range, ce que tu donnes comme argument à Range est proche de ce que l'on fait avec Range(Cells...
Sa syntaxe normal est Range("A2:A50")
Voici un petit exemple d'une procédure. Tu l'as fait tourner et regarde le résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub t()
 Dim rng As Range
 Set rng = Range("F3:F12022", "H3:H" & 50)
 MsgBox rng.Address
 Set rng = Range("F3", "H" & 50)
 MsgBox rng.Address
 Set rng = Range("F3:H" & 50)
 MsgBox rng.Address
End Sub

Comme dernière adresse pour la plage de cellules, il prend la ligne et la colonne la plus élevée.

[mikadoo57]

Merci Philippe.
J'essaye cela demain au taf et je te tiens au courant.