dernière colonne renseignée (valeur)

[jhofman]

Bonjour,

je recherche la méthode la plus rapide pour déterminer en VBA la dernière colonne d'une feuille renssignée. je ne souhaite pas prendre en compte le colonnes avec formule mais dont le résultat est "" afin de minimiser ma zone d'impression en fonction des données restituées.
Merci

 

[PascalXLD]

Re : dernière colonne renseignée (valeur)

Bonjour

toto = Range("A1").SpecialCells(xlCellTypeLastCell).Column

 

[jhofman]

Re : dernière colonne renseignée (valeur)

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é)

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

 

[mromain]

Re : dernière colonne renseignée (valeur)

bonjour le fil,

jhofman, je te propose ce code :

Function dernicolo(ligne As Integer, maxcol As Integer) As Integer
dernicolo = Cells(ligne, Columns.Count).End(xlToLeft).Column
End Function

a+

 

[jhofman]

Re : dernière colonne renseignée (valeur)

mromain

Merci mais ta formule me renvoie la dernière colonne avec du code.
je cherche la dernière ou la valeur est non "".
Ainsi une colonne qui contient du code qui renvoie "" n'est pas prise en compte.

 

[nolich]

Re : dernière colonne renseignée (valeur)

Bonjour jhofman et PascalXLD, bonjour à toutes et à tous 🙂

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é)

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

Peut-être quelquechose comme cela :

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

@+

EDIT : Salut mromain 🙂 Même chose que mromain, ou presque, alors je retire...

 

[jhofman]

Re : dernière colonne renseignée (valeur)

nolich

Non cela ne marche pas.
je garde ma solution qui n'est pas aussi optimisée que j'aurai souhaité mais pas si gourmande non plus 🙂
a+

 

[nolich]

Re : dernière colonne renseignée (valeur)

Re,

En fonction du type de valeur que contiennent tes colonnes, tu peux peut-être utiliser SpecialCells. Voici l'aide d'XL :

SpecialCells, méthode
Voir aussiS'applique àExempleDétailsCette méthode renvoie un objet Range qui représente toutes les cellules correspondant au type et à la valeur spécifiés. Objet Range.

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

Sinon, envoie-nous un fichier exemple sans données confidentielles.

@+

 

[jhofman]

Re : dernière colonne renseignée (valeur)

nolich

il y surement beaucoup a exploiter de ton post et je vais m'y atteler (je vais chercher un exemple)
en attendant voici un fichier de test.
Merci (je vais déjeuner)

 

[Pierrot93]

Re : dernière colonne renseignée (valeur)

Bonjour à tous

peut être comme ceci, si j'ai bien compris :


bon après midi
@+

Edition : supprimé, ne fonctionne pas sur ton exemple...

 

[Pierrot93]

Re : dernière colonne renseignée (valeur)

Re

celui-ci devrait peut être mieux correspondre :

Dim x As Byte
x = Cells.Find("*", , xlValues, , 2, 2).Column

@+

 

[STephane]

Re : dernière colonne renseignée (valeur)

pierrot a mieux dégainé ;-)

 

[jhofman]

Re : dernière colonne renseignée (valeur)

Pierrot93

Trop fort : exactement le résultat recherché en 1 ligne.
Merci à tous.

Nolich : pas mal mais ne donne pas a priori les résultats attendus. pour SpecialCells, cf. ci-dessous

VBA : -- CATHY ASTUCE --