VBA 2016 vs 2010....adaptations

Question

J'ai le VBA suivant qui fonctionne sur excel 2016...mais pas sur un autre ordi en excel 2010 que je suis oblige d utiliser.... " Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim addrSource As String, addrDestination As String, fonction As String, nom As String Set isect = Application.Intersect(Target, Range("H6:" & Cells(6, Columns.Count).End(xlToLeft).Address)) If Not isect Is Nothing Then fonction = Cells(11, Target.Column) nom = Cells(9, Target.Column) & " " & Cells(7, Target.Column) groupe = Cells(10, Target.Column) etat = Cells(14, Target.Column) competence = Cells(4, Target.Column) addrSource = Range(Cells(18, Target.Column), Cells(46, Target.Column)).Address addrDestination = Range(Cells(18, "H"), Cells(46, "H")).Address Sheets("Fiche individuelle C").Range(addrDestination).Value = Sheets("Cadres").Range(addrSource).Value Sheets("Fiche individuelle C").Range("D7").Value = fonction Sheets("Fiche individuelle C").Range("D6").Value = nom Sheets("Fiche individuelle C").Range("D5").Value = groupe Sheets("Fiche individuelle C").Range("G3").Value = etat Sheets("Fiche individuelle C").Range("D4").Value = competence Feuil5.Activate End If End Sub" en gros sur ma feuille de calculs je clique sur la ligne "6" (à partir de la cellule H6) et cela me copie la colonne dans une feuille deja existante. (ligne 18 a 46 par exemple ainsi que nom prenom fonction de la personne etc) Je pense qu il me faut juste adapter les balises pour que excel 2010 reconnaisse ce qu il doit faire..... merci d avance...

i20100 · Answer

J'ai fait le test sur xl2010, et je n'ai pas eu de message d'erreur, quel est votre message d'erreur, et sur quel ligne ...

Jean-Eric · Answer

Quel est le nom de la feuille au codename Feuil5 ? Cdlt...

i20100 · Answer

Bonjour pierrot69, Jean-Eric, à tous,

pierrot69, les événements sont peut être désactivés sur l'autre ordinateur,

pour les ré-activer, exécuter cette macro une fois:

Sub événement()
Application.EnableEvents = True
End Sub

Jean-Eric · Answer

Re,

Essaie ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wsDestination As Worksheet
Dim lastCol As Long, cn As Long, rw As Long
Dim fonction As String, nom As String
Dim groupe, etat, competence    'à définir ?
    If Target.CountLarge > 1 Then Exit Sub
    rw = 6: lastCol = Cells(rw, Columns.Count).End(xlToLeft).Column
    If Not Intersect(Target, Range("H6:H" & lastCol)) Is Nothing Then
        Cancel = True
        Set wsDestination = ActiveWorkbook.Worksheets("Fiche individuelle C")
        cn = Target.Column
        fonction = Cells(11, cn)
        nom = Cells(9, cn) & " " & Me.Cells(7, cn)
        groupe = Cells(10, cn)
        etat = Cells(14, cn)
        competence = Cells(4, cn)
        With wsDestination
            .Range(.Cells(18, 8), .Cells(46, 8)).Value = Range(Cells(18, cn), Cells(46, cn)).Value
            .Cells(7, 4).Value = fonction
            .Cells(5, 4).Value = groupe
            .Cells(3, 7).Value = etat
            .Cells(4, 4).Value = competence
            .Activate
        End With
        Set wsDestination = Nothing
    End If
End Sub

Jean-Eric · Answer

Voir exemple dans fichier joint. Cdlt...