VBA effacer contenu de quelques cellules

Résolu
mimilendo35 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
mimilendo35 Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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   Statut Membre Dernière intervention  
 
La boucle est une très bonne idée !

Merci beaucoup Thautheme
0

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
Changer la couleur d'une cellule en fonction d'une autre cellule
Emilie9457 -
Mike-31 -

3 réponses
Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses