activecell

[clautu]

Bonjour à tous
En parcourant le forum j'ai trouver une réponse à ma question.

J'ai un problème avec des Activecell.
J'ai trouvé cela
Pour Feuil1 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B3:b17")) Is Nothing Then
'***détermine si la cellule sélectionnée appartient à la cible...
calendrier.Show
End If

End Sub
Ca marche sauf que Le seul problème est que si je veux refaire la même chose mais pour d'autres cellules (c13 et c14) et avec une macro différente, ca ne marche pas . Je l'ai essayé et on me marque une Ambiguité.

Auriez vous une solution !!

Merci

 

[SergiO]

Re : activecell

Bonjour clautu,

Si tu veux étendre la même macro à d'autres plages (ex: C13:C14)

Voici ce qu'il faut modifier :

If Not Intersect(ActiveCell, Range("B3:B17","C13:C14")) Is Nothing Then

Mais si tu veux rajouter un autre code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B3:b17")) Is Nothing Then
'***détermine si la cellule sélectionnée appartient à la cible...
calendrier.Show
End if
If Not Intersect(ActiveCell, Range("C13:C14")) Is Nothing Then
ton autre code...
End If

@+

 

[clautu]

Re : activecell

Salut à toi et à tous les autres du forum,
Je te remercie , c'est exactement ce que ça me prenait.
Tu es super et rapide
Mille merci!!!!🙂