Vba trouver derniere colonne

bonjour
XL<2007
ajoute cette ligne dans la macro

num_col = Range("iv1").End(xlToLeft).Column + 1

num_col étant déclaré en byte (integer si 2007) te donne le numéro de la première colonne vide

bonjour à tous

j'espère que qqun pourra me répondre dans cette discussion!
voilà mon problème, j'ai un fichier principal qui me permet de récupérer, avec des variables, des données situées dans une seule colonne mais dans plusieurs fichiers. le nombre de fichiers pouvant varier. le premier copier-coller que l'on peut faire, toujours en colonne, commence en K32. Je voudrais faire dire à la macro, lorsque j'ouvre un second fichier de vérifier si il y a une valeur en K32, si oui, je voudrais que le curseur se décale de 5 colonnes vers la droite, la ligne 32 reste la même. et si il ni a pas de valeur en K32, coller les valeurs (le collage c'est bon, c'est surtout le décalage qui me dérange !!)

merci pour vos réponses

bon,

1/si tu veux déplacer de la colonne A après la dernière colonne occupée

Sub deplacer_colonne()
Dim der_col As Byte
der_col = Range("IV1").End(xlToLeft).Column + 1
With Range("A1:A65536")
    .Copy Cells(1, der_col)
    .Delete
End With

End Sub

2/Si tu veux ajouter une ent^te de colonne après la dernière colonne occupée

Sub nouvelle_colonne()
Dim der_col As Byte
der_col = Range("IV1").End(xlToLeft).Column + 1
Cells(1, der_col) = "ton_texte_d'entete"
End Sub

re
avec vba
je voudrais juste ajouter une entête de colonne en dernière position !!! pour l'intant elle se met en première !!
mais je voudrais la placer après toute les autres !!!
merci

c'est bon ça fonctionne !!
merci bcp
@ bientot !!!
am

merci pour la réponse !!
ça n'a pas l'air de fonctionner !! ma colonne reste toujours en première position !!
merci quand même !!
am