Suppression de ligne entre deux valeurs

[lostheroe]

Bonjour,

J'aurais souhaité faire un macro pour supprimer automatiquement les lignes entre deux valeurs lorsque je clique sur mise à jour brodereaux cela afin qu'il n'y est pas de doublon.

Merci

 

[DL_13]

Re : Suppression de ligne entre deux valeurs

Bonjour,

pas très esthétique mais essaye d'ajouter ces quelques ligne de codes en début de procédure

Sub Effacement_de_ligne()
Dim C As Range, x As Long
Set C = Sheets("Bordereau").Columns("A").Find(What:="TOTAL EUROS HORS TAXE")
If Not C Is Nothing Then
x = C.Row - 2
    Rows("10:" & x).ClearContents
End If
End Sub

A tester

Bonne Journée

 

[lostheroe]

Re : Suppression de ligne entre deux valeurs

C'est pas mal par contre j'aimerais bien supprimé c'est lignes et juste en laisser trois vides.

 

[DL_13]

Re : Suppression de ligne entre deux valeurs

Re,

teste ça

Option Explicit

Sub Effacement_de_ligne()
Dim C As Range, x As Long
Set C = Sheets("Bordereau").Columns("A").Find(What:="TOTAL EUROS HORS TAXE")
If Not C Is Nothing Then
x = C.Row - 2
Application.ScreenUpdating = False
Sheets("Bordereau").Rows("10:" & x).Delete
    Rows("10:10").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Application.ScreenUpdating = True
End If
End Sub

Bonne Journée

 

[lostheroe]

Re : Suppression de ligne entre deux valeurs

Super c'est pile ce que je voulais.

Je vais abuser encore un peu de ta gentillesse.
J'aurais souhaité que le bouton modification marge fonctionne.
En faite je voudrais lorsque je clique dessus il me fasse apparaitre une fenetre ou je puisse saisir ma nouvelle marge.
Et qu'ensuite il mette à jour cette marge dans la totalité de la grille récap en remplaçant le chiffre dans l'exmple 1 par celui que j'aurais saisi. a chaque endroit ou il trouveras le texte marge en colonne L.
Le début de la feuille étant la ligne 8 connu et la fin le texte GRILLE RECAPITULATIVE