Discussion :

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[eriiic]

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

[Vba14]

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

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

[unparia]

Bonjour

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)

[Vba14]

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é

[Philippe Tulliez]

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vba14]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Cel = UCase(Cel)

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

[Vba14]

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 ??

[Vba14]

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.

[RyuAutodidacte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

RYU

[RyuAutodidacte]

Merci Patrick

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

RYU

[Vba14]

Merci Patrick

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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
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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RyuAutodidacte]

Re,

Quel est ta version d'excel ??

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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