VBA effacer contenu de quelques cellules

Résolu/Fermé
mimilendo35 Messages postés 8 Date d'inscription mercredi 27 avril 2016 Statut Membre Dernière intervention 10 mai 2016 - 29 avril 2016 à 10:30
mimilendo35 Messages postés 8 Date d'inscription mercredi 27 avril 2016 Statut Membre Dernière intervention 10 mai 2016 - 29 avril 2016 à 10:44
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 :)


1 réponse

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
29 avril 2016 à 10:36
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

1
mimilendo35 Messages postés 8 Date d'inscription mercredi 27 avril 2016 Statut Membre Dernière intervention 10 mai 2016
29 avril 2016 à 10:44
La boucle est une très bonne idée !

Merci beaucoup Thautheme
0