Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
Un autre essai sans bouton mais avec un Double Click dans la plage de cellule correspondante
de plus la Macro ne fonctionne que si la cellule n'est pas vide
Fait un essai double cliquant dans la plage I5:I7 et tu peux ajouter des items en Colonne I
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLig As Long: DerLig = Feuil1.Range("I" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("I5:I" & DerLig)) Is Nothing Then Cancel = True: [E4] = Target
End Sub
Désolé pour ma réponse tardive mais des vacances au soleil m'ont empêcher de répondre rapidement.😎
Merci pour vos réponse, cela m'a été très utile et l'ensemble des réponses ont répondu à mon interrogation suivant plusieurs approches très constructive.
- 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.