VBA effacer contenu de quelques cellules Résolu

Question

Bonjour, 

Voilà, au début de mon langage VBA, j'effaçais l'intégralité de la ligne avec :

T.Rows(lig & ":" & lig).ClearContents

Mais j'aimerais effacer seulement le contenu de trois cellules de cette ligne, je n'arrive pas à modifier la formule.. 

 If Not c Is Nothing Then 'si on trouve le n° lot
 lig = c.Row 'stocke le n° de ligne (lig) où on a trouvé B2
 T.Rows(lig & ("B11,B13,B15") & lig).ClearContents 'efface le contenu de B11, B13 et B15 seulement

Merci d'avance :) 


Configuration: Windows 7 / Chrome 49.0.2623.112

ThauTheme · Answer

Bonjour Mimilendo, bonjour le forum,

Soit au cas par cas soit une petite boucle comme ci-dessous :

If Not c Is Nothing Then 'si on trouve le n° lot
    lig = c.Row 'stocke le n° de ligne (lig) où on a trouvé B2
    For I = 11 To 15 Step 2
        T.Cells(lig, I).ClearContents
    Next I
End If

VBA effacer contenu de quelques cellules

1 réponse

Discussions similaires

Newsletters