Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

inverser 2 cellules sur excel

 

19 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

inverser 2 cellules sur excel

RÉSOLU
Prévenir les modérateurs en cas d'abus 
jpol36
jpol36
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 19/02/2012 à 17:25:03  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,
je voudrais faire une macro pour inverser 2 cellules dans excel sur une même ligne.
j'ai fait ça :
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub inv_cell()
  2. '
  3. 'inv_cell Macro
  4. 'inverse 2 cellules
  5. '
  6. 'Touche de raccourci du clavier: Ctrl+i
  7. '
  8.  Selection.Cut Destination:=Range("I14")
  9.  Range("B14").Select
  10.  Selection.Cut Destination:=Range("A14")
  11.  Range("I14").Select
  12.  Selection.Cut Destination:=Range("B14")
  13.  Range("B14").Select
  14. End Sub

mais pour être utilisable sur n'importe quelle ligne...
comme je l'ai fait, je reste sur la ligne 14 !!!
par quoi remplacer ce que j'ai fait ?

dans une longue liste, je veux remmettre en place le nom et le prénom dans le bon ordre.

merci, jpol.

Edit par Tintin10 : rajout des balises de code
Edit du titre par Tintin10 : enlèvement de la balise [résolu]
Message édité par Tintin10 le 18/03/2017 à 19:06:29

---------------
jpol
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 19/02/2012 à 19:36:48  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonsoir,

hypothèse:
nom situé dans la colonne A
prénom dans la colonne B

voici un ptite macro à tester pour quelques inversions
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub inverse()
  2.  nom = ActiveCell
  3.  ActiveCell = ActiveCell.Offset(0, 1)
  4.  ActiveCell.Offset(0, 1) = nom
  5. End Sub


1) tu sélectionnes une cellule colonne A
2) tu lances la macro

par contre si tu as des milliers d'inversion à effectuer, alors il te faut une autre macro

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub listenoms()
  2. 'selectionnez les cellules colonnes A
  3.  With Selection
  4.    For Each cel In Selection
  5.      nom = Cells(cel.Row, 1)
  6.      Cells(cel.Row, 1) = Cells(cel.Row, 2)
  7.      Cells(cel.Row, 2) = nom
  8.    Next
  9.  End With
  10. End Sub


1) tu sélectionnes les cellules colonne A
2) tu lances la macro
willy

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 18/03/2017 à 19:04:33

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
jpol36
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 20/02/2012 à 07:23:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
merci willy, ça marche, mais je voudrais lui attribuer une conbinaison de touche (ex: ctrl+i) pour leer plus vite...
 j'essaie..
 jpol


---------------
jpol
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 20/02/2012 à 09:57:10  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour,

 voir le lien:
 http://office.microsoft.com/fr [...] 02306.aspx


 ajoute (résolu) au titre du 1er post si tout fonctionne bien

 dans Excel on peut inverser leur contenu PAS les cellules....
 willy


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
jpol36
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 21/02/2012 à 09:01:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
merci willy, ça marche :super:


---------------
jpol
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/02/2012 à 10:47:00  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

 

jpol36 a écrit :

merci willy, ça marche :super:
 




 avec Plaisir,

 si tu as d'autres questions sur Excel, n'hésite pas.
 formules,présentation, macros....

 willy


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
 Page :
1

Aller à :
 

Sujets relatifs
Excel : proteger certaines cellules / annuler la protection (resolu) excel : formule pour calculer mes heures de travail
Inverser disque dur inverser la photo pour pouvoir coller sur t-shirt??
Inverser les couleurs Windows 7 Inverser le choix des partitions
Plus de sujets relatifs à : inverser 2 cellules sur excel

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
outlook 1
problème works se 9 5
fonction emploi du temps 0
Demarrage de word 2003 tres lent 1
fenêtre insérer numéro de page désactivée quoi qu'il arrice! 1