suppression de cellule de gauche

[Alex]

Bonjour,

Voila j'ai une feuille excel
Dans la selection de la ligne 10 a 15 par exemple
je voudrait supprimer la valeur présente dans toutes les cellules dont les cellule se situant sur la gauche n'ont pas de valeur

J'ai joins un fichier explicatifs
Je voudrais faire cette suppréssion par le biais d'une petite macro

QQn peut il m'aider?


Merci d'avance
[file name=Classeur1_20060320124508.zip size=2872]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060320124508.zip[/file]

 

[vekmort]

Salut,

Fonctionne pour le tableau joint :

Sub e()
Dim i As Integer, j As Integer
For i = 10 To 15 Step 1 'Lignes
For j = 8 To 22 Step 2 'Colonnes
If Cells(i, j).Offset(0, -1) = '' Then
Cells(i, j).Clear
End If
Next j
Next i
End Sub

Bon appétit

 

[porcinet82]

Salut Alex, Vekmort,

Une solution peut etre un peu plus générale et un code un peu différent :

Sub test()
Dim i As Byte, j As Byte

For j = 8 To Range('iv9').End(xlToLeft).Column - 3 Step 2
    For i = 10 To Range('C65536').End(xlUp).Row - 1
        If Cells(i, j - 1).Value = '' Then
            Cells(i, j).ClearContents
        End If
    Next i
Next j
End Sub

Tiens nous au courant.

@+