J'ai un très gros chiffrier qui contient le nom de résidents sur diverses rues.
Une colonne est réservée pour le nom de la rue (A), mais la façon dont le chiffrier est monté, chaque nom de rue est en quelque sorte un intitulé sur la ligne qui précède la liste des résidents. Pour chaque résident la colonne A est vide.
Comment puis-je simplement insérer l'intitulé (le nom de la rue) dans la colonne A pour chacune des lignes concernées, puis détruire cette ligne où on ne retrouve que l'intitulé, et détruire aussi les lignes vides ?
Testes cette macro, et redis-nous si tu obtiens le résultat voulu
Code:
Sub a()
Dim dl&
dl = Cells(Rows.Count, 2).End(xlUp).Row
With Range("A1:A" & dl)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
EDITION: Je vois que ton édition a enrichi ta discussion d'un bonsoir
Mais as-tu testé le code que je t'ai proposé ?