Effacer cellules non contiguës d'une ligne

job75

XLDnaute Barbatruc

• 11 Janvier 2015

• #2

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

Bonsoir jp65,

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2015

• #3

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

Re,

Ou avec une variable n :

Code:

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

A+

 

Vote positif 0 Vote négatif

J

jp65

XLDnaute Junior

• 11 Janvier 2015

• #4

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:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Janvier 2015

• #5

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 :

Code:

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

A+

 

Vote positif 0 Vote négatif

J

jp65

XLDnaute Junior

• 12 Janvier 2015

• #6

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

 

Vote positif 0 Vote négatif