[Macro] si cellule vide, supprimer autre cell
Nocturnenini
-
Bidouilleu_R Messages postés 1209 Statut Membre -
Bidouilleu_R Messages postés 1209 Statut Membre -
Bonjour,
je vous explique rapidement mon problème
j'ai un tableau qui s'étend de A1 à AL23. je cherche une macro qui me permettrait, si la cellule Ax est vide, de supprimer les cellules Ax à Rx. j'ai trouvé cette macro :
Sub efface_A_vide()
Dim l As Integer
For l = Cells(65256, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Il faudrait juste qu'au lieu de supprimer la ligne enière, la macro ne supprime que les cellules de A à R sur cette ligne.
J'espère avoir été clair, et que cela soit possible :s
Je vous remercie d'avance
je vous explique rapidement mon problème
j'ai un tableau qui s'étend de A1 à AL23. je cherche une macro qui me permettrait, si la cellule Ax est vide, de supprimer les cellules Ax à Rx. j'ai trouvé cette macro :
Sub efface_A_vide()
Dim l As Integer
For l = Cells(65256, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub
Il faudrait juste qu'au lieu de supprimer la ligne enière, la macro ne supprime que les cellules de A à R sur cette ligne.
J'espère avoir été clair, et que cela soit possible :s
Je vous remercie d'avance
A voir également:
- [Macro] si cellule vide, supprimer autre cell
- Supprimer rond bleu whatsapp - Guide
- Comment supprimer une page vide sur word - Guide
- Excel cellule couleur si condition texte - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
6 réponses
Bonjour,
If Cells(l, 1).Value = "" Then Cells(l, 1).resize(1,25).clearcontents
A la place de 25 tu mets le nombre de colonnes
eric
If Cells(l, 1).Value = "" Then Cells(l, 1).resize(1,25).clearcontents
A la place de 25 tu mets le nombre de colonnes
eric
autre chose, je veux effectuer la meme macro, mais a la place de supprimer si A est vide, je voudrais supprimer si A=0. que faut il modifier ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
