Comparer la partie majuscule d'une cellule a la partie majuscule d'une autre cel
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
13 mars 2019 à 16:16
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 14 mars 2019 à 14:14
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 14 mars 2019 à 14:14
A voir également:
- Comparer la partie majuscule d'une cellule a la partie majuscule d'une autre cel
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- A majuscule - Guide
- Flouter une partie d'une photo - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Mettre un texte en majuscule - Guide
1 réponse
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
13 mars 2019 à 16:38
13 mars 2019 à 16:38
Bonjour,
voir ceci pour extraire les majuscules d'une cellule:
https://forums.commentcamarche.net/forum/affich-5401335-extraire-ls-majuscules-dans-une-cellule-excel
voir ceci pour extraire les majuscules d'une cellule:
https://forums.commentcamarche.net/forum/affich-5401335-extraire-ls-majuscules-dans-une-cellule-excel
13 mars 2019 à 16:49
merci pour votre orientation
13 mars 2019 à 17:52
Private Sub CommandButton2_Click() Dim colA As String Dim colB As String colA = majuscules(Range("A1")) colB = majuscules(Range("B1")) If colA = colB Then MsgBox "egal" Else MsgBox "pas egal" End If End Sub Public Function majuscules(zone) Dim sel As Object Dim i As Integer Application.Volatile For Each sel In zone For i = 1 To Len(sel) If Asc(Mid(sel, i, 1)) > 64 And Asc(Mid(sel, i, 1)) < 91 Then majuscules = majuscules & Mid(sel, i, 1) End If Next i Next sel End FunctionVoilà a toi de l'adapter
@+ Le Pivert
14 mars 2019 à 09:20
merci pour le code
je vais essayer de ladapter
merci encore
Modifié le 14 mars 2019 à 09:51
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim maj As String If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then 'adapter la colonne maj = majuscules(Range(Target.Address)) Target.Value = Replace(Target.Value, maj, "") Target.Value = maj & " " & Target.Value End If End Sub Public Function majuscules(zone) Dim sel As Object Dim i As Integer Application.Volatile For Each sel In zone For i = 1 To Len(sel) If Asc(Mid(sel, i, 1)) > 64 And Asc(Mid(sel, i, 1)) < 91 Then majuscules = majuscules & Mid(sel, i, 1) End If Next i Next sel End Functiona chaque clic sur la cellule la partie en majuscule se mettra devant
ATTENTION ne fonctionne que si le prénom n'a pas la 1ère lettre en majuscule!!!!!!!!!!!!!
Voilà
@+ Le Pivert
14 mars 2019 à 09:52
jai copie le code dans le module de la feuille mais ca marche pas
il ne s'est rien passer je ne sais pas ou est le probleme
de plus est il possible de creer un bouton pour cliquer dessus pour que ca marche et non sur la cellule parceque je veux mettre toute les cellules A de 2 juqau 23 ( A2 a A23 ) et aussi toute les cellule C de 24 a 200 (C24 a C200)
merci pour vos reponses