[Macro] si cellule vide, supprimer autre cell
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
Configuration: Windows XP Internet Explorer 7.0 Excel 2007
6 réponses
-
ContributeurBonjour,
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 -
ca marche du tonnerre :)
-
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 ?
-
ContributeurIf Cells(l, 1).Value = 0 ...
-
merci, j'avais finalement trouvé seul
une dernière infos et ce sera bon lol, je veux que la maccro supprime la ligne si Px=0. comment dois je faire pour choisir la colonne P a la place de A ? -
If Cells(l, 1).Value = 0 ...
avec cells (2,1) ...cellule a2 cells(ligne,colonne) ensuite
a=1;b=2;c=3;c......;m=13;n=14;p=16
cells(2,16) cellule P2
