vba trouver derniere colonne Résolu/Fermé

Question

Bonjour je dois ajouter une colonne dans ma feuille excel et la mettre en derniere position actuellement elle se met en premièere position, je ne sais pas comment la bouger.comment faire ?  
merci de vorte reponse,
am

michel_m · Accepted Answer

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

am59 · Answer

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

am59 · Answer

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

michel_m · Answer

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

am59 · Answer

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

vince_nus · Answer

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

Vba trouver derniere colonne

6 réponses

Discussions similaires