Discussion :

[bigboy]

Bonjour,
je suis bloqué sur un truc tout simple mais j'arrive pas a trouver la solution


J'aimerai trouver la dernière colonne non vide.
Le seul problème est que la ligne 1 est composée de cellule fusionnée deux à deux (deux colonnes à chaque fois).
Cette formule ne fonctionne donc pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    pgcol = Range("A1").End(xlToRight).Column

Existe t'il une solution pour trouver la dernière colonne non vide meme si ces colonnes sont fusionnées entre elles.

merci beaucoup de votre aide.
loic

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim rng As Range
Set rng = Cells(1, Columns.Count).End(xlToLeft).MergeArea
MsgBox rng.Column + rng.Columns.Count - 1
Set rng = Nothing
'ou bien
MsgBox Cells(1, Columns.Count).End(xlToLeft).MergeArea.Offset(0, 1).Column - 1

[bigboy]

Merci beaucoup, ca marche parfaitement !!