Bonjour,

Je suis débutant en VBA et je cherche à faire une macro me permettant de gagner du temps sur un fichier.

Voici le principe et le travail déjà accomplit. je bloque sur la partie selectionner la plage de la cellule A1 jusqu'à la dernière ligne remplie.

cette macro doit :
-effacer les lignes au dessus de l entete donc de la ligne 1 a 14 (le problème de cela c est que si je clique plusieurs fois il répéte la manipulation ce que je voudrais éviter)
-remplacer les virgules par des espaces et les points par des virgules
-Après la suppression des lignes de 1 à 14, je veux sélectionner la plage de A1 à la dernière ligne pleine, mais il faut que j efface les 2 dernières lignes ou il y a le grand total et ***end of report*** et la je bloque

l'objectif étant une fois le bloque obtenu de réaliser un TCD sous vba avec les données brutes

Toutes ces macros sont activées par le bouton MACRO

voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
  Sub Bouton1_Cliquer()
 
' remplacement des points par des virgules dans la page VRS
'
Cells.Replace What:=".", Replacement:=".", LookAt:=xlPart, SearchOrder _
 :=xlByRows, MatchCase:=False
 
 
' Effacer les lignes à entete du VRS
'
 
    Rows("1:14").Select
    Selection.Delete Shift:=xlUp
 
 
 
' Compte le nombre de lignes pleines et effacer les 2 dernieres lignes
 
 
 
 Dim rcel As Range
 
    DerniereLigne = Range("A1").End(xlDown).Row
 
    Range("A1 & DerniereLigne").Select
 
    Selection.CurrentRegion.Select
 
    For Each rcel In Selection
 
        If rcel.Value = "" Then
           rcel.EntireRow.Delete
        End If
 
    Next rcel
 
 
End Sub
l,

merci d avance pour votre aide