Effacer une cellule d'une plage

[eliot raymond]

[XL-2007] Bonsoir a tous et toutes, forum bonsoir

Comment svp faire pour raccourcir ce code un peu repetitif

je dois effacer les cellules des colonnes en ligne

Lig , 3 - 4 ------ 6 - 7 - 8 - 9

Lig=7 par Ex: etant la variable pour les lignes


Juste la fin de mon code ou il me faut effacer

Else                   
.Value = ""
Cells(Lig, 3).Value = "": Cells(Lig, 4).Value = ""
Cells(Lig, 6).Value = "": Cells(Lig, 7).Value = ""
Cells(Lig, 8).Value = "": Cells(Lig, 9).Value = ""
End If
End With
End Sub

Merci a vous s'il vous reste quelques secondes a me consacrer

et bonne soirée a vous

Raymond

 

[Excel-lent]

Re : Effacer une cellule d'une plage

Bonsoir Eliot Raymond,

je dois effacer les cellules des colonnes en ligne

Lig , 3 - 4 ------ 6 - 7 - 8 - 9

Quand je lis ceci je comprend que tu veux effacer pour la ligne : lig, toutes les cellules de la colonne 3 à 9!

Alors ton code pourrais être par exemple :

     Else
       Range(Cells(Lig, 3), Cells(Lig, 9)).ClearContents
     End If
  End With
End Sub

Or dans ton code tu saute la colonne 5!!! Tu n'effaces que les colonnes 3 à 4 et de 6 à 9

Si c'est ce que tu veux, le code ci-dessous fera la même chose que ta macro :

      Else
               Range(Cells(Lig, 3), Cells(Lig, 4)).ClearContents
               Range(Cells(Lig, 6), Cells(Lig, 9)).ClearContents
      End If
  End With
End Sub

Au faite!!!

Tu n'as pas remarqué que tu avais posté ton message au mauvais endroit???

Tu te sens pas trop seul ici?

C'est ici qu'il fallait poser ta question!

Autre avantage que celui que les posts soient bien ordonnées et facile à rechercher, tu attends beaucoup moins longtemps pour obtenir une réponse, car tout le monde est là bas 😉

Bonne soirée

 

[eliot raymond]

Re : Effacer une cellule d'une plage

Bonjour exl lent bonjour forum

Merci pour le petit code je vais essayer ca, excuse moi si je me suis tromper, j'ai du forcer sur le gibolin, erreur de ma part desoler.

Pour le code c'est bien ca, c'etait histoire de voir si on ne pas faire simple, au lieu du repetitif

A plus tard et bonne journée a toi

Raymond

 

[Excel-lent]

Re : Effacer une cellule d'une plage

Bonjour,

Sinon, si tu es dans le premier cas de figure : de 3 à 9

Tu peux aussi utiliser une boucle pour éviter la répétition, mais dans ton cas, ce n'est pas la solution optimum!! Mais la voici quand même ci-dessous :

     Else
       [COLOR="Blue"][B]For[/B] i = 3 [B]To[/B] 9[/COLOR]
           Cells(Lig, i).ClearContents
       [COLOR="Blue"][B]Next[/B] i[/COLOR]
     End If
  End With
End Sub

Bonne journée

 

[PascalXLD]

Re : Effacer une cellule d'une plage

Bonjour

Fil déplacé