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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Luc MOUNY

XLDnaute Junior
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,
 
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
 

Pièces jointes

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
 
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
 
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 !!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour