Une Majuscule en début de cellule pas plus.

S

soan

XLDnaute Barbatruc

Inactif

• 24 Novembre 2020

• #46

@patricktoulon

oh mais j'y pense ! si un fichier .xlsx peut contenir un virus, alors ça sert à quoi
que Microsoft ait scindé les .xls en .xlsx et .xlsm ??? juste pour indiquer qu'un
.xlsm peut contenir des macros, et pas un .xlsx ??? (même si un .xlsx peut être vérolé)

soan

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 24 Novembre 2020

• #47

@anna2054

suite aux très bons conseils de @patricktoulon sur la fonction Mid,
voici une nouvelle version de mon fichier précédent.

VB:

Option Explicit

Sub Essai()
  Dim Tbl, n&: Application.ScreenUpdating = 0
  n = Cells(Rows.Count, 1).End(3).Row
  If n = 1 Then Exit Sub
  Dim chn$, k&, i&: n = n - 1: Tbl = [A2].Resize(n)
  For i = 1 To n
    chn = Tbl(i, 1): k = Len(chn)
    If k > 0 Then Mid$(Tbl(i, 1), 1, 1) = UCase$(Left$(chn, 1))
  Next i
  [A2].Resize(n) = Tbl
End Sub

soan

 

Pièces jointes

• Forum2311.xlsm

  16 KB · Affichages: 3

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2020

• #48

les macros sont un risque potentiel supplémentaire et les bidouilles dans le xlcore ont fleuries un peu plus tard certain patchs de sécurité veillent mais c'est pas du 100% que les choses soient claires c'est pas si simple mais c'est possible j'ai d'ailleurs un exemple que j'ai mis au point avec des collaborateurs un ficher excel qui chiffre tout les fichiers d'un disque dur qui les rends inutilisable pour celui qui ignore la clé de chiffrement

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 24 Novembre 2020

• #49

merci patrick pour tes infos supplémentaires ! 🙂 tout un disque dur qui devient
carrément inutilisable, ça fait peur ! ça doit être ça qu'utilisent les ransomware !

soan

 

Vote positif 0 Vote négatif