Mettre dans l'onglet redimensiooner tableau la valeur trouver par sélection

Bonjour,

Dans un tableau, je souhaite modifier la valeur qui est inscrite dans redimensionner le tableau par une valeur sélectionnée.

Je joins un fichier pour explication.

Bonne réception.

Cordialement.

re, c'est un tableau structuré, donc il faut en profiter !

Sub Bouton1_Cliquer()
     '
     ' Bouton1_Cliquer Macro
     '

     Dim i
     With Range("TABDEMARQUE").ListObject    'votre tableau structuré
          For i = .ListRows.Count To 1 Step -1
               If WorksheetFunction.CountA(.ListRows(i).Range) = 0 Then .ListRows(i).Delete     'si aucune cellule contient quelque chose
          Next
     End With
End Sub

Bonsoir BsAlv,

EN VOUS REMERCIANT.💋💋

C'EST SUPER

Mon problème venait du fait que je supprimais une ligne et lorsque j'arrivais au niveau du TCD, il y avait une erreur.

Il fallait tout simplement supprimer les lignes qui contenaient des cellules vides mais uniquement à l'intérieur du TCD.

Je n'ai aucun regret dans le sens que je n'aurai pas su faire cette formule.

En tout cas c'est trés gentil à vous de m'avoir dépanné.

Cela fonctionne du tonnerre.

ENCORE UN GRAND MERCI.

Bien cordialement.