Discussion :

[passkok]

Bonjour,

Dans mon code VB, j'essaie de fusionner deux cellules Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.Workbooks.Open CheminApp & "fichier.xls", , 1
Application.ActiveWorkbook.ActiveSheet.Range("B2", "C4").Merge

Le fusion ca marche, mais il m'affiche un message a chaque fusion de cellules.


Merci

[OhMonBato]

Bonjour,
Il me semble que le message est clair, ça n'a rien à voir avec VB mais si tu fusionnes 2 cellules qui contiennent des données, la nouvelle cellule résultante ne peut contenir qu'une seule valeur.

[passkok]

merci,

oui c vrai. Mais je ne peux pas cacher ce message?
car il gène l'utilisateur.

[DarkVader]

Displayalerts=false

[passkok]

Ou je le mets ??
après .merge ??

[fred_m]

salut
il me semble :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.Workbooks.Open CheminApp & "fichier.xls", , 1
Displayalerts=false 
Application.ActiveWorkbook.ActiveSheet.Range("B2", "C4").Merge 
Displayalerts=true

(je prefere le remettre a la fin pour éviter toute manip par erreur...)