Fonction Proper

Bonjour à tous,

Je souhaite étendre la fonction Proper à toute une colonne. Des idées?

Merci

Bonjour Lola75,

Procédure à coller dans le code de la feuille :

Sub FoncProper()
    Const cColFrom= 1
    Const cColTo= 2
    Dim oCell As Range

    For Each oCell In ActiveSheet.UsedRange.Columns(cCol).Cells
        oCell.Offset(, 2).Value = WorksheetFunction.Proper(oCell.Value)
    Next

End Sub

NB: Adapter le code en indiquant la bonne colonne contenant le texte à convertir dans cCOlFrom

Et la position relative de la colonne devant recevoir le texte converti dans cColTo

Oups, légère erreur dans mon envoi précédant. Le bon code est:

Sub FoncProper()
    Const cColFrom= 1
    Const cColTo= 2
    Dim oCell As Range

    For Each oCell In ActiveSheet.UsedRange.Columns(cColFrom).Cells
        oCell.Offset(, ccolTo).Value = WorksheetFunction.Proper(oCell.Value)
    Next

End Sub

Bonsoir Lola75, GVIALLES, le forum,

Une autre proposition :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim DernierLigne As Long
Dim nom As String, prenom As String

Application.EnableEvents = False

DerniereLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DerniereLigne

      prenom = Range("A" & i).Value
      nom = Range("B" & i).Value

      Range("A" & i).Value = Application.Proper(prenom)
      Range("B" & i).Value = Application.Proper(nom)

Next i

Application.EnableEvents = True

End Sub

Cordialement,

Merci beaucoup!!

Cela signifie donc que je ne peux pas sans macro?

Merci!!

Bonjour,

La macro permet de remplacer le contenu des cellules ... tandis que si tu utilises la fonction .. et que tu la copies dans une autre colonne, il te faudra faire un copier-coller spécial pour tranformer la formule en son résultat ... et ensuite supprimer la colonne d'origine ...

Merci pour ta réponse!!!! Mais ouiiii le collage spécial of course!!! Merci!

Ce forum est top

De rien ...

Merci pour tes remerciements ...