XL 2013 Déplacement ligne dans base de données

Luc MOUNY · 3 Octobre 2021

Bonsoir à tous,

Me revoilà encore une fois, J'espère l'une des dernières.
J'en termine avec mon programme de gestion des adhérents de mon association.

J'ai beaucoup cherché, dans Excel-Download, Ainsi que dans de nombreux autres sites mais en vain.

Je souhaiterais avoir une piste, pour déplacer une ligne dans une base de données, et numéroter automatiquement cette même ligne.

Un exemple, valant mieux qu'un grand discours,

Luc MOUNY · 3 Octobre 2021

Oups j'ai dû malencontreusement valider mon message,
Dans le fichier joint, un exemple de mon souhait.

Je vous remercie à l'avance pour votre patience et votre gentillesse.
Luc

JM27 · 3 Octobre 2021

bonsoir
avec une macro événementielle

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B1000")) Is Nothing Then
   Application.EnableEvents = False
    Target.Offset(0, -1) = Application.WorksheetFunction.Max(Range("A1:A1000")) + 1
    Set Rng = Range("A2:B" & [B65000].End(xlUp).Row)
    Rng.Sort key1:=[A1], Order1:=xlAscending, Header:=xlNo
    Application.EnableEvents = True
    End If
End Sub

Luc MOUNY · 3 Octobre 2021

JM27 à dit:

bonsoir
avec une macro événementielle

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B1000")) Is Nothing Then
   Application.EnableEvents = False
    Target.Offset(0, -1) = Application.WorksheetFunction.Max(Range("A1:A1000")) + 1
    Set Rng = Range("A2:B" & [B65000].End(xlUp).Row)
    Rng.Sort key1:=[A1], Order1:=xlAscending, Header:=xlNo
    Application.EnableEvents = True
    End If
End Sub

Bonsoir JM27,

Un grand merci, ça fonctionne parfaitement

Mon souci est résolu, Mon programme est virtuellement terminé, Je continuerai à suivre Excel Download, mais je pense ne plus vous embêter avec mes questions qui peuvent sembler par moment pour vous évidente.

Je remercie bien vivement tous les participants qui ont eu la patience et la gentillesse de résoudre tous les problèmes que j'ai pu soumettre sur ce forum.

Portez-vous bien
Au revoir à tous

Luc MOUNY · 3 Octobre 2021

Luc MOUNY à dit:
Bonsoir JM27,

Un grand merci, ça fonctionne parfaitement

Mon souci est résolu, Mon programme est virtuellement terminé, Je continuerai à suivre Excel Download, mais je pense ne plus vous embêter avec mes questions qui peuvent sembler par moment pour vous évidente.

Je remercie bien vivement tous les participants qui ont eu la patience et la gentillesse de résoudre tous les problèmes que j'ai pu soumettre sur ce forum.

Portez-vous bien
Au revoir à tous

J'ai répondu un peu rapidement, car j'ai précisé que c'était toute la ligne que je souhaitais déplacer, les essais sur mon programme final, ne déplacent pas la ligne, mais seulement le nom, Aurais-je manqué quelque-chose ?
Je vous prie de m'excuser.
Luc

JM27 · 4 Octobre 2021

bonjour
Tu n'as pas à t'excuser !
Effectivement c'était indiqué dans la question.
remplace le B en gras dans la ligne
Set Rng = Range("A2:B" & [B65000].End(xlUp).Row)
par la colonne que tu souhaites voir trier ( colonne A à colonne XXX)
Cela ne sera pas la ligne complète .
Si tu veux une ligne complète il va falloir modifier la logique de la macro !!

XL 2013 Déplacement ligne dans base de données

Luc MOUNY

XLDnaute Junior

Luc MOUNY

XLDnaute Junior

Pièces jointes

JM27

XLDnaute Barbatruc

Pièces jointes

Luc MOUNY

XLDnaute Junior

Luc MOUNY

XLDnaute Junior

JM27

XLDnaute Barbatruc

Discussions similaires