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

[Luc MOUNY]

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]

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]

bonsoir
avec une macro événementielle

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]

bonsoir
avec une macro événementielle

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]

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]

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