TNouveau venuTekInscrit le :17/01/2014Dernière activité :20/01/2014 à 12:46Version d'Excel :2010Messages1Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par TekDateAuteur du sujetSujetExtrait du message17/01/2014 à 15:07pascb423Boucle sur les cellulesEssaies ça: Sub empty_cells() Dim i, j As Long Dim cellule As Variant Dim tab_range() As Variant tab_range = Range("A1:G10").Value For i = 1 To UBound(tab_range) For j = 1 To UBound(tab_range, 2) If tab_range(i, j) = Empty Then cellule = Split(Cells(i, j).Address, "$")(1) & Split(Cells(i, j).Address...Forums