Discussion :

[Blacktizen]

Bonjour tout le monde,

j'ai besoin de votre aide, je veux faire un tableau croisé dynamique (facile) et utilisant des données que j'inclue dans une autre feuille.

Dans ces données, il y a 4 colonnes où je n'ai que des dates, mais parfois des cellules sont vides.

J'aimerais avoir une macro où, toutes les cellules des colonnes A à D qui ne sont pas vides aient le format de cellule "Date" sinon les vides soient format "Standard"

Est-ce possible?

PS : quand je fais le tableau croisé, je veux utiliser la fonction "Grouper" sauf que si une colonne vide est au format date j'ai le message d'erreur "Impossible de grouper cette selection"

Voilà, merci de m'avoir lu en tout cas, bonne soirée

[Nodens_swiss]

Hello
Oui c’est faisable à l’aide de la fonction NumberFormat
Avant de demander, as-tu essayé avec de changer le format d’une cellule avec l’enregistreur de macro ?

[Blacktizen]

Oui bien sur, ce n'est pas mettre la cellule au format "Date", avec NumberFormat ou autre, c'est plus sur une plage de colonne sélectionnée, les colonnes vides en Standard, et les colonnes qui contiennent une info au format "Date" c'est pas compliqué pour quelqu'un qui a l'habitude je pense, mais je galère tellement en VBA...

Merci de ta réponse en tout cas.

[Nodens_swiss]

Pour une colonne tu peux aussi utiliser NumberFormat pour une colonne.
Voici un bout de code qui test si la première valeur de la colonne est non-vide et qui change le format.

Code :

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

1
2
3
4
5
6
7
For i = 0 To 10
    If Worksheets("Feuil1").Range("A1").Offset(0, i).Value <> "" Then
        Worksheets("Feuil1").Columns(i + 1).NumberFormat = "m/d/yyyy"
    Else
        Worksheets("Feuil1").Columns(i + 1).NumberFormat = "@"
    End If
Next i

[Docmarti]

Bonjour.

Essaie ceci :

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 ModifierNumberformat()
 
Set f = ActiveSheet
 
'Definir le range
Set r = f.UsedRange
 
t = r.Value
 
r.NumberFormat = ""
r.FormulaLocal = t 'Pour les dates
r.Value = t 
 
End Sub