Discussion :

[SixteenVBA]

Bonjour à tous!

Je bloque sur du VBA! J'aimerai définir les bordures de ma zone d'impression en VBA. Je souhaite toutes les bordures. Voici comment j'ai défini ma zone :

Code :

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

1
2
IL = ActiveSheet.Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne
ActiveSheet.PageSetup.PrintArea = "A1:E" & IL ' Définition de la zone d'impression avec variable IL

Egalement j'ai des cellules où la date est inscrite comme ceci: 20160718. Ce que j'aimerai c'est que cela se transforme en 18-Juil ou 18/07/2016. J'ai essayé d'insérer des "/" dans la chaine mais sans succès... Pouvez-vous m'aider? Merci :-)

[parmi]

Bonjour,

Pour la date, tu peux essayer quelque chose comme ceci, en supposant que la pseudo-date est en A1

Code :

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

Range("B1") = DateSerial(Left(Range("A1"), 4), Mid(Range("A1"), 5, 2), Right(Range("A1"), 2))

Pour la bordure, je n'ai pas trop compris...

[SixteenVBA]

Bonjour,

Parfait ce code fonctionne ! Il faut maintenant que je trouve comment copier le contenu dans les cellules de la même colonne tant qu'elle ne sont pas vides.

Pour les bordures : ma macro met en page un planning. Après avoir défini ma zone d'impression, je souhaite que toutes les cellules possèdent un contour, pour que le planning soit plus clair. En gros, que la zone d'impression soit définie sur "toutes les bordures".

EDIT

J'ai modifié le code comme ceci

Code :

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

1
2
3
For i = fin To 50 Step 1 
If Cells(i, 1) <> " " Then Cells(i, 1) = DateSerial(Left(Cells(i, 1), 4), Mid(Cells(i, 1), 5, 2), Right(Cells(i, 1), 2)) 'modification date
Next i

La modification a bien lieu, mais j'ai un message d'erreur du type 13, incompatibilité de type. Je ne vois pas pourquoi.. Pouvez- vous m'aider?

Merci

[parmi]

Pour les bordures, utilises l'enregistreur et tu auras ce que tu veux.

Pour l'erreur, il faudrait que tu regardes la valeur de i quand ça arrive pour cibler la cellule qui cause problème.
Enlève l'espace dans

Code :

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

If Cells(i, 1) <> " "

Ou écris

Code :

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

If Cells(i, 1) > 0

[SixteenVBA]

Merci pour vos réponses.

J'utilise ce code et ca fonctionne :

Code :

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

1
2
3
For i = fin To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 1) <> " " Then Cells(i, 1) = DateSerial(Left(Cells(i, 1), 4), Mid(Cells(i, 1), 5, 2), Right(Cells(i, 1), 2)) 'modification date
Next i

[parmi]

Quand tu écris

Code :

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

If Cells(i, 1) <> " "

la macro regarde si différent d'un espace et non pas une cellule vide
Pour vérifier si une cellule est vide, il ne faut pas mettre d'espace entre les guillemets...

Code :

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

If Cells(i, 1) <> ""