Discussion :

[123quatre]

bonjour,


je cherche a ecrire un script qui, dès que je cliques sur une case de la colonne G, un calendrier s'affiche et je sélectionne une date qui se copie dans la case sélectionnée:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("G") == True Then
UserForm1.Show
Else
UserForm1.Hide
End If
End Sub

je suis débutant et je ne trouve pas l'erreur, merci de me donner un coup de main


sincèrement

[Commodore]

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = Range("G" & i) Then
UserForm1.Show
Else
UserForm1.Hide
End If
End Sub

Avec i le numero de la ligne.

[123quatre]

merci

par contre je désire sélectionner toutes la colonne, suis obliger de faire une boucle sur les lignes? j'ai utiliser Range("G") ça ne marche pas

[Commodore]

mets Range("G:G")

[mordrhim]

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 7 Then
UserForm1.Show
Else
UserForm1.Hide
End If
End Sub

la colonne G etant la 7e

[123quatre]

voici mon code, je trouve quand même une erreur à la compilation:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = Range("G:G") Then UserForm1.Show
End If
 
End Sub
 
 
 
Worksheet_SelectionChange (Range("G:G"))

[mordrhim]

normal,

Code :

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

Worksheet_SelectionChange (Range("G:G"))

est en dehors de balises sub.

Code :

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

If Target = Range("G:G") Then UserForm1.Show

ne fonctionera que si tu selectionne TOUTE la colonne G

[Commodore]

il faudrait lire le tuto, ce serait instructif si tu débutes en VBA.

[AlainTech]

Un petit coup de F1 sur Intersect devrait t'aider.