Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Petit complément pour ActiveCell, Range

  • Initiateur de la discussion Initiateur de la discussion Albatros
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

Albatros

Guest
Bonsoir,

Tout doucement (mais alors très doucement !) j'arrive a obtenir ce que je souhaite avec des listes déroulantes, sauf un petit soucis :

J'ai une liste déroulante, quand je clic sur la cellule C23 et jusqu'à C46 mon combox vient s'afficher et je choisis dans ma liste les données qui vont se coller dans la cellule activée.

C'est exactement ce que je veux, mais par contre pas seulement pour ("C23:C46") mais aussi pour C71:C94

Et là dans mon code je ne sais pas où lui ajouter "aussi les cellules de C71 à C94" ?????

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(ActiveCell, Range("C23:C46")) Is Nothing Then
TraitementsdevisP1.Show
End If
End Sub

Si quelqu'un peut me donner cette indication ce serait très gentil
 
Re : Petit complément pour ActiveCell, Range

Bonsoir Albatros

Ci dessous ton code modifié (pas testé).

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C23:C46,C71:C94")) Is Nothing Then
TraitementsdevisP1.Show
End If
End Sub

Bonne soirée
@+
 
Re : Petit complément pour ActiveCell, Range

Hooooo ! C'est super !! ça fonctionne parfaitement.

Je m'obstinais à mettre ou un point virgule ou alors deux points entre les deux....c'était une virgule (j'ai vraiment honte)

Merci infiniment Pierrot93
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
32
Affichages
2 K
Réponses
14
Affichages
1 K
T
Réponses
2
Affichages
2 K
Tibooo
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…