Copier/Coller au clavier

Bonjour à tous,

J'ai un soucis avec mon classeur.

Lorsque je veux faire un copier/ coller (Ctrl+c et Ctrl+v).

Ben le copier fonctionne, mais lorsque je sélectionne une autre page ou même cellule le copier se désélectionne et donc plus moyen de faire un coller.

Avez vous déjà eu ce problème?

Bonjour

Non.

Tu sélectionnes comment?

A la souris, je sélectionne 5-6 cellules sur une ligne

RE

Et la source est une cellule à coller sur les 5-6 ?

Oui...

Je ne comprend pas je fais come j'ai tjs fais et ça fonctionnais très bien jusqu'à aujourd'hui

RE

La feuille cible n'est pas protégée ?

Salut à tous,

As-tu essayé d'uniquement cibler la cellule de départ de la plage puis de 'CTR+V' ?

Bonne soirée,

Baboutz

Oui, aucun copier coller (souris, clavier ne fonctionne)

Une petite video du problème

https://youtu.be/uz5nWmo0mes

Je crois avoir compris, en fait j'ai 1 macros qui s'exécute au Worksheet_SelectionChange .

Ca doit être ça...., est ce que quelqu'un a une solution pour contourner ce problème?

Re

Quel est le code ?

78chris a écrit :

Re

Quel est le code ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = False
            If Not Application.Intersect(Target, Range("M2")) Is Nothing Then

            If Target.Value = "" Then
                With Target
                    .Value = Chr(168)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .Font.Name = "Wingdings"
                    .Font.Size = 18
                End With
                With Target.Offset(0, 1)
                    .Value = "Toutes références"
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With

            On Error Resume Next

            ElseIf Target.Value = Chr(168) Then
                With Target
                    .Value = Chr(254)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .Font.Name = "Wingdings"
                    .Font.Size = 18
                End With
                With Target.Offset(0, 1)
                    .Value = "Stock disponible"
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With

                For Ligne = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
                    If Cells(Ligne, "E") = "" Then Rows(Ligne).Hidden = True
                Next Ligne
            On Error Resume Next

            ElseIf Target.Value = Chr(254) Then
                With Target
                    .Value = Chr(168)
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                    .Font.Name = "Wingdings"
                    .Font.Size = 18
                End With
                With Target.Offset(0, 1)
                    .Value = "Toutes références"
                    .HorizontalAlignment = xlCenter
                    .VerticalAlignment = xlCenter
                End With

                For Ligne = Cells(Rows.Count, "B").End(xlUp).Row To 3 Step -1
                    If Cells(Ligne, "E") = "" Then Rows(Ligne).Hidden = False
                Next Ligne
          'Target.Offset(0, 0).Select

            End If
        End If

        last = Range("B" & Rows.Count).End(xlUp).Row
    If Not Application.Intersect(Target, Range("G3:G" & last)) Is Nothing Then
        With Range("A3:J" & last).Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        For i = 3 To last
            If Cells(i, 3) = "" Then
            Cells(i, 3) = "/"
            End If
        Next i
    End If

End Sub

Bonjour,

le plus simple le temps que tu finisses tes copiés collés à la ligne 2 tu mets :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
exit sub

Ensuite quand tu auras fini tu vire le exit sub.

Oui c'est une solution.

Il n'y a pas un moyen de créer un bouton qui va actionner un commentaire en VBA.

Je mettrais le exit sub en commentaire et quand j'en ai besoin, je l'active.

Evidemment vous pouvez par exemple ajouter un contrôle ActiveX du style : ToggleButton (Bouton bascule) sur votre feuille.

En "caption" du bouton quand il est en mode False vous l'appelez "DESACTIVER MACRO" puis dans le code du bouton vous indiquez le changement au clic :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "DESACTIVER MACRO"
Else
ToggleButton1.Caption = "ACTIVER MACRO"
End If
End Sub

Il ne reste plus qu'à utiliser la même condition dans le Sub de l'événement de votre feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if ToggleButton1.value="True" then
Exit sub
end if

Xmenpl a écrit :

Evidemment vous pouvez par exemple ajouter un contrôle ActiveX du style : ToggleButton (Bouton bascule) sur votre feuille.

En "caption" du bouton quand il est en mode False vous l'appelez "DESACTIVER MACRO" puis dans le code du bouton vous indiquez le changement au clic :

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "DESACTIVER MACRO"
Else
ToggleButton1.Caption = "ACTIVER MACRO"
End If
End Sub

Il ne reste plus qu'à utiliser la même condition dans le Sub de l'événement de votre feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if ToggleButton1.value="True" then
Exit sub
end if

Merci, c'est nickel comme ca.

Bonjour à tous,

Sinon, il y a éventuellement un essai à envisager :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Application.Intersect(Target, Range("M2")) Is Nothing xor Application.cutcopymode = true Then exit sub

            If Target.Value = "" Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

'reste du code

End Sub

Cdlt,