inverser deux cellules

[jeanmimi62]

bonjour à tous et à toutes
j'ai un tableau de deux colonnes A et B avec 90 lignes. J'ai besoin d'inverser certaines cellules (ex A52 et B52 ou A35 et B35°.
J'ai essaye cette macro :
Sub Inverser()
Dim F$
F = [A1].Formula
[A1].Formula = [B1].Formula
[B1].Formula = F
End Sub

elle marche mais pour une cellule et je cherche une macro qui me permette d'inverser deux cellules es clicquant que un bouton situé au bout de la ligne comme dans l'exemple ci joint
merci de votre aide

 

[Robert]

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...

 

[anthoYS]

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

 

[CHALET53]

Re : inverser deux cellules

Bonjour,

cliquer dans la colonne C

 

[CHALET53]

Re : inverser deux cellules

Désolé,

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

 

[job75]

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 :

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+

 

[SubEndSub]

Re : inverser deux cellules

Bonjour chez vous

Le même souci chez pieralain 😉

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

 

[jeanmimi62]

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