Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Une Majuscule en début de cellule pas plus.

megansport

XLDnaute Junior
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

XLDnaute Barbatruc
Inactif
@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

XLDnaute Barbatruc
Inactif
@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

patricktoulon

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
12
Affichages
323
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…