Discussion :

[sims92.66]

Bonjour à tous,

J'essaye de trouver un code qui me permettrait de récuppérer la dernière colonne non vide de ma plage puis de se déplacer d'une colonne pour écrire mon résultat.

En codage ca devrait donner quelque chose comme ca:

Code :

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

1
2
3
 
derniere_colonne = Sheets("test").[B1].End(xlRight).Column + 1
    derniere_colonne = "résultat"

Merci d'avance pour vos réponses

[gFZT82]

Bonjour,

Une solution

Code :

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

1
2
3
Dim derniere_colonne As Range
    Set derniere_colonne = Sheets("test").[B1].End(xlToRight).Offset(0, 1)
    derniere_colonne = "résultat"

Cordialement.

[Philippe Tulliez]

Bonsoir,

Code :

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

1
2
 derniere_colonne = Sheets("Feuil1").Range("B1").End(xlToRight).Column + 1
 Sheets("Feuil1").Cells(1, derniere_colonne) = "résultats"

[EDIT]
La proposition de gFZT82 avec offset est plus intéressante et plus courte et pour faire encore plus court et faire l'économie d'une variable

Code :

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

 Sheets("test").[B1].End(xlToRight).Offset(0, 1) = "résultat"

[sims92.66]

Merci à vous 2 pour vos réponses elles sont parfaites!