Bonjour à vous et merci d'avance pour vos réponses!
Voilà, je vous expose mon soucis, encore débutant en VBA pour Excel, je souhaiterai un peu d'aide pour le problème suivant:
j'ai, sur ma feuille, un tableau dans la zone (H811), ce tableau contient des chiffres entiers et certaines des cellules de ce tableau contiennent la valeur "0".
Je souhaiterai supprimer de ce tableau, toutes les cellules contenant "0", en clair, qu'il n'y ai plus rien dans les cellules concernées.
Option Explicit
Sub Zéro_zéro()
'Adapter le nom de l'onglet
Sheets("Feuil1").Range("h8:p11").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Mais.... ça ne marche pas! Est-ce parce que j'ai oublier de préciser que ces cellules contenant "0", contiennent en fait une simple formule du genre "Somme des valeurs" de 2 autre cellule (hors tableau). (Ex: =K9+K4)?
Option Explicit
Sub Zéro_zéro()
'Adapter le nom de l'onglet
With Sheets("Feuil1").Range("h8:p11").Cells.SpecialCells(xlCellTypeFormulas, 23)
If .Value = 0 Then .Value = ""
End With
End Sub
Merci à vous laetitia90 et DoubleZero, vos réponses ont fait mouche, ça marche du tonnerre!
Encore une petite sollicitation dans le même thème et je me calme, promis!
j'ai, sur ma feuille, un 1er tableau dans la zone (H25), ce tableau contient des chiffres entiers et des cellules vides
Sous ce tableau, un 2ème tableau de même taille et forme dans la zone (H811)
Je souhaiterai que pour chacune des cellules vides du tableau 1, les cellules correspondantes du tableau 2 soient vides aussi.
(En clair si J4 (tableau 1) est vide alors la cellule J10 (Tableau 2) devient vide.) (on note que juste l'ordonnée des cellules est +6 d'un tableau à l'autre, si ça peu aider).