Astuces Excel
  1. Astuces Excel
  3. Comment find des cellules avec "#VALUE!" dans EXCEL 2010 VBA
Intereting Posts
Définition du manuel X Valeurs dans Excel VBA pour xlLineMarkers Écrivez des résultats à Excel Traiter .mdb as .xlsx? Certaines cellules ne copynt pas d'un classur pour cibler le classur Comment exporter une table HTML comme un Excel tout en maintenant le style et l'application du volet de gel Comment écrire plusieurs feuilles dans un nouvel excel, sans vous écraser? LINEST donne #VALUE! erreur pour certaines données Copier à partir d'une gamme spécifique dans Excel en utilisant VB.NET Excel – aide à identifier les loggings avec la même réponse dans deux colonnes Besoin d'enlever None de la list Vérification des données Resiprok Excel Rechercher la première cellule <NA> puis la moyenne de return d'un tableau commençant par le premier sharepoint données Excel / VBA / VBS – IE Après avoir sélectionné une valeur de la page déroulante ne pas être actualisée Et fonction, une cellule égale à une colonne entière Array Assign in VBS

Comment find des cellules avec "#VALUE!" dans EXCEL 2010 VBA

Je dois find la valeur maximale dans une colonne par EXCEL 2012 VBA. Certaines cellules ont "#VALUE!". Mon code ne fonctionne pas. 

Sub find_max() Dim rng As Range Dim dblMax As Double dblMax = 0 Set rng = Range("A2:A11") For Each cell In rng If (cell.Value <> "#VALUE!") Then // error ! type mismatch If dblMax < CDbl(cell.Value) Then dblMax = CDbl(cell.Value) End If End If Next cell MsgBox dblMax End Sub

J'ai également besoin d'imprimer l'location de la cellule (le marquer avec une couleur) avec la valeur maximale.

Toute aide serait appréciée.

Si votre gamme a des constantes, utilisez 

 application.WorksheetFunction.Max(range("B6:C13").SpecialCells(xlcelltypeconstants,xlNumbers ))

s'il a des formules, utilisez 

 application.WorksheetFunction.Max(range("B6:C13").SpecialCells(xlcelltypeformulas,xlNumbers ))

Pour la gamme où il se trouve, .Find devrait fonctionner .Find : 

 Sub find_max() Dim rng As Range Dim dblMax As Double, rgMax As Range Set rng = Range("A2:A11") dblMax = Application.WorksheetFunction.Max(rng.SpecialCells(xlCellTypeFormulas, xlNumbers)) Set rgMax = rng.Find(dblMax, , xlValues, xlWhole) MsgBox rgMax.Address & ": " & dblMax End Sub