Voilà je reçois de mon entreprise une base de données sous excel (voir
fichier joint feuille 1).
Je dois l'exploiter, mais pour celà il faut qu'elle soit "propre". J'ai déjà
commencé une macro qui enlève les entètes, mais toutes les données sur la
même ligne, etc ...
OUI mais voilà, il me rste 2-3 petites choses à faire et je bloque. Cette
base peut être plus ou moins longue en fonction de la ville car il s'agite de
données sur les rues. et avoir jusqu'à 2000 lignes (mais je pense que celà
n'est pas un problème)
1) - je souhaiterais que les données soient "ranger",
"positionner" 1 ligne sur 2. (voire fichier joint feuille 2).
2) - une fois ranger une ligne sur deux, je souhaiterais que la
dernière ligne soit supprimée. Oui en effet, il s'agit du nom de la base
source de mon entreprise.
Mais elle me gène, car ensuite pour exploiter la base un fait un copier
coller et bien sur ce texte suit et me parasite mon tableau de calcul.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub nettoie() Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next End Sub
Cordialement JB
Bonjour,
Sub nettoie()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A65000").End(xlUp).Select
For i = 1 To Selection.CurrentRegion.Rows.Count - 1
ActiveCell.EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Next
End Sub
Sub nettoie() Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Range("A65000").End(xlUp).Select For i = 1 To Selection.CurrentRegion.Rows.Count - 1 ActiveCell.EntireRow.Insert ActiveCell.Offset(-1, 0).Select Next End Sub
