Sujet Précédent Sujet Suivant

Vba trouver derniere colonne

Résolu/Fermé
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 - 23 janv. 2009 à 09:48
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 10 juin 2011 à 14:12
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

6 réponses

Réponse 1 / 6
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 janv. 2009 à 10:00
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
8
Réponse 2 / 6
vince_nus
10 juin 2011 à 14:02
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
3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 10/06/2011 à 14:12
ce n'est pas le m^me problème
Bonjour
annule ton message et relance une nouvelle discussion (copier-coller ton texte)
heu: on évite au maximum les copier-coller en VBA
0
Réponse 3 / 6
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 janv. 2009 à 15:34
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
2
Réponse 4 / 6
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 2
23 janv. 2009 à 14:46
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
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 2
23 janv. 2009 à 15:57
c'est bon ça fonctionne !!
merci bcp
@ bientot !!!
am
1
Réponse 6 / 6
am59 Messages postés 19 Date d'inscription mardi 13 janvier 2009 Statut Membre Dernière intervention 6 février 2009 2
23 janv. 2009 à 11:12
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
0

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc
Paria -
Mouloud -

59 réponses
Excel VBA : Derniere colonne utilisée
Eaheru -
Darnc -

12 réponses
le frigo ne marche pas....
Nemo6456 -
Templier Nocturne -

1 réponse
Formule magique excel??????
sexy_miss -
Raymond PENTIER -

13 réponses
VBA Selection jusqu'a derniere cellule pleine
teamktm1307 -
Tobar4 -

4 réponses