Merge: plusieur valeurs avec validation

Merge: plusieur valeurs avec validation - VB/VBA/VBS - Programmation

Marsh Posté le 13-10-2005 à 17:26:29    

Je fait une macro sous Excel dans laquelle je veux fusionner plusieur cellules contigues qui ont la même valeur. Mais dès que j'utilise l'instruction: "Selection.Merge" une fenêtre souvre pour me demander si je veux fusionner les cellules en gardant la valeur de la cellule la plus an haut à gauche. Moi je ne veux pas que la macro ce pose de question et donc qu'elle valide la fusion à chaque fois sans que cette boite de dialogue apparaisse.
Vous savez comment faire?   :pt1cable:  
 
Je sais pas si c'est un  complément de l'instruction pour lui dire de forcer l'action ou si il faut faire autrement.
Vous avez un p'tit idée???  :??:


---------------
Tout vient à point à qui sait se détendre
Reply

Marsh Posté le 13-10-2005 à 17:26:29   

Reply

Marsh Posté le 13-10-2005 à 18:46:11    

Il faut utiliser Application.DisplayAlerts = False
Par exemple, j'ai testé le code suivant qui marche sans afficher de boîte d'avertissement :
 

Code :
  1. Application.DisplayAlerts = False
  2. Range("A1:B1" ).Select
  3. With Selection
  4.         .HorizontalAlignment = xlCenter
  5.         .VerticalAlignment = xlBottom
  6.         .WrapText = False
  7.         .Orientation = 0
  8.         .AddIndent = False
  9.         .ShrinkToFit = False
  10.         .MergeCells = False
  11. End With
  12. Selection.Merge
  13. Application.DisplayAlerts = True

:)

Reply

Marsh Posté le 13-10-2005 à 21:21:49    

Je te remerci beaucoup, je testerai ça demain matin  ;)  
Je te tiens au courant pour voir si ça marche o poil! Mais ça m'a l'air plus que correct  :D  
                                 :bounce:  :bounce:  :bounce:  :bounce:  
 :hello:

Reply

Marsh Posté le 14-10-2005 à 08:59:26    

C'est bon!!! CA MARCHE  :D  
Je te remercie, je ne suis plus obligé d'appuyer sur "OK" 234 fois de suite  :lol:


---------------
Tout vient à point à qui sait se détendre
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed