Question rapide

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

Bonjour,

Evite de mettre des cellules fusionnées quand tu veux les utiliser en VBA, : supprime la fusion, sélectionne les cellules que tu veux centrer puis format de cellules/Alignement/Centrer sur plusieurs colonnes. Sinon envoie une partie de ton fichier que quelqu'un solutionne ton problème.

Je te remercie benead pour ton action. Je vais attendre parce que g pas le fichier en quesion

Rechercher des sujets similaires à "question rapide"