Discussion :

[apt]

Bonjour à tous,

Comment peut-on obtenir la dernière colonne non cachée dans la ligne 3 tout en savant que les trois dernières colonnes sont cachées par une MFC.

Dans l’exemple joint, la dernière colonne sera "G".

J’ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(3, 1).End(xlToRight).Column

Mais ça na pas réussi !


J'ai essayé de jouer sur la couleur blanche de police, mais cette dernière ne l'est pas !


http://cjoint.com/?EBrtd2GdN9a


Merci d'avance.

[geogeo70]

bonsoir,

Je crois qu'il vaut mieux calculer la fin du mois et reprendre ce nombre pour ajuster la colonne G


Je vous propose une fonction utilisable dans le code ou dans une cellule qui rend ce dernier jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function Colfinmois() As Integer
Dim finmois As Integer
 
finmois = Day(DateSerial(2015, 3, 1) - 1)
Colfinmois = finmois - 21 'dans ton cas si vous commencez le 22 février
 
End Function

Je vous joins votre fichier où j'ai ajouté quelques calculs possibles dans vos recherches...

dercolonne.xlsm

geogeo70

[apt]

Bonjour geogeo70,

Merci pour le code.

Mais je ne peux télécharger le fichier joint !

Bonsoir geogeo70,

On voulant adapter le code dans un nouvel exemple, pour obtenir la colonne "AC" comme dernière colonne, ca n'a pas été réussi !

[apt]

Bonjour,

Ça y est j'ai trouvé et voila un code qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub DerCol()
 
    Dim DrJour As Long
    Dim LtrCol$
 
    DrJour = Day(DateSerial([année], [Mois] + 1, 1) - 1)
    LtrCol = Split(Columns(DrJour + 1).Address(ColumnAbsolute:=False), ":")(1)
 
    Debug.Print "Le dernier jour : " & DrJour & vbCrLf & _
                "La dernière colonne est : " & LtrCol
 
    Range("F10") = LtrCol
 
End Sub

Merci.

[geogeo70]

hello,

c'est normal, ça ne peut fonctionner que jusqu'à Z! Le mieux est de garder le Numéro de la colonne de fin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function Colfinmois() As Integer
 
    Dim finmois As Integer
 
    Application.Volatile
    finmois = Day(DateSerial([année], [Mois] + 1, 1) - 1)
    Colfinmois = finmois + 1 'si votre mois commence en colonne B
 
End Function

Voilà le code de la fonction à utiliser en fonction du mois et de l'année plutôt qu'une procédure, il vaudrait mieux d'ailleurs de passer les mois et année en paramètres et ce serait utilisable quelque soit le mois (attention au mois de décembre!)

geogeo70

[apt]

Bonsoir geogeo70,

Voilà le code de la fonction à utiliser en fonction du mois et de l'année plutôt qu'une procédure

Dans une procédure, j'aurais besoin de déterminer le numéro de colonne pour limiter un tableau.

Sinon, j’appellerai cette fonction pour avoir la dernier colonne.

Pour le mois de décembre, quelle précaution devra-y-on prendre ?

Merci.

[geogeo70]

hello,

Tu peux utiliser la fonction dans une procédure, l’intérêt est de ne pas refaire la procédure tous les mois!

Pour le mois de décembre le numéro du mois suivant est 1 et l' année +1 donc un test et modif de l'année et du mois ,voilà pourquoi il faut passer les paramètres par valeur et non par adresse ("Byval"). Ainsi si tu mets une valeur d'année elle ne sera pas changée en sortie de fonction!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Il vaut mieux calculer le dernier jour du mois et seulement après y ajouter le décalage pour le N° de colonne
Function Finmois(ByVal Annee As Integer, ByVal Mois As Integer) As Integer
    Application.Volatile
    If Mois = 12 Then Annee = Annee + 1: Mois = 1
    Finmois = Day(DateSerial(Annee, Mois + 1, 1) - 1)
End Function
 
'Essai de la fonction dans une procédure
Sub essai()
Dim derjour As Integer
derjour = Finmois(2016, 2)
End Sub

pour ton programme tu peux ecrire : ...
colonne=Finmois([Année],[Mois]) + <décalage>

P.S. : Je vois que tu as mis un message pendant que j'écris!
... Il me semble pas voir le test du mois de décembre...

geogeo70