Décaler cellule col A en titre de col B

[dyvin]

Bonjour, je suis nouveau sur le site et j'aurais vraiment besoin de votre aide pour une manipulation qui ne doit pas être trop difficile.
Je vous envoie mon fichier joint qui montre ce que j'ai maintenant et ce que j'aimerais en faire.

De manière synthétique, je souhaiterais décaler des celulles de la gauche en titre de la colonne de droite. Le fichier montre le problème clairement.

Je vous remercie d'avance pour votre aide.

 

[suistrop]

Re : Décaler cellule col A en titre de col B

bonjour,

voici un début de réponse surement a améliorer dans la mise en forme

Sub toto()
first_lettre = False
For i = 1 To 100
titi = Cells(i, 1)
    If IsNumeric(Cells(i, 1)) = False And Len(Trim(Cells(i, 1))) = 1 And first_lettre = True Then
        lettre = Cells(i, 1)
        Range(Cells(i, 1), Cells(i, 2)).Delete Shift:=xlUp
        Cells(i - 1, 1) = lettre
        i = i - 1
    End If
    If IsNumeric(Cells(i, 1)) = False And Len(Trim(Cells(i, 1))) = 1 Then
        first_lettre = True
    End If
    If IsNumeric(Cells(i, 1)) = True And Cells(i, 1) > 0 Then
            nombre = Cells(i, 1)
            Cells(i, 1).ClearContents
            Range(Cells(i, 1), Cells(i, 2)).Insert Shift:=xlDown
            Cells(i, 2) = nombre
            i = i + 1
    End If
Next i

 

[hoerwind]

Re : Décaler cellule col A en titre de col B

Bonjour et bienvenu sur le forum, salut suistrop,

Pas trop difficile ... !
Le nombre de candidats à te proposer une solution semble prouver le contraire.

Une approche en pièce jointe.
Elle fonctionne pour l'exemple, mais pas si des lignes sont insérées ou supprimées.
Il a fallu créer une colonne intermédiaire, faute de quoi ... ???