Effacer cellules

Bonsoir à toutes et à tous

Voilà je voudrais effacer les cellules comprises entre les colonnes B à V d'une ligne dont la cellule A10 et vide.

J'ai essayé cela:

Dim cel As Range

cel.EntireRow.ClearContents

Mais le problème est que cela efface toute la ligne et ne veux pas que les cellules de la colonne W soit effacées.

J'ai essayé en utilisant la fonction offset pour remplacer EntireRow, mais cela ne fonctionne pas.

Si vous avez la solution, merci d'avance.

Bonsoir,

Un test rapide

Sub Test()
Dim i As Integer
For i = 1 To 100
    If Cells(1, i) = "" Then
    Range("B" & i & ":V" & i).ClearContents
    End If
Next i
End Sub

Cordialement,

Bonjour toutes et tous,

Merci Ergotamine

@tester ci-joint en prenant une partie du code d'Ergotamine

si A10 est vide si j'ai compris

crdlt,

André

Bonsoir, Salut à tous !

je voudrais effacer les cellules comprises entre les colonnes B à V d'une ligne dont la cellule A10 et vide.

Si la cellule A10 est vide (à tester !) tu pourras effacer les 22 premières colonnes de la ligne 10 !

Sinon rien : il n'y a de cellule A10 que sur la ligne 10 !

Si tu testes sur 100 lignes, c'est que ta plume a peut-être fourché, mais pourquoi 100 ? 100 à tester ? Pas une de plus ni de moins ? Une plage à tester, à moins qu'elle ne soit préfixée, se dimensionne, il y a quantité de méthodes pour cela !

Et si tu veux effacer 22 colonnes, il serait mieux de dimensionner l'effacement au lieu de viser la ligne entière. Par exemple, dans ton code : Cel.Resize(, 22) au lieu de Cel.EntireRow.

Cordialement.

Bonjour et merci à vous trois pour vos réponses.

tout cela me va très bien.

Merci

AMicalement