Macro deplacement cellule

bjr

je cherche à déplacer une cellule avec une macro , à savoir je voudrais le nom de famille à droite du prénom;

ex sur le fichier joint B2 en C1

B5 en C4

B9 en C8 etc......

https://www.excel-pratique.com/~files/doc2/KRLouma_genealogie_2.xlsm

en appliquant la macro sur chaque ligne concernée avec un raccourci du style "ctrl x" directement sur les cellules B2 B5 B9 etc...

j'ai essayè de faire une macro (la 1ère) mais c'est la ligne C1.qui se modifie à chaque fois ????

Sub deplacnom()

'

' deplacnom Macro

'

' Touche de raccourci du clavier: Ctrl+x

'

Selection.Cut

Range("C1").Select

ActiveSheet.Paste

End Sub

merci pour votre aide

Bonjour,

Faut-il supprimer la ligne nom après déplacement ?

y-a t-il quelque chose dans les autres colonnes ?

Claude.

Bonjour,

Essaie ceci :

Sub test()
' MAcro Dan pour Myriamille - 05/10/09
' http://forum.excel-pratique.com/viewtopic.php?t=13448
Dim i As Long
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Range("B" & i).Cut Range("c" & i - 1)
Next
End Sub

Amicalement

Dan

PS : si ton pb est terminé n'oublie pas de mettre RESOLU sur le fil... Explication --> https://forum.excel-pratique.com/viewtopic.php?t=13

re,

Dan, Bonjour quand même,

Sub DéplaceNom()
''Macros par Claude Dubois pour "Myriamille" Excel-Pratique le 5 Oct 09
Dim Lg As Integer, i As Integer
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
    For i = 1 To Lg
        If Cells(i, 1) = "nom" Then
            Cells(i, 2).Cut Destination:=Cells(i - 1, 3)
            Cells(i, 1).EntireRow.Delete
        End If
    Next i
End Sub

Amicalement

Claude.

merci à vous deux

Etant complètement néophyte, j'ai fait un copier coller des macros et celle de "DUBOIS" marche super.

Par contre le descriptif de la macro est pour moi du charabia !!!.

Est-il possible de m'expliquer comment faire une macro en faisant les mouvements directement à l'écran comme j'avais essayé de le faire mais pour un seul nom

exemple:

Alphonse

GIRARD

avant 1851

18/11/1873

domicilié à Blois

cultivateur

devient:

Alphonse GIRARD

avant 1851

18/11/1873

domicilié à Blois

cultivateur

J'aimerais essayer de comprendre. Merci encore

re,

Tu veux le prénom et le nom dans la même cellule, c'est çà ?

édit: çà donnerai çà:

Sub DéplaceNomConcat()
''Macros par Claude Dubois pour "Myriamille" Excel-Pratique le 5 Oct 09
Dim Lg As Integer, i As Integer, Cel As Range
    Application.ScreenUpdating = False
    Lg = Range("A65536").End(xlUp).Row
    For i = 1 To Lg
        If Cells(i, 1) = "nom" Then
            Cells(i, 2) = Cells(i - 1, 2) & " " & Cells(i, 2)
            Cells(i - 1, 1).EntireRow.Delete
        End If
    Next i
End Sub

Claude.

non, je suis désolée

le prénom et le nom dans deux colonnes distinctes (pour pouvoir faire un tri ulterieurement)

re,

Alors j'ai pas compris ta dernière question, çà marche ou pas ?

Claude

non

je joint un nouveau fichier allégé qui j'espère sera plus simple à comprendre

https://www.excel-pratique.com/~files/doc2/ma_genealogie_bis.xlsm

merci Claude

re,

Bonjour Claude, on s'est croisé là...

Merci de mettre ton fichier au format excel 2003 ou inférieur (extension *.XLS). Sinon pas possible de lire pour tout le monde.

A te relire

Dan

re,

Ton fichier n'apporte rien de plus,

continu sur celui-ci en xls

https://www.excel-pratique.com/~files/doc2/genealogie2.xls

en mettant des annotations de ce que tu veux (avant/après)

Claude.

bonsoir

ci-joint fichier .xls

https://www.excel-pratique.com/~files/doc2/ma_genealogie_bis.xls

merci

merci Claude de vous pencher sur mon cas

https://www.excel-pratique.com/~files/doc2/Copie_de_genealogie2.xls

re,

Ton fichier n'apporte pas beaucoup d'explications... Le fichier ne correspond pas à ta demande. Là une donnée en colonne A et dans ta demande tu parles de colonne B.

Une seule donnée dans ta colonne A alors que tu parles de plusieurs données. Pas facile de te faire un code qui va fonctionner dans ce cas.

Mets le bon fichier afin que le code soit bon au premier coup. Poster trop de fichier alourdit le forum et n'apporte rien de plus.

A te relire

Amicalement

Dan