Décaler une ligne automatiquement

Bonjour,

Dans un tableau contenant plus de 56000 lignes je me trouve avec un décalage concernant plusieurs lignes. Je vous donne un exemple:

SMITH, Joséphine Mary (Mrs. BC 1938 1938 L Décès

C.E.)

MARTIN, Marguerite Loretta (Mrs. NE 1938 1938 M- Décès

John DUPONT )

BOURGUIGNON, Clara (nee NB 1938 M Décès

MARTINEAU)

Cela n'est pas systématique mais cela comprends plusieurs centaines enregistrements de ce genre. En fait la seconde ligne devrait être attachée à la ligne qui la précède.

Est-il possible de remonter automatiquement via une macro toutes les lignes qui serait du genre: NOM )

Merci d'avance.

Christophe

Bonjour,

Déjà, sur + de 56 000 lignes, le traitement risque d'être assez long...

ensuite, pourrais-tu envoyer un fichier exemple, sans données confidentielles, avec quelques exemples de "bonnes saisies", et de saisies à reprendre?

@ te relire

Re-,

bon, j'ai commencé un code, (0.85 seconde pour 56 000 lignes)

Cependant, il faut que tu clarifies quelques points....

Est-ce qu'une cellule valide comporte forcément des parenthèses (ouvrantes et fermantes)?

A partir de quelle cellule faut commencer la rectification?

Est-ce qu'on peut recopier sur une autre colonne le résultat final?

@ te relire

Bonjour,

Voici un exemple avec des données fictives. Les enregistrements a corriges représentent peut être 1000 à 1500 personnes.

Merci.

Christophe

Re-,

Je vois dans ton exemple qu'il peut y avoir plusieurs paires de parenthèses (ouvrantes et sortantes)...

Est-ce que toutes les cellules doivent se terminer par une parenthèse fermante?

Et est-ce qu'il peut y avoir des espaces à la fin des cellules?

@ te relire

Re-,

Dans la majorité des cas les parenthèses sont fermantes et a quelques rares exceptions j'en ai des entrantes et fermantes.

Oui toutes les cellules a modifier doivent être avec une parenthèse fermante.

Christophe

Re-,

J'ai mal formulé ma question...

Est-ce que "TOUTES" les cellules (qu'elles soient à modifier ou non) sont terminées par un parenthèse fermante?

Re-,

Alors non. Pour les hommes pas de parenthèses entrantes et fermantes. Par contre pour les femmes oui, le nom de leur mari entre les parenthèses.

Christophe

Re-,

Dans ce cas, j'aimerai bien avoir un exemple un peu plus fourni...

Avec des lignes à rectifier, d'autre non...

Bref, pour qu'un code fonctionne à coup sûr, il faut qu'on lui dise quoi faire en toute circonstance....

Par exemple, est-ce que dans la ligne à reprendre, la cellule de la colonne C sera toujours vide?

Re-,

Je vous prépare cela.

Merci encore pour votre aide.

Christophe

Re-,

Voici un exemple avec plus d'enregistrements. Les lignes surlignes en rouge sont normalement a remonté d'une ligne. elles sont donc partie intégrante de la ligne du dessus.

Merci.

Christophe

Re-,

Voici un exemple avec plus d'enregistrements. Les lignes surlignes en rouge sont normalement a remonté d'une ligne. elles sont donc partie intégrante de la ligne du dessus.

Merci.

Christophe

Re-,

Essaie avec ce code :

Sub reprendre()
Dim Tblo1 As Object, Tblo2 As Object
Dim I As Long, DerLig As Long
Dim Tmp
Application.ScreenUpdating = False
t = Timer
Set Tblo1 = CreateObject("Scripting.Dictionary")
Set Tblo2 = CreateObject("Scripting.Dictionary")
DerLig = Cells(Rows.Count, 1).End(xlUp).Row
For I = 1 To DerLig
    If Cells(I + 1, 3) = "" Then
        Tblo1(I) = Cells(I, 1) & " " & Cells(I + 1, 1): I = I + 1
        Tblo2(I) = I
    Else
        Tblo1(I) = Cells(I, 1)
    End If
Next I
Tmp = Application.Transpose(Tblo2.Items)
For I = UBound(Tmp) To LBound(Tmp) Step -1
    Rows(Tmp(I, 1)).Delete
Next I
Range("A1").Resize(Tblo1.Count) = Application.Transpose(Tblo1.Items)
MsgBox Timer - t
End Sub

Pour info, 5 secondes pour 3000 corrections sur 56000 lignes....

Mille Mille Merci.

Je m'incline....

Cela fonctionne parfaitement et vous venez des heures et des des heures de mise en page.

Merci encore pour votre collaboration et votre rapidité.

Christophe