dernière colonne renseignée (valeur)

jhofman à dit:

c'est pas exactement cela ton code est trop large
je cherche à optimiser le code suivant qui donne la dernière colonne à droite non à "" (ici limité à maxcol mais pas obligé)

Code:

Function dernicolo(ligne As Integer, maxcol As Integer) As Integer
Dim i As Integer
  i = maxcol
  While Cells(ligne, i) = ""
    i = i - 1
  Wend
  dernicolo = i
End Function

Cliquez pour agrandir...

Function dernicolo(ligne As Integer, maxcol As Integer) As Integer
'
  If Cells(ligne, maxcol) <> "" Then
    dernicolo = maxcol
  Else
    dernicolo = Cells(ligne, maxcol).End(xlToLeft).Column
  End If
End Function

Excel à dit:

expression.SpecialCells(Type, Value)
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.

Type Argument XlCellType obligatoire. Cellules à inclure.

XlCellType peut être l'une de ces constantes XlCellType.
xlCellTypeAllFormatConditions. Cellules de n'importe quel format
xlCellTypeAllValidation. Cellules présentant des critères de validation
xlCellTypeBlanks. Cellules vides
xlCellTypeComments. Cellules contenant des commentaires
xlCellTypeConstants. Cellules contenant des constantes
xlCellTypeFormulas. Cellules contenant des formules
xlCellTypeLastCell. Dernière cellule dans la plage utilisée
xlCellTypeSameFormatConditions. Cellules de même format
xlCellTypeSameValidation. Cellules présentant les mêmes critères de validation
xlCellTypeVisible. Toutes les cellules visibles

Value Argument de type Variant facultatif. Si Type a la valeur xlCellTypeConstants ou xlCellTypeFormulas, cet argument est utilisé pour déterminer quels types de cellules inclure dans le résultat. Ces valeurs peuvent être ajoutées ensemble pour renvoyer plusieurs types. Par défaut, toutes les constantes ou formules sont sélectionnées, quel que soit leur type. Il peut s'agir de l'une des constantes XlSpecialCellsValue suivantes :

XlSpecialCellsValue peut être l'une de ces constantes XlSpecialCellsValue.
xlErrors
xlLogical
xlNumbers
xlTextValues

Cliquez pour agrandir...