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

COPIER suite simple clic

  • Initiateur de la discussion Initiateur de la discussion matcri
  • 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 !

M

matcri

Guest
Bonjour,
je recherche la manip automatique qui me permettra de copier des cellules d'une même ligne a la suite d'un simple clic sur la ligne. Ci-joint un exemple de ma demande. En espérant être compréhensible, d'avance merci bcp pour votre aide. Bonne soirée;
 

Pièces jointes

Re : COPIER suite simple clic

Bonjour


A mettre dans le code de la Feuille 1

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B5:B1000]) Is Nothing Then
        If Not IsEmpty(Target) Then
            With Feuil2.[A65536].End(xlUp)
                .Offset(1, 0) = Target.Cells(1, 1)
                .Offset(1, 1) = Target.Cells(1, 2)
                .Offset(1, 2) = Target.Cells(1, 6)
            End With
        End If
    End If
End Sub
PS: tu as posé ta question dans le mauvais endroit 😉
Le bon endroit c'est celui-ci
https://www.excel-downloads.com/forums/forum-excel.7/
 
Dernière édition:
- 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
6
Affichages
327
Réponses
16
Affichages
583
Réponses
5
Affichages
665
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…