Problème Range End(xlUp).Row

[Llyod]

Bonsoir,

Je souhaiterais par la fonction cells, trouver la dernière cellule vide pour inscrire la valeur d'une textbox. En parcourant les forums, j'ai vu qu'il fallait utilisait .End(xlUp).Row avec la fonction Range.

Je n'arrive cependant pas à adapter Range dans mon cas :

Sheets("2016").Range(Cells(ComboBox1.ListIndex + 7, Month("1/" & ComboBox3) + 2)).End(xlUp).Row = TextBox3.Value

Je vous joins le classeur.

Merci pour vos futures réponses,

Baptiste

 

[Robert]

Re : Problème Range End(xlUp).Row

Bonsoir Lloyd, bonsoir le forum,

Tu as mélangé Range et Cells... Essaie comme ça :

Sheets("2016").Cells(ComboBox1.ListIndex + 7, Month("1/" & ComboBox3) + 2).End(xlUp).Row = TextBox3.Value

Toutefois, si la ComboBox3 n'est pas renseignée, Month("1/" & ComboBox3) va planter... Pourquoi ne pas utiliser la propriété ListIndex de la ComboBox3, comme tu l'as fait avec le ComboBox1 plutôt que ce truc un peu barbare : Month("1/" & ComboBox3) +2 ?

 

[Llyod]

Re : Problème Range End(xlUp).Row

Bonjour Robert,

J'avais déjà tenté de passer directement par cells sauf que j'obtient une erreur 1004 :"Impossible de définir la propriété Row de la classe Range"

C'est vrai mais pour ta deuxième remarque, es-ce que je peux utiliser la propriété ListIndex avec une série de données en ligne ?

Merci

Baptiste

 

[Robert]

Re : Problème Range End(xlUp).Row

Re,

Le code que je t'ai proposé fonctionne chez moi à condition d'avoir renseigné les différents contrôles. Je ne sais pas si il renvoie sur la bonne cellule mais je n'ai pas de plantage.
En ce qui concerne ListIndex, les données sont en ligne dans le tableau mais en colonne dans la ComboBox3 puisque tu l'as alimenté en transposant...

 

[Llyod]

Re : Problème Range End(xlUp).Row

Salut,

Merci, j'ai enfin réussi adapter mon code en mettant

.Rows.End(xlUp)

Le problème c'est qu'il ne mets pas la deuxième valeur après la première mais sur la ligne des encaissement..
Je vois pas d'ou vient le problème.

 

[jpb388]

Re : Problème Range End(xlUp).Row

Bonjour à tous,Llyod,Robert

Annulé

 

[Llyod]

Re : Problème Range End(xlUp).Row

Bonsoir jpb388,

Merci mais j'ai une erreur 1004..

 

[jpb388]

Re : Problème Range End(xlUp).Row

re
voici ma solution