SYMETRIE

SYMETRIE - VB/VBA/VBS - Programmation

Marsh Posté le 29-03-2005 à 16:41:01    

Bonjour,
j aimerai realiser le symétrique axiale d un tableau sur Excel;  
Exemple:
 
Tableau initial
 
PARIS         4        clair  
MARSEILLE     10       nuageux
LILLE         6        dégagé
ROUEN         7        brumeux
   
Tableau apres symétrie
 
ROUEN         7        brumeux
LILLE         6        dégagé
MARSEILLE     10       nuageux
PARIS         4        clair
 
De plus si j ajoute une ligne entre MARSEILLE et LILLE (dans le tableau initial), j aimerai que celle ci apparaisse automatiquement dans le tableau final (entre LILLE et Marseille)
 
Merci d'avance pour votre reflexion
 

Reply

Marsh Posté le 29-03-2005 à 16:41:01   

Reply

Marsh Posté le 29-03-2005 à 21:21:52    

Question 1 : Les valeurs sont dans des cases, sont-elles acollées les unes au autres sans espace(s) enntre alles ?
Question 2 : Tableau dans meme feuille je suppose ?

Reply

Marsh Posté le 30-03-2005 à 08:15:47    

reponse 1: oui elles sont accolés
réponse 2: je pourrais mettre le tableau ds une autre feuille pour la masquer
 
si tu vois une solution bon courage car sur cette question j ai pas eu d autres réponses...

Reply

Marsh Posté le 30-03-2005 à 17:56:35    

knakes as tu eu le message ?

Reply

Marsh Posté le 30-03-2005 à 19:57:45    

oui dslé pour le retard
 

Code :
  1. For i = 1 To Range("A1" ).End(xlDown).Row
  3. Range("A" & ( i + Range("A1" ).End(xlDown).Row + 1 ) ).Formula = Range("A" & i).Value
  5. Range("B" & ( i + Range("A1" ).End(xlDown).Row + 1 ) ).Formula = Range("B" & i).Value
  7. Range("C" & ( i + Range("A1" ).End(xlDown).Row + 1 ) ).Formula = Range("C" & i).Value
  9. Next


Message édité par knakes le 30-03-2005 à 20:05:17
Reply

Sujets relatifs:

Leave a Replay

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