Recherche derniere colonne utilisée

[hannoun]

Bonsoir, le Forum

Je voudrais comme la recherche de la derniere ligne -1 pour ajouter une ligne de donnee

peut on faire la meme chose avec la derniere colonne -1


j'ai ecris ce code mais Range("E6").Select me derange je desire remplacer "E6" par dernieres colonne une a droite


Application.Goto Reference:="R6C256"
Selection.End(xlToLeft).Select
Range("E6").Select


Merci pour votre reponse

H@nnoun

 

[Myta]

salute H@nnoun

Ceci devrait faire

der_col = Range("IV1").End(xlToLeft).Column

cells(1,der_col).select

Mytå

 

[hannoun]

Re Bonsoir le forum Bonsoir Myta

Merci pour ton code il est parfait mais ce que je cherche par exemple

si la derniere colonne est D je dois aller sur E et entree des donnees depuis un userform ensuite comme E devient derniere colonne entree des donnees sur F

voila mon pb

H@nnoun

 

[Jean-Marie]

Bonsoir

hannoun, il faut analyser le code que Myta t'a donné avant de poser ta nouvelle question, si tu ne connais pas les fonctions employées dans le code, tu as l'aide en ligne qui te donne un tas de renseignements.

Si tu veux progresser en VBA, il faut que tu fasses cette démarche en premier.

@+Jean-Marie

 

[hannoun]

Bonsoir Jean Marie
merci pour ta reponse
j'ai teste le code mais j'arrive au meme resultat que mon code j'ai la derniere colonne
mais je but sur aller sur la cellule a droite de la derniere colonne

A+ H@nnoun

 

[hannoun]

re Bonsoir a tous
j'annule ma derniere reponse

avec ce code sa marche il fallait ajouter +1

der_col = Range("IV1").End(xlToLeft).Column + 1

Cells(1, der_col).Select


merci a Myta et Jean Marie pour ta reponse qui ma fais reflechir

Merci a tous A plus pour une autre question


A+ H@nnoun