Si colonne A vide entre ligne 1 et 62 alors
gogo2896
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais que si la colonne A est vide entre la ligne 1 et la ligne 62, toutes les autres celullles sur ces lignes soient vides.
Merci d'avance.
je voudrais que si la colonne A est vide entre la ligne 1 et la ligne 62, toutes les autres celullles sur ces lignes soient vides.
Merci d'avance.
A voir également:
- Si colonne A vide entre ligne 1 et 62 alors
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Partager photos en ligne - Guide
- Supprimer page word vide - Guide
- Aller à la ligne excel - Guide
3 réponses
Bonjour,
Dans le module de la Feuille :
Dans le module de la Feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A62]) Is Nothing Then Exit Sub
If WorksheetFunction.CountA([A1:A62]) = 0 Then
Application.ScreenUpdating = False
[1:62].Clear
Application.ScreenUpdating = True
End If
End Sub
Re,
En attendant ta réponse, voici une méthode :
En attendant ta réponse, voici une méthode :
Sub SupprimesLesLignesQuandAestVide()
Dim F As Worksheet
Dim R As Range
Dim T As Variant
Dim L As Byte
Set F = ActiveSheet 'En attendant de connaitre la bonne feuille
T = Application.Transpose(F.Range("A1:A62").Value)
For L = LBound(T) To UBound(T)
If IsEmpty(T(L)) Then
If R Is Nothing Then
Set R = F.Rows(L)
Else
Set R = Union(R, F.Rows(L))
End If
End If
Next L
If Not R Is Nothing Then
R.Select
If MsgBox("Supprimer les lignes sélectionnées ?", vbYesNo + vbDefaultButton2) = vbYes Then R.Delete
End If
F.Range("A1").Activate
End Sub
Bonjour
Si on veut supprimer les données au lieu de supprimer la ligne remplacer delete par clear
https://mon-partage.fr/f/ZWpzjT9k/
Sub virerligvide()
Dim Derlig As Long
Derlig = Columns("A").Find("*", , , , , xlPrevious).Row
If Application.CountIf(Range("A1:A" & Derlig), "") > 0 Then
Range("A1:A" & Derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
End Sub
Si on veut supprimer les données au lieu de supprimer la ligne remplacer delete par clear
https://mon-partage.fr/f/ZWpzjT9k/
il faudrait également que cette maccro est un nom de façon à ce que je puisse l'affecter ensuite car la je ne peux pas l'affecter a quelque chose. Merci d'avance.
ou bien tu veux vider ligne par ligne?
n'hésites pas à expliquer, à donner des exemples.
Merci d'avance