suppression de cellule de gauche

Alex · 20 Mars 2006

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 · 20 Mars 2006

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 · 20 Mars 2006

Salut Alex, Vekmort,

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

Code:

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.

@+

suppression de cellule de gauche

Alex

Guest

Pièces jointes

vekmort

XLDnaute Occasionnel

porcinet82

XLDnaute Barbatruc

Discussions similaires

suppression de cellule de gauche

Alex

Guest

Pièces jointes

vekmort

XLDnaute Occasionnel

porcinet82

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency