XL 2013 Suppression ligne/colonne sur deux zone dans même onglet

Robert à dit:

Bonjour Alex et bienvenu, bonjour le forum,

Essaie comme ça :

VB:

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim I As Integer 'déclare la variable I (Incrément)

Application.ScreenUpdating = False 'masque le rafraîchissements d'écran
Set O = Worksheets("avant") 'définit l'onglet O (à adapter à ton cas)
TV = O.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = UBound(TV, 1) To 3 Step -1 ' boucle inversée sur toutes les lignes I du tableau des valeurs TV (de la dernière à la troisième)
    'si la donnée ligne I colonne 1 de TV est un point, supprime les 7 cellules de la ligne en déclant vers le haut
    If TV(I, 1) = "." Then O.Cells(I, 1).Resize(1, 7).Delete shift:=xlUp
Next I ' prochine ligne de la boucle
PLV = O.Cells(Application.Rows.Count, "I").End(xlUp).Row + 1 'définit la première ligne vide de la colonne I
O.Range(O.Cells(PLV, I), O.Cells(Application.Rows.Count, "J")).Delete shift:=xlUp 'supprime toutes les lignes en-dessous de PLV pour les colonnes I et J
Application.ScreenUpdating = True 'affiche le rafraîchissements d'écran
End Sub

Cliquez pour agrandir...

Alex6942 à dit:

Bonjour Robert,

Merci pour ton super retour 🙂

Cependant , cela ne marche pas dans le sens inverse , cas ou la première cellule contenant "." de la colonne A est la vingtième et que la dernière ligne de la colonne I est la cinquième par exemple ..

On touche presque au but 🙂

Cliquez pour agrandir...

Robert à dit:

Re,

Le code fonctionne dans tous les sens il me semble puisqu'il les deux tableaux séparément... Sinon envoie un fichier avec deux exemples pour que je comprenne.

Cliquez pour agrandir...