Effacer cellules non contiguës d'une ligne

[jp65]

Bonjour le forum

Je tourne en rond sur mon problème.
Je souhaite effacer certaines cellules contiguës et non contiguës d'une même ligne.Le numéro de la ligne concernée est lié à une variable.
Je joint un fichier exemple.

Merci pour votre aide.

 

[job75]

Re : Effacer cellules non contiguës d'une ligne

Bonsoir jp65,

Sub Effacer()
If ActiveCell.Row > 1 Then Intersect(ActiveCell.EntireRow, [C:C,E:F,H:H]) = ""
End Sub

Si le test ActiveCell.Row > 1 n'est pas utile, enlevez-le.

A+

 

[job75]

Re : Effacer cellules non contiguës d'une ligne

Re,

Ou avec une variable n :

Sub Effacer()
Dim n&
n = 4 'modifiable
If n > 1 Then Intersect(Rows(n), [C:C,E:F,H:H]) = ""
End Sub

A+

 

[jp65]

Re : Effacer cellules non contiguës d'une ligne

Bonjour job75

J'ai intégré ton code dans le mien et tout va bien.
Voici l'intégration dan mon code:

Cells(mavariable, 1).Select
If ActiveCell.Row > 1 Then Intersect(ActiveCell.EntireRow, [C:C,E:F,H:H]) = ""

mavariable est la variable de la ligne active.

Un grand merci pour ta réponse rapide

Bonne soirée

 

[job75]

Re : Effacer cellules non contiguës d'une ligne

Re,

Il faut bien se mettre dans la tête qu'en VBA il est inutile de sélectionner :

If mavariable > 1 Then Intersect(Rows(mavariable), [C:C,E:F,H:H]) = ""

A+

 

[jp65]

Re : Effacer cellules non contiguës d'une ligne

Bonjour job75, le forum

C'a y est job75, j'ai appliqué ta dernière solution sans select.

Merci pour ton aide.

Bonne soirée