Affectation de valeur dynamique

Bonjour, bonsoir,

je cherche vainement, mais existe-t-il, un code valable pour affecter une valeur à une cellule dont on ignore la position en fin de colonne.

Du style : Range("K" & Rows.Count).End(xlUp).Value = 10

Est-ce possible ou faut-il obligatoirement passer par une variable pour stocker ce numéro de ligne ?

Merci de votre éclairage.

Bonjour

A tester

Écris dans la 1ère cellule vide en fin des données

Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = 10

Bonsoir Banzaï,

(je t'avais vu connecté mais je n'espérais quand même pas une réaction si rapide!)

Merci pour l'info... qui ne donne rien pour l'instant...

Je vais creuser cela et te renseignerai le résultat au plus vite!

Bonne nuit! A+

Bonjour

curulis57 a écrit :

qui ne donne rien pour l'instant

Tu peux préciser STP ?

Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = 10

Ce code permet d'écrire 10 dans la 1ère cellule vide située après la dernière cellule non vide de la colonne K

A tester

Ou alors j'ai raté un épisode

Bonjour Banzaï,

Désolé...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Supposons qu'en cliquant n'importe où, je doive avoir cette valeur en fin de colonne...

Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = "10"

'Supposons qu'en cliquant n'importe où dans la colonne K, je doive avoir cette valeur en fin de colonne...

If Not Application.Intersect(Target, Range("K14:K" & Rows.Count).End(xlUp)) Is Nothing Then

Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = "10"

endif

'

End Sub

Aucune des deux solutions ne m'affiche le fameux 10!

Mais ton fichier-exemple fonctionne parfaitement!

Merci de ton aide!

Bonjour

Essaie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("K14:K" & Range("K" & Rows.Count).End(xlUp).Row)) Is Nothing Then
      Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = "10"
  End If
End Sub

Si tu expliquais clairement avec un fichier ce que tu veux obtenir

Salut Banzaï,

moi y en a rien comprendre!

J'ai enregistré, fermé Excel, rechargé... ça marche!

La vie n'est jamais banale, chaque événement que nous traversons recèle un mystère inexplicable.

Citation de Boris Vian ; L'écume des jours (1947)

Merci en tout cas pour l'info OFFSET(1,0) ! J'avance!

A bientôt!