Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2147 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Selection de tableaux

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu] Selection de tableaux

n°1234011
Be_Aware
Posté le 29-10-2005 à 10:38:51  profilanswer
 

Bonjour,
 
J'ai 4 tableaux identiques sur une meme feuille. J'aimerai pouvoir les selectionner à loisir pour pouvoir refaire la mise en forme automatiquement quand cela est necessaire.
 
Mon problème est le suivant : comment dire à Excel de selectionner le tableau 2 ou le tableau 4 par exemple ?
 
Je suis sous Excel97.
 
Merci d'avance.


Message édité par Be_Aware le 02-11-2005 à 15:42:28
mood
Publicité
Posté le 29-10-2005 à 10:38:51  profilanswer
 

n°1234094
galopin01
Posté le 29-10-2005 à 14:44:20  profilanswer
 

selectionner le 1er tableau puis faire Insertion / Nom / Définir ...Tablo1 par exemple.
La même chose pour Tablo2, Tablo3...
Ensuite :

Code :
  1. Sub test()
  2. Range("Tablo1" ).Select
  3. End Sub


A+


---------------
roger
n°1234121
Be_Aware
Posté le 29-10-2005 à 15:47:20  profilanswer
 

Citation :

selectionner le 1er tableau puis faire Insertion / Nom / Définir ...Tablo1 par exemple.  
La même chose pour Tablo2, Tablo3...  
Ensuite :  
 
 
Code :
 
Sub test()  
Range("Tablo1" ).Select  
End Sub
 
 
 
A+


 
Merci de ta réponse.
 
Mais comment faire pour appliquer les mêmes modifications de formats quelque soit la plage selectionnée ?
 
Je vais essayer de m'expliquer plus clairement :
 
Admettons 2 tableaux. L'un en A7:I40 et l'autre en A77:I109. Ces deux tableaux vont se retrouver "malmener" lors de saisies (le quadrillage va être modifié, les cellules fusionner, les bodures effacées etc, etc), comment faire donc pour que lorsque je lance ma macro, Excel me modifie le bon tableau ? Là j'arrive à remettre le 1er tableau en état mais impossible d'atteindre le second tableau...
 
Merci de m'aider, je galère pas mal...
 

Code :
  1. Sub Macro1()
  3.     Range("A7:I40" ).Select
  4.     selection.Borders(xlDiagonalDown).LineStyle = xlNone
  5.     selection.Borders(xlDiagonalUp).LineStyle = xlNone
  6.     With selection.Borders(xlEdgeLeft)
  7.         .LineStyle = xlContinuous
  8.         .Weight = xlThin
  9.         .ColorIndex = xlAutomatic
  10.     End With
  11.     With selection.Borders(xlEdgeTop)
  12.         .LineStyle = xlContinuous
  13.         .Weight = xlThin
  14.         .ColorIndex = xlAutomatic
  15.     End With
  16.     With selection.Borders(xlEdgeBottom)
  17.         .LineStyle = xlContinuous
  18.         .Weight = xlThin
  19.         .ColorIndex = xlAutomatic
  20.     End With
  21.     With selection.Borders(xlEdgeRight)
  22.         .LineStyle = xlContinuous
  23.         .Weight = xlThin
  24.         .ColorIndex = xlAutomatic
  25.     End With
  26.     With selection.Borders(xlInsideVertical)
  27.         .LineStyle = xlContinuous
  28.         .Weight = xlThin
  29.         .ColorIndex = xlAutomatic
  30.     End With
  31.     With selection.Borders(xlInsideHorizontal)
  32.         .LineStyle = xlContinuous
  33.         .Weight = xlThin
  34.         .ColorIndex = xlAutomatic
  35.     End With
  36.     Range("A7:A12" ).Select
  37.     selection.Borders(xlDiagonalDown).LineStyle = xlNone
  38.     selection.Borders(xlDiagonalUp).LineStyle = xlNone
  39.     selection.Borders(xlEdgeLeft).LineStyle = xlNone
  40.     selection.Borders(xlEdgeTop).LineStyle = xlNone
  41.     selection.Borders(xlEdgeBottom).LineStyle = xlNone
  42.     selection.Borders(xlEdgeRight).LineStyle = xlNone
  43.     selection.Borders(xlInsideVertical).LineStyle = xlNone
  44.     selection.Borders(xlInsideHorizontal).LineStyle = xlNone
  45.     Range("B7:I8" ).Select
  46.     With selection
  47.         .HorizontalAlignment = xlCenter
  48.         .VerticalAlignment = xlCenter
  49.         .WrapText = True
  50.         .Orientation = 0
  51.         .ShrinkToFit = False
  52.         .MergeCells = True
  53.     End With
  54.     Range("A13:A40" ).Select
  55.     selection.Borders(xlDiagonalDown).LineStyle = xlNone
  56.     selection.Borders(xlDiagonalUp).LineStyle = xlNone
  57.     With selection.Borders(xlEdgeLeft)
  58.         .LineStyle = xlContinuous
  59.         .Weight = xlMedium
  60.         .ColorIndex = xlAutomatic
  61.     End With
  62.     With selection.Borders(xlEdgeTop)
  63.         .LineStyle = xlContinuous
  64.         .Weight = xlMedium
  65.         .ColorIndex = xlAutomatic
  66.     End With
  67.     With selection.Borders(xlEdgeBottom)
  68.         .LineStyle = xlContinuous
  69.         .Weight = xlMedium
  70.         .ColorIndex = xlAutomatic
  71.     End With
  72.     With selection.Borders(xlEdgeRight)
  73.         .LineStyle = xlContinuous
  74.         .Weight = xlMedium
  75.         .ColorIndex = xlAutomatic
  76.     End With
  77.     With selection.Borders(xlInsideHorizontal)
  78.         .LineStyle = xlContinuous
  79.         .Weight = xlThin
  80.         .ColorIndex = xlAutomatic
  81.     End With
  82.     Range("B7:I40" ).Select
  83.     selection.Borders(xlDiagonalDown).LineStyle = xlNone
  84.     selection.Borders(xlDiagonalUp).LineStyle = xlNone
  85.     With selection.Borders(xlEdgeLeft)
  86.         .LineStyle = xlContinuous
  87.         .Weight = xlMedium
  88.         .ColorIndex = xlAutomatic
  89.     End With
  90.     With selection.Borders(xlEdgeTop)
  91.         .LineStyle = xlContinuous
  92.         .Weight = xlMedium
  93.         .ColorIndex = xlAutomatic
  94.     End With
  95.     With selection.Borders(xlEdgeBottom)
  96.         .LineStyle = xlContinuous
  97.         .Weight = xlMedium
  98.         .ColorIndex = xlAutomatic
  99.     End With
  100.     With selection.Borders(xlEdgeRight)
  101.         .LineStyle = xlContinuous
  102.         .Weight = xlMedium
  103.         .ColorIndex = xlAutomatic
  104.     End With
  105. End Sub


Message édité par Be_Aware le 29-10-2005 à 15:48:44
n°1234171
galopin01
Posté le 29-10-2005 à 18:07:19  profilanswer
 

bonsoir,
Tu n'as pas besoin de tout redéfinir tu fais un Copier / Collage Spécial + Format ça devrait suffire.
 
Moi j'ai défini (Insertion / Nom / Définir) ton Tablo de Départ  comme suit :
 
Tablo fait référence à : =Feuil1!$A$7:$I$40  (tout le tableau)
 
Il faut mieux définir tes tableaux cibles par leur angle supérieur gauche.
Cible1 fait référence à =Feuil1!$A$77
Cible2 fait référence à =Feuil1!$A$147
Cible3 fait référence à =Feuil1!$A$217
 
Ensuite :

Code :
  1. Sub Test()
  2. Range("Tablo" ).Copy
  3.     Range("Cible1" ).PasteSpecial Paste:=xlPasteFormats
  4.     Range("Cible2" ).PasteSpecial Paste:=xlPasteFormats
  5.     Range("Cible3" ).PasteSpecial Paste:=xlPasteFormats
  6. End Sub


Attention ! Les cellules fusionnées sont à proscrire (ou à tout le moins très déconseillées) pour les macros. Risques de plantage.  
Dans 99 % des cas des solutions de contournement sont possible...
Si tu veux mettre un titre à ton tableau, il vaut mieux le mettre sur une seule ligne en B7 (la hauteur de la ligne s'adaptera à la taille de tes caractères)
ensuite tu Sélectionnes B7:I7 et tu fait Format / Cellules / Onglet Alignement + Choisir Horizontal + Centré sur plusieurs colonnes
Bon courage.
A+


---------------
roger
n°1236546
Be_Aware
Posté le 02-11-2005 à 15:41:16  profilanswer
 

Merci !
 
Ton aide m'a été précieuse et en suivant tes conseils je m'en suis sortis :)
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu] Selection de tableaux

 

Sujets relatifs
[RESOLU] pb de "unchecked conversion" avec generic[résolu]Menus - Question de débutant
[SQL] pb de selection...[Struts] 1ere application [RESOLU]
Recherche du maximum d une liste de nombres[resolu]format de cellule excel [résolu]
[RESOLU] Struts iterate et options[ PHP ][ Resolu ] Upload et verification d'un fichier binaire
[Résolu][VBA] Problème de "" ...numéro de feuille variable [Résolu]
Plus de sujets relatifs à : [Résolu] Selection de tableaux

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.084 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR