Bonsoir,
La macro ci-dessous consiste a copier le contenue de la cellule en cliquant 2 fois de l'onglet "Global") à l'onglet "fiche de synthèse"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
For i = 2 To 150
If Target = Cells(i, 1) Then
Sheets("Fiche de synthése").Cells(8, 1) = Cells(i, 1)
Sheets("fiche de synthése").Activate
End If
Next i
End Sub
Ça marche parfaitement, cependant En mettant les cellules de l'onglet "global" fusionnée et centrée ça ne marche pas,
pouvez vous m'arranger la macro si possible,
Vous remerciant par avance,
Cordialement