A voir également:
- Excel - Macro - eliminer des lignes vides
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Excel trier par ordre alphabétique en gardant les lignes - Guide
3 réponses
bonjour,
Merci
je viens de l'essayer c'est parfait!
un grand merci Heu ... MERCI !
et pour les colonnes vides ? c'est possible ?
@+
Michel
Merci
je viens de l'essayer c'est parfait!
un grand merci Heu ... MERCI !
et pour les colonnes vides ? c'est possible ?
@+
Michel
Tu sélectionnes la ligne ou la colonne, puis Edtition/supprimer.
Ou veux-tu vraiment une macro pour faire cela ?
Ou veux-tu vraiment une macro pour faire cela ?
Voila!
'Efface les "lignes" vides dans la selection si la row ne contient aucune donnee.
'On eteind calculation and screenupdating pour accelerer le macro.#
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'On travaille a l'envers car on efface
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
'Efface les "lignes" vides dans la selection si la row ne contient aucune donnee.
'On eteind calculation and screenupdating pour accelerer le macro.#
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'On travaille a l'envers car on efface
For i = Selection.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then
Selection.Rows(i).EntireRow.Delete
End If
Next i
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
12 nov. 2009 à 18:21
Je dispose d'une extraction automatique qui me genere automatiquement plusieurs colonnes vides, pourriez vous m'aider à avoir un script en VBA pour supprimer automatiquement ces colonnes.
Je vous remercie d'avance.
Simo