Récupérer l'adresse cellule dernière ligne d'une colonne

Bonjour à tous,

Je suis débutant en VBA et je dois faire un chiffrage à partir d'une base de donnée. Mon souhait est de réaliser une macro permettant de renvoyer l'adresse de la dernière cellule occupée dans l'une des colonnes de ma base de donnée. Celle-ci sera écrite dans une case que je choisirai, le but étant de pouvoir ajouté des éléments dans la base de donnée et avoir la possibilité d'actualiser dans les formules de mon chiffrage automatiquement.

Voici mon début de code :

Sub Macro 1 ()

Sheets("basedonnées").Select

Range("G2").Select

Selection.End(slDown).Select

ligne manquante

Sheets("chiffrage").Select

Range("C6").Select

ActiveSheet.Paste

End Sub

Je pense qu'il ne me manque pas grand chose mais je galère depuis ce matin là dessus

Merci d'avance

Bonjour et bienvenue sur le forum

Modifie ainsi ton code :

Sub Macro1i()
 Sheets("basedonnées").Select
 Range("G2").Select
 Selection.End(xlDown).Select
  'ligne manquante
 Adresse = Selection.Address()
 Sheets("chiffrage").Select
 Range("C6").Select
 'ActiveSheet.Paste
 Selection = Adresse
End Sub

Mais une forme plus élégante serait :

Sub Essai2()
 Adresse = Sheets("basedonnées").Range("G2").End(xlDown).Address
 Sheets("chiffrage").Range("C6") = Adresse
End Sub

Bye !

Merci beaucoup pour ta réponse, ça marche nickel

Bye

Dernière petite question, je n'arrive pas à utiliser l'adresse fournie dans la case C6. En effet, j'essaie d''incorporer la valeur de la case C6 dans mes formules sans succès. Savez-vous si cela est faisable ?

Merci d'avance

Tu écris :

j'essaie d''incorporer la valeur de la case C6 dans mes formules sans succès. Savez-vous si cela est faisable ?

Pour te répondre, il faudrait que tu m'expliques plus en détail ce que tu veux en faire...

A te relire.

J'ai résolu mon problème . Je voulais en fait utiliser la valeur de la case C6 (et non son adresse) dans une formule (SOMME par exemple). Il suffisait en fait d'utiliser la fonction INDIRECT(C6) qui me renvoie bien le nom de la case que je voulais appeler et qui correspond à la dernière cellule de ma colonne de base de données.. Je ne sais pas si c'est très clair ^^

Bye !

Bonjour, problème similaire:

J'aimerais savoir comment obtenir l'adresse d'une cellule, depuis sa valeur.

Par exemple: =Recherchev(4;A4:E100;2;faux) résultat Poires. Mais à quelle adresse adresse la fonction Recherchev à t'elle trouvé Poires?.

Ce que je souhaite dans le fond, c'est: Si recherchev trouve Poires, mais que la quantité de Poires est 0 (deux colonne plus loin). Alors je veux que recherchev trouve une autre poire dans les lignes suivantes.

En utilisant Indirect j'avais entré dans une colonne précédente toutes les adresses ou se trouvais les lignes contenant Poire. Ainsi, j'entrais: Si Poire = 0, alors recherchev(4;indirect(le nom de la cellule dans la colonne précedente et contenant le champ de recherche à utilisé);2;faux).

Mais la c'était du bidouillage. Alors qui dit mieu?

Merci

up