Discussion :

[vandman]

Bonjour,

Dans une de mes colonnes, je veux interdire les retours chariot, retour à la ligne, car je vais enregistrer la feuille au format CSV en vu d'un import dans un logiciel.

Il ne faut pas que l'utilisateur puisse faire 'ALT + Enter' lors de la frappe.
Si copier collé, détecter les retours chariots, colorer les cellule en question et faire apparaitre un message d'erreur.

Comment Faire ca?

Merci

[Daniel.C]

Bonjour,

Mets cette macro dans le module de ta feuille. La colonne visée est la colonne E. Modifie la macro pour l'adapter à tes besoins.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C As Range
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each C In Intersect(Target, [E:E])
        If InStr(1, C.Value, Chr(10)) > 0 Then
            C.Interior.ColorIndex = 3
            MsgBox "retour chariot dans la cellule " & C.Address(0, 0)
        End If
    Next C
    Application.EnableEvents = True
End Sub

[vinc_bilb]

Bonjour,

Sans passer par du VBA:
=FIND(CHAR(10), A1, 1) pour détecter si il y a un CR dans la cellule
=SUBSTITUTE(A1,CHAR(10), "") pour les enlever ....

Code :

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

1
2
3
4
5
Origin	Modifié
 
Ceci est un test sans CR	Ceci est un test sans CR
"Ceci est un test 
avec CR"	Ceci est un test avec CR

Bonne journée

Vincent

[Daniel.C]

Bonjour vinc_bilb,

Ta solution n'empêche pas la saisie d'un retour chariot, elle restitue le texte sans retour ligne dans une autre colonne. De plus, il faut gérer le nombre de formules à mettre.

[vinc_bilb]

Bonjour vinc_bilb,

Ta solution n'empêche pas la saisie d'un retour chariot, elle restitue le texte sans retour ligne dans une autre colonne. De plus, il faut gérer le nombre de formules à mettre.

=> Merci! C'était plus pour répondre à la demande "Si copier collé, détecter les retours chariots, colorer les cellule en question et faire apparaitre un message d'erreur."
Le 'coloriage' / et ou détection peuvent se faire par ce simple 'FIND" (code erreur ou format conditionnel), et la réparation par le SUBSTITUTE

Bonne journée

[Daniel.C]

Bonjour vinc_bilb,

Bien vu ! Effectivement; ça m'apprendra à lire les demandes jusqu'au bout.