× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Autres langages
 Couleur sur la première lettre (Majuscule)
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
eliot raymondo
  Posté le 14/03/2020 @ 11:30 
Aller en bas de la page 
Petit astucien

Bonjour a tous, forum bonjour,

Je suis sous Windows 10 / Excel 2007 Fr

J'ai 8 colonnes de A:I avec un titre dans chaque colonne.

Je ne parviens pas a trouver la façon de faire pour coder correctement le code ci-dessous

Car je voudrai mettre la première lettre de chaque mot qui est en Majuscule en Rouge.

Exemple: colonne A-B-C etc

--- A --- --- B --- --- C --- Etc etc etc

Jean Marc Denis

La macro ci-dessous fonctionne bien SAUF pour mettre la couleur rouge.

Merci de votre aide et bonne journée a vous.

Cdlt Raymondo

Sub EssaiCouleur()
       Dim cel

 With Worksheets("Feuil1").Range("A1:H1")
 
            For Each cel In Range("A1:H1"): cel.Value = UCase(Left(cel, 1)) & LCase(Right(cel, Len(cel) - 1))
                .Font.ColorIndex = 3
            Next cel
 End With
End Sub
Publicité
eliot raymondo
 Posté le 14/03/2020 à 16:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut a tous,

j'ai trouver, voici le code si ca peux servir a quelqu'un.

Bon W-end a tous

Cdlt Raymondo

Sub EssaiCouleur()
Dim cel As Range
  For Each cel In ActiveSheet.Range("A1:H1")
    With cel
          .Value = UCase(Left(.Text, 1)) & Mid(.Text, 2)
          .Font.ColorIndex = 2: .Characters(1, 1).Font.ColorIndex = 3
    End With
  Next cel
End Sub
eliot raymondo
 Posté le 24/04/2020 à 14:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour a tous, forum bonjour.

Je cherche un petit code en vba Excel 2007 pour effectuer des tests sur une colonne car

je dois faire pour mon boulot sur Excel 2007 une feuil1 de commande de filtre pour piscine et de chaudière.

Les colonnes A à G sont pour les informations, Réf, taille etc, etc, concernants les filtres.

La colonne (H2:H90) pour entrer la quantité à commander.

Donc je souhaiterai en VBA tester les entrées qui seront faites dans cette colonne(H).

Alors ne laisser entrer UNIQUEMENT que les chiffres de 1 à 99 et rien d’autres.

  • Aucun zéro devant le chiffre 01, non on efface et on retourne en colonne (H)

  • Un ou deux zéros 0 ou 00, non on efface on retourne en colonne (H)

  • Un ou deux chiffres autorisés si 3 chiffres, on efface on retourne en colonne (H)

  • Valider par ENTER, par erreur donc cellule vide, on retourne en colonne (H)

  • Tout autres caractères Tels qu’ils soient, on efface on retourne en colonne (H)

  • Ceci est strict, car une erreur faisant passer une commande pour 100 filtres par Exemple alors

    qu’il en faudrait que deux, boss va pas être content.

    Merci pour votre aide une bonne après midi a tous.

    Cdlt Raymondo

    Page : [1] 
    Page 1 sur 1

    Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

    Vous n'avez pas de compte ? Créez-en un gratuitement !


    Les bons plans du moment PC Astuces

    Tous les Bons Plans
    19,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 128 Go à 19,99 €
    Valable jusqu'au 16 Août

    Amazon fait une promotion la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 128 Go qui passe à 19,99 €. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s. 


    > Voir l'offre
    19,99 €Micro clé USB 3.1 Sandisk Ultra Fit 128 Go à 19,99 €
    Valable jusqu'au 15 Août

    Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 128 Go qui passe à 19,99 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


    > Voir l'offre
    17,99 €Pack de 50 DVD+R Philips 4.7 Go 120 min à 17,99 €
    Valable jusqu'au 15 Août

    Amazon propose actuellement le spindle de 50 DVD+R Philips 4.7 Go 120 min à 17,99 € alors qu'on les trouve ailleurs autour de 25 €. Ces disques offrent une grande capacité et une longue durée de vie. Ils peuvent être gravés en 16x. Notez que le lot de 100 est également en promo à 28,50 €.


    > Voir l'offre

    Sujets relatifs
    VBA récupérer couleur sur image collée
    extraire la première ligne du buffer
    Fermer les popup au clic sur la page
    Rendre visible la grille d'un tableau "Xenforo"
    Developpement sur PC
    la librairie stdio.h
    la librairie stdio.h
    Intégrer l'audio d'une vidéo youtube sur wordpress
    Erreur lors de la compilation
    Petit programme pour jouer à la roulette!
    Plus de sujets relatifs à Couleur sur la première lettre (Majuscule)
     > Tous les forums > Forum Autres langages