Transformation du format de date sur Excel

Il y a une semaine, j’ai fait un téléchargement des données sur Internet dont le format de date ne me satisfaisait pas. Je les avais sous cette forme:”20020217″ pour le 17 février 2002. Je voulais les transformer en 17/02/2002. C’était 2 230 lignes de données sur Excel.
J’ai écris ce code que je partage avec vous, qui m’a fait le boulot à merveille.

 

Sub Transforme_date()
Dim i as Double 'boucle pour transformer le format des dates 

For i = 2 To 2500 

Cells(i, 10) = Left(Cells(i, 3), 4) & "/" & Mid(Cells(i, 3), 5, 2) & "/" & Right(Cells(i, 3), 2) 

Next i 

End Sub
 

 

 

 

Code pour déprotéger une feuille de calcul Excel

Il arrive que vous protégiez une feuille de calcul Excel, afin d’éviter que des personnes autres que vous viennent modifier le contenu des cellules. Après des mois, vous oubliez vous mêmes le mot de passe, mais vous devez faire des modifictions sur les cellules protégées. Je mets à votre disposition ce bout de code, qu’il faut coller derrière la feuille à deprotéger.
Pour cela, faites un clic droit sur l’onglet de la feuille (là où se trouve le nom de la feuille), choisir “Visualiser le code”. Une fenêtre s’ouvre. Si vous ne l’avez jamais fait, vous serez en face d’une fenêtre qui sert à la programmation sur Excel.
Collez le code suivant:

Sub EnleveProtection()
ActiveSheet.Protect , , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub

Dès que le code est coller, cliquez juste en dessous de “Sub EnleveProtection()”, puis appuyer sur F5 (pour l’exécution).
Rentrez sur la feuille, et vous constaterez que la protection a disparu!
Attention: Ce code n’est valable que les versions d’Excel antérieure à Excel 2003.

Code pour les versions d’Excel supérieures à 97 (2000, XP et 2003)

Sub EnleveProtection2003()
'Déprotège Feuille courante

ActiveSheet.Protect vbNullString, , True, , , , , , , , , , , , , True
ActiveSheet.Unprotect vbNullString

End Sub