inverser deux cellules

Robert

XLDnaute Barbatruc

Repose en paix

• 25 Août 2009

• #2

Re : inverser deux cellules

Bonjour Jeanmimi, bonjour le forum,

En pièce jointe ton fichier avec une macro événementielle BeforeDoubleClick (sur le double-clic) dans l'onglet Feuil1. Tu double-cliques dans la colonne A ou B et les cellules s'inversent...

 

Pièces jointes

• Jeanmimi_v01.xls

  34.5 KB · Affichages: 271
• Jeanmimi_v01.xls

  34.5 KB · Affichages: 272
• Jeanmimi_v01.xls

  34.5 KB · Affichages: 263

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 25 Août 2009

• #3

Re : inverser deux cellules

Bonjour,

Difficile avec ce fichier.
Peut tu réexpliquer concretement ta demande.
Je n'ai pas bien compris et je ne pense pas être le seul.

Merci

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 25 Août 2009

• #4

Re : inverser deux cellules

Bonjour,

cliquer dans la colonne C

 

Pièces jointes

• INVERSION.xls

  35 KB · Affichages: 200
• INVERSION.xls

  35 KB · Affichages: 233
• INVERSION.xls

  35 KB · Affichages: 243

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 25 Août 2009

• #5

Re : inverser deux cellules

Désolé,

j'avais pas vu la réponse de Robert
a+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2009

• #6

Re : inverser deux cellules

Bonjour à tous,

La méthode du double-clic proposée par Robert paraît de loin préférable (les boutons son lourds en Ko, pas bien beaux et laborieux).

Cependant s'il y en a peu, s'ils sont tous créés avec la barre d'outils Formulaires et sur les bonnes lignes, on peut leur affecter cette macro :

Code:

Sub Inverser()
Dim s As Object, lig As Integer, F$
For Each s In ActiveSheet.Shapes 'recherche du bon bouton
  If s.Name = "Button " & Split(Application.Caller, " ")(1) Then
    lig = s.TopLeftCell.Row
    Exit For
  End If
Next
F = Cells(lig, 1).Formula
Cells(lig, 1).Formula = Cells(lig, 2).Formula
Cells(lig, 2).Formula = F
End Sub

A+

 

Pièces jointes

• INVERSION(1).xls

  36 KB · Affichages: 168

Vote positif 0 Vote négatif

S

SubEndSub

XLDnaute Occasionnel

• 25 Août 2009

• #7

Re : inverser deux cellules

Bonjour chez vous

Le même souci chez pieralain 😉

https://www.excel-downloads.com/threads/inversion-donnees-cellule.125880/

 

Vote positif 0 Vote négatif

J

jeanmimi62

XLDnaute Nouveau

• 25 Août 2009

• #8

Re : inverser deux cellules

bonsoir
merci c'est exactement ce que je cherche. en fait je suis en train de faire un pg pour effectuer un tirage de coupe de football et j'ai besoin de pouvoir facilement inverser un match pour une question de gestion de stade
merci encore

 

Vote positif 0 Vote négatif