Essayons de résumer : Si je mets ce code dans le module de ThisWorkbook (comme tu sembles le faire)
Private Sub Workbook_Open() Application.DisplayAlerts = False Sheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" & [match(2,D1:D26,0)]).Merge End Sub
A l'ouverture du fichier, si dans D1:D26 de "Feuil3" les valeurs, 1 puis 2, existent, il n'y a aucune raison que ça ne marche pas
AV
Essayons de résumer :
Si je mets ce code dans le module de ThisWorkbook (comme tu sembles le faire)
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Sheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" &
[match(2,D1:D26,0)]).Merge
End Sub
A l'ouverture du fichier, si dans D1:D26 de "Feuil3" les valeurs, 1 puis 2,
existent, il n'y a aucune raison que ça ne marche pas
Essayons de résumer : Si je mets ce code dans le module de ThisWorkbook (comme tu sembles le faire)
Private Sub Workbook_Open() Application.DisplayAlerts = False Sheets("feuil3").Range("D" & [match(1,D1:D26,0)] & ":D" & [match(2,D1:D26,0)]).Merge End Sub
A l'ouverture du fichier, si dans D1:D26 de "Feuil3" les valeurs, 1 puis 2, existent, il n'y a aucune raison que ça ne marche pas