Une Majuscule en début de cellule pas plus.

[megansport]

Bonjour au forum

J'aurais besoin de vos service pour travailler sur une base de 25000 ligne.
Il me faudrait tout simplement mettre une majuscule au début du mot.

Par exemple: phare droit devient Phare droit dans la cellule

J'ai chercher sur le forum mais je n'ai pas trouver de solution me concernant

Merci de votre aide

 

[soan]

@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

 

[soan]

@anna2054

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

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

 

[patricktoulon]

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

 

[soan]

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