VBA - Récupérer le format d'une colonne

[SkinDash]

Bonjour à tous,

Je cherche à récupérer en VBA le format d'une colonne, existe t-il une fonction spécifique pour ça ?

Je cherche l'instruction qui permettrait d'identifier quel format a une colonne.

J'ai mis en pièce jointe mon fichier.

Private Sub CommandButton1_Click()

Dim NbColonnes As Integer
Dim Tableau() As String

'Compter le nombre de colonnes:

NbColonnes = ActiveSheet.UsedRange.Columns.Count

'Enregister le format de chaque colonnes dans un tableau

ReDim Tableau(NbColonnes)

For i = 1 To NbColonnes

Tableau(i) =[FORMAT DE LA COLONNE]

Next i

End Sub

 

[Paritec]

Re : VBA - Récupérer le format d'une colonne

Re skindash le forum
oui que tu peux le faire et le changer aussi
a+
Papou🙂

 

[SkinDash]

Re : VBA - Récupérer le format d'une colonne

Re Papou 🙂

Du coup dans la partie de code que j'ai mise plus haut, quelle serait "l'instruction" à mettre à la place de " =[FORMAT DE LA COLONNE] " ?

Merci à toi.

Skin'

Re skindash le forum
oui que tu peux le faire et le changer aussi
a+
Papou🙂

 

[Paritec]

Re : VBA - Récupérer le format d'une colonne

Re Skindash le forum
voilà
a+
Papou

 

[SkinDash]

Re : VBA - Récupérer le format d'une colonne

Super !

C'est donc .NumberFormat que je cherchais, merci à toi ! 🙂

SKin'

 

[SkinDash]

Re : VBA - Récupérer le format d'une colonne

Edit: Je ne comprends pas pourquoi le code suivant ne fonctionne pas:

 Private Sub CommandButton1_Click()

Dim NbColonnes As Integer
Dim Tableau() As String

'Compter le nombre de colonnes:

NbColonnes = ActiveSheet.UsedRange.Columns.Count

'Enregister le format de chaque colonnes dans un tableau

ReDim Tableau(NbColonnes)

For i = 1 To NbColonnes

Tableau(i) = Range(Columns(i).NumberFormat)

Next i

End Sub

😕

 

[Paritec]

Re : VBA - Récupérer le format d'une colonne

re Skindash le forum
peut être que tu ne lui a pas donné la ligne !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! peut-être !!!!!!!!!!!!!

Tableau(i) = Cells(1, i).NumberFormat

a+
Papou🙂

 

[SkinDash]

Re : VBA - Récupérer le format d'une colonne

Effectivement... 😱

Parfait !

Je fais mes modifs de mon coté 🙂