Macro pour inscrire dans prochaine colonne vide

Résolu/Fermé
Marie Chant Messages postés 79 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 26 mars 2024 - 8 oct. 2014 à 19:26
Marie Chant Messages postés 79 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 26 mars 2024 - 9 oct. 2014 à 15:52
Bonjour,

J'aurais besoin de vos lumières, J'ai produit un tableau croisé dynamique et je voudrais dans ma macro que je puisse aller inscrire a la ligne 1 de la colonne vide apres mon TCD le nom COURUS et la colonne suivante GRAND TOTAL.

Merci beaucoup de votre aide c'est toujours grandement apprécié.

Je voulais savoir car mon tableau peu etre plus long ou plus court d'un mois a l'autre et je dois inscrire COURUS et GRAND TOTAL a la suite de la dernioere colonne de mon tableau

A voir également:

2 réponses

via55 Messages postés 14401 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 17 avril 2024 2 701
9 oct. 2014 à 13:36
Bonjour

L'instruction :
 Dim DernCol As Integer 
DernCol = Activesheet.Range("A1").End(xlToRight).Column

permet de trouver la dernière colonne remplie sur la ligne 1 à partir de A1

Puis l'instruction :
Activesheet.cells(1,Derncol+1)="COURUS"
Activesheet.cells(1,Derncol+2)="GRAND TOTAL"

place les titres souhaités en ligne 1 des colonnes suivantes

Cdlmnt
0
Marie Chant Messages postés 79 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 26 mars 2024 1
9 oct. 2014 à 15:52
Merci beaucoup via 55 cela fonctionne tres bien. J'apprécie énormément.
0