Déplacer des cellules d'un tableau au moyen d'un SpinButton

D

david84

XLDnaute Barbatruc

• 27 Mai 2013

• #2

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonjour,
une proposition la plus simple possible pour que tu puisses la comprendre et l'adapter (elle suppose que la colonne à gauche de la plage est vide comme dans ton fichier mais sinon tu peux incorporer dans la macro la création d'une colonne temporaire et sa suppression en fin de macro) :

Code:

Option Explicit
Private Sub SpinButton1_SpinDown()
Dim Pl As Range
Set Pl = Range("B5:B13")
If Application.WorksheetFunction.CountIf(Pl, Selection) > 0 Then
    Application.ScreenUpdating = False
    Selection.Cut Destination:=Selection.Offset(0, -1)
    Selection.Offset(1, 0).Cut Destination:=Selection
    Selection.Offset(0, -1).Cut Destination:=Selection.Offset(1, 0)
    Selection.Offset(1, 0).Select
End If
Application.ScreenUpdating = True
End Sub

Private Sub SpinButton1_SpinUp()
Dim Pl As Range
Set Pl = Range("B6:B14")
If Application.WorksheetFunction.CountIf(Pl, Selection) > 0 Then
    Application.ScreenUpdating = False
    Selection.Cut Destination:=Selection.Offset(0, -1)
    Selection.Offset(-1, 0).Cut Destination:=Selection
    Selection.Offset(0, -1).Cut Destination:=Selection.Offset(-1, 0)
    Selection.Offset(-1, 0).Select
    Application.ScreenUpdating = True
End If
End Sub

Code à incorporer à ton SpinButton
A+
Edit : salut pierrejean

 

Dernière édition: 27 Mai 2013

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2013

• #3

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonjour Magic_Doctor

Un essai

Edit: Salut David (avais pas rafraîchi !!)

 

Pièces jointes

• Déplace_Cel.xlsm

  21.5 KB · Affichages: 51
• Déplace_Cel.xlsm

  21.5 KB · Affichages: 53
• Déplace_Cel.xlsm

  21.5 KB · Affichages: 56

Dernière édition: 27 Mai 2013

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 27 Mai 2013

• #4

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonjour David84,

Merci pour ta réponse. Ça marche, mais je ne comprends pas pourquoi, quand je déplace un item, celui-ci, au cours de son déplacement, n'est sélectionné qu'une fois sur deux.

 

Pièces jointes

• Déplace_Cel(2).xlsm

  21.9 KB · Affichages: 83

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 27 Mai 2013

• #5

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonsoir pierrejean,

Idem, je n'avais pas rafraîchi...
Ta solution marche aussi. Bizarrement, comme avec celle de david84, lors du déplacement d'un item, il n'est sélectionné qu'une fois tous les 2 clics sur le SpinButton. Pourrait-on faire en sorte qu'il soit à chaque fois sélectionné ; ce serait, disons, moins "déconcertant" visuellement parlant.
Quoi qu'il en soit, merci pour ton intervention.

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 27 Mai 2013

• #6

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Re

Ça marche, mais je ne comprends pas pourquoi, quand je déplace un item, celui-ci, au cours de son déplacement, n'est sélectionné qu'une fois sur deux.

Cliquez pour agrandir...

je pense que c'est dû au comportement du contrôle en lui-même car la cellule est sélectionnée à chaque fois et non une fois sur deux.
Le plus simple à mon avis est d'utiliser un contrôle de formulaire plutôt qu'un ActiveX.
En adaptant la solution proposée par pierrejean cela semble donner le résultat escompté.
A+

 

Pièces jointes

• Déplace_Cel.xlsm

  20.3 KB · Affichages: 84
• Déplace_Cel.xlsm

  20.3 KB · Affichages: 91
• Déplace_Cel.xlsm

  20.3 KB · Affichages: 93

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 27 Mai 2013

• #7

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonsoir david84,

Effectivement, avec un contrôle de formulaire c'est, disons, plus élégant (même si ça ne change strictement rien quant au résultat).
Le problème est que, pour des raisons techniques et surtout afin d'éviter de cumuler des boutons sur la feuille, je ferai appel à un USF dans lequel il y aura ce SpinButton et d'autres choses (comme la possibilité de trier la liste -hors 2 derniers items- par ordre alphabétique). Voilà pourquoi je tenais à utiliser un ActiveX que j'inclurai dans l'USF.
Je me demandais si ce "tri" ne pourrait pas être éventuellement fait virtuellement dans un tableau ou un dictionnaire. Mais là je me mélange encore un peu les pinceaux.

Bonne soirée à tous.

 

Dernière édition: 27 Mai 2013

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 27 Mai 2013

• #8

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

salut

avec un ActiveX et sans que d'autres colonnes ne soient perturbées.
Pas de problème d'adaptation avec un USF.

 

Pièces jointes

• MonteDescend Cellule.xlsm

  23.2 KB · Affichages: 45

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 28 Mai 2013

• #9

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonsoir Si...,

J'ai l'impression, à moins que je ne me trompe, que votre solution fait appel à un contrôle de formulaire et non un ActiveX.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2013

• #10

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Bonjour Magic_Doctor, salut David, Pierre, Si...

J'y vais de ma solution avec un contrôle de formulaire :

Code:

Sub Déplace()
Dim P As Range
Set P = [Liste].Offset(IIf([Liée], 2, 1)).Resize([Liste].Count - 4)
If Intersect(ActiveCell, P) Is Nothing Then Exit Sub
With ActiveCell
  .Cut
  .Offset(IIf([Liée], -1, 2)).Insert
  .Select
End With
End Sub

Voir les noms définis Liste et Liée.

Le "- 4" dépend bien sûr du nombre de cellules non déplaçables dans Liste.

Fichier joint.

A+

 

Pièces jointes

• Déplace_Cel(1).xlsm

  22.2 KB · Affichages: 48

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2013

• #11

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Re

Cela offre l'avantage de supprimer l'alternance irritante de l'affichage de la sélection
On peut s'affranchir du -4 en définissant Liste de B4 à B12

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2013

• #12

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Re Pierre,

pierrejean à dit:

On peut s'affranchir du -4 en définissant Liste de B4 à B12

Cliquez pour agrandir...

Non, car il faut au moins une cellule non modifiable en début de Liste et une autre en fin de Liste.

Sinon, à cause de Cut/Insert, la définition de Liste serait modifiée.

A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2013

• #13

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Re

Arf !!
J'ai encore perdu une occasion de m'abstenir !!!
Mes excuses Gerard ainsi qu'à tous

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Mai 2013

• #14

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Salut 😀

Magic_Doctor à dit:

Bonsoir Si...,

J'ai l'impression, à moins que je ne me trompe, que votre solution fait appel à un contrôle de formulaire et non un ActiveX.

Cliquez pour agrandir...

voir l'onglet explicatif dans le fichier joint (exemple avec UsF).

 

Pièces jointes

• MonteDescend Cellule(UsF).xlsm

  56.2 KB · Affichages: 37

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Mai 2013

• #15

Re : Déplacer des cellules d'un tableau au moyen d'un SpinButton

Re Pierre,

pierrejean à dit:

Mes excuses Gerard ainsi qu'à tous

Cliquez pour agrandir...

Tu es tout excusé, on s'embrouille facilement dans ce genre de problème.

A+

 

Vote positif 0 Vote négatif