Mettre une valeur à la fin de la colonne

[Toug]

Bonjour,
J'essaie en vain avec plusieurs solutions de mettre une valeur dans la première case vide d'une colonne. Jusqu’à maintenant cela écrase à chaque fois la première valeur de la colonne.

Voici le code que j'utilise:

Sheets("tableauD" & Dx).Cells(Rows.count, colonne).End(xlUp) = jouvres_point

la variable colonne est un nombre (1 pour la colonne A...)
Voyez vous une erreur?

Merci d'avance pour votre aide

 

[MJ13]

Re : Mettre une valeur à la fin de la colonne

Bonjour Toug

Avec un fichier, on verrait plus clair .

 

[Toug]

Re : Mettre une valeur à la fin de la colonne

Je ne peux pas mettre mon fichier, c'est pour le boulot

 

[Staple1600]

Re : Mettre une valeur à la fin de la colonne

Bonjour le fil

Toug
C'est normal
Regardes ce qui suit et tu comprendras

Sub premnonvide()
Dim cible As Range
Set cible = [A65536].End(xlUp)(2)
MsgBox cible.Address
cible = "première non vide"
End Sub

PS: Rien ne t’empêchait de créer un petit fichier exemple avec une colonne A contenant quelques cellules

 

[MJ13]

Re : Mettre une valeur à la fin de la colonne

Re, Bonjour JM

Je ne peux pas mettre mon fichier, c'est pour le boulot

Je ne vois pas le rapport avec la choucroute , comme le dit si bien Jean-Marie .

 

[Staple1600]

Re : Mettre une valeur à la fin de la colonne

Bonjour MJ13


Toug:
Tu as essayé ma proposition ?

 

[Toug]

Re : Mettre une valeur à la fin de la colonne

Merci beaucoup.