Colonne au format NOM propre

Bonsoir à tous,

J'ai essayé de mettre ce code en place qui est censé me mettre la colonne C de la feuille active au format Nom propre (Proper), mais ça ne fonctionne pas.
Auriez-vous la gentillesse d'y jeter un oeil s'il vous plait ?
Merci par avance

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_selectionChange(ByVal Target As Range) Application.ScreenUpdating = False If TypeName(Selection) = "C:C" Then For Each Cel In Selection Cel.Value = Application.WorksheetFunction.Proper(Cel.Value) Next End If End Sub

---

Bonjour,

Code:

---

If TypeName(Selection) = "C:C" Then

---

?????
Sais-tu ce que renvoie la fonction TypeName ?

Bonjour,

tu comptes vraiment appliquer le format cellule par cellule sur toute la colonne ?
Tu peux faire toute la colonne d'un coup.
Tu peux aussi le définir manuellement sur la feuille si ce n'est pas une que tu as crée, pas vraiment besoin de macro pour le faire dans ce cas.
Le remettre à chaque sélection tient de la paranoïa ;-)
eric

Bonsoir Philippe, bonsoir eriic,

Philippe, c'est une chaîne qui donne des informations sur une variable, d'après ce que j'ai lu. Ici ma variable étant la colonne C :koi:

eriic, non je ne veux pas faire cellule par cellule mais bien la colonne C (NOM) d'un seul coup. Je souhaite appliquer ça ensuite aux colonnes F et G qui sont VILLE et PAYS

Bonjour

Citation:

---

d'après ce que j'ai lu

---

que tu as lu où ?????
la lecture (la première à faire) de ton aide interne VBA t'apprendra qu'elle retourne (comme son nom l'indique d'ailleurs) le type de la variable concernée; et rien d'autre.
Typename(selection) ne te retournera donc que "Range" (qui est le type de ta variable selection)

Citation:

---

Envoyé par unparia

Bonjour


que tu as lu où ?????
la lecture (la première à faire) de ton aide interne VBA t'apprendra qu'elle retourne (comme son nom l'indique d'ailleurs) le type de la variable concernée; et rien d'autre.
Typename(selection) ne te retournera donc que "Range" (qui est le type de ta variable selection)

---

Bonsoir unparia,

Il suffit de taper "TypeName" dans un moteur de recherche pour avoir une explication. Que j'ai mal compris l'explication, ça c'est probable... même certain d'après vos commentaires à tous.
Désolé

Bonjour,
Donc quelle est la raison pour laquelle tu vérifies si TypeName renvoie C:C
Pour vérifier si la sélection porte sur la colonne C, il suffit de vérifier si la propriété Column de l'objet Target est égal à 3
De même, il n'y a aucune raison d'utiliser l'objet Selection puisque Target représente déjà cette sélection. Ce n'est pas une faute mais c'est inutile.

Si tu souhaites que la case d'une valeur entrée dans une cellule de la colonne C, j'aurais utilisé la procédure événementielle Worksheet_Change

vba14
tu veux tester la colonne du target dans l'évènement selection change en fait

Code:

---

1 2 3

if target.column=3 then '..... end if

---

tiut simplement

maintenant si dans ta maladresse tu tentais de tester la sélection d'une colonne entière par le heading par exemple
tu fait un test sur l'entirecolumn.address vs target address

ne fonctionnera que!! si la colonne entière est sélectionnée

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.EntireColumn.Address = Target.Address Then MsgBox "vous avez sélectionné la colonne entière" For Each cel In Target.Cells '....... Next End If End Sub

---

;)

Voilà j'ai fait ça et j'ai le résultat escompté

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_selectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim Cel As Range Dim Plage As Range Set Plage = ActiveSheet.Range("C6:C500") If Plage Is Nothing Then Exit Sub For Each Cel In Plage Cel = UCase(Cel) Next Cel End Sub

---

Edit : Désolé Patrick, nos réponses se sont croisées

Attention vba14 ucase c'est pas les noms propres c'est majuscule

Code:

---

cel=strconv(cel,vbpropercase)

---

attention que la aussi que tu soit en colonne C ou autre ca va se declencher
et ton test nothing il sert a quoi en fait a rien par ce que plage n'est pas nothing ,tu l'instancie une ligne au dessus

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

PrPrivate Sub Worksheet_selectionChange(ByVal Target As Range) Application.ScreenUpdating = False Dim Cel As Range Dim Plage As Range If Target.Column = 3 Then ' ne se declenchera uniquement si la selection est en colonne "C" Set Plage = ActiveSheet.Range("C6:C500") 'Range("C6",cells(rows.count,"C").end(xlup))) je limite a la dernière utilise de la colonne If Plage Is Nothing Then Exit Sub '????????????????????????????????????????????????? For Each Cel In Plage 'Cel = UCase(Cel) '!!!!!!! c'est pas les nom propres cette fonction Cel = StrConv(Cel.Text, vbProperCase) Next Cel End If End End Sub Sub

---

Bonjour,
Cette discussion devient incohérente.
Au départ, tu souhaites utiliser la fonction Proper qui modifie la casse d'une chaîne de caractères en mettant tout en minuscule sauf le premier caractère de chaque mot en majuscule
Or tu sembles satisfait du code que tu publies avec en ligne 9

Code:

---

Cel = UCase(Cel)

---

qui met donc tout en majuscule. Sais tu finalement ce que tu veux ?

Philippe,
Je voulais tout en majuscules, je me suis trompé de méthode avec Proper, ou plutôt confondu les deux. Toutes mes excuses.

Patrick,
Du coup je suis perdu, pour moi Nom propre = majuscules dans mes habitudes... Donc Proper c'est uniquement la 1ère lettre en majuscule et le reste en minuscules ??

Donc après avoir fait les essais, c'est bien le tout majuscules qu'il me faut. J'aurai appris quelque chose avec Proper.
Désolé de vous avoir fait perdre votre temps sur une bêtise pareille.

Bonjour,

Sans Boucle, code test à adapter - mettre du texte en minuscule dans la colonne C à partir de C2 sur une quinzaine de lignes + ou - pour test :

Code:

---

1 2 3 4 5 6

Sub MajusculeTest() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("IF(ISTEXT(" & .Address & "),UPPER(" & .Address & "),REPT(" & .Address & ",1))") End With End Sub

---

Edit : sans la condition IF :

Code:

---

1 2 3 4 5 6

Sub MajusculeTest() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("UPPER(" & .Address & ")") End With End Sub

---

RYU:plusser:

Merci Patrick :lun:

Valable avec PROPER, TRIM, etc … de ce qui est possible

Code:

---

1 2 3 4 5 6

Sub PROPERTest() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("PROPER(" & .Address & ")") End With End Sub

---

RYU :plusser::plusser::plusser:

Citation:

---

Envoyé par RyuAutodidacte

Merci Patrick :lun:

Valable avec PROPER, TRIM, etc … de ce qui est possible

Code:

---

1 2 3 4 5 6

Sub PROPERTest() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("PROPER(" & .Address & ")") End With End Sub

---

---

Bonsoir RyuAutodidacte,

Merci de t'être intéressé à cette discussion. Merci également pour le code qui fonctionne très bien quel que soit mon choix (UPPER pour tout en majuscules ou simplement la première lettre avec PROPER).
J'ai testé les 2 cas et je n'ai rencontré aucun soucis. :plusser:

re
c'est quand même bien que ce "evaluate" fonction en lecture et écriture hein ;)
j'aurais presque envie de dire en callback
RYU et les tableaux une grande histoire d'amour :mouarf:
tu devrais faire des petits nipets dans les contrib je t'y encourage ,se sont des fonctions bien utiles et a la portées de tous

un petit éventails de tes manip avec evaluate serait apprécié je pense

edit:
ps trim m'efface tout ????????? ca serait une fonction intéressante ca (combien de fois ce sujet est revenu sur le tapis:roll: )

Code:

---

1 2 3 4 5 6

Sub TrimAllCellInRange() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("Trim(" & .Address & ")") End With End Sub

---

Re,

Quel est ta version d'excel ??

Citation:

---

ps trim m'efface tout ????????? ca serait une fonction intéressante ca (combien de fois ce sujet est revenu sur le tapis )

---

Apparemment, selon la version d'Excel cela ne réagit pas de la même façon, se serait bien de connaître les versions d'Excel ok et non ok avec le code dans sa version courte.

pour toi cela devrait marcher plutôt avec le code écrit comme ceci (version longue) - ici le Trim marche comme Application.Trim

Code:

---

1 2 3 4 5 6

Sub TrimAllCellInRange() DL = Cells(Rows.Count, 3).End(xlUp).Row With Range("C2:C" & DL) .Value = Evaluate("IF(ISTEXT(" & .Address & "),TRIM(" & .Address & "),REPT(" & .Address & ",1))") End With End Sub

---