Vba trouver derniere colonne
Résolu
am59
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Vba dernière colonne non vide
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Supprimer dernière page word - Guide
- Colonne word - Guide
6 réponses
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
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
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
2/Si tu veux ajouter une ent^te de colonne après la dernière colonne occupée
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question