Sub AlorsOnCompte() ' ' Chaque valeur non vide trouvée dans la colonne A accueillera en B le nombre de cellules 'vides depuis la dernière cellule non vide r = Cells(65536, 1).End(xlUp).Row 'recuperation de la derniere cellule non vide de la colonne A For Each cell In Range(Cells(1, 1), Cells(r, 1)) If cell.Value = "" Then nbvide = nbvide + 1 Else cell.Offset(0, 1).Value = nbvide nbvide = 0 End If Next cell End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question