Autres Limiter le nombre de caractère copiés dans une cellule

patricktoulon à dit:

rre
bonjour
sinon en vba et en plus (en late binding) le dataobject

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
     .GetFromClipboard
           If Len(.GetText(1)) > 30 Then .SetText "": .PutInClipboard
    End With

End Sub

c'est beau la vie non
et si tu veux vraiment enpêcher le collage par les touches
met ce code directement dans le selectchange

Cliquez pour agrandir...

Phil69970 à dit:

Re
Bonjour Patrick

Je te propose cette version

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
    If Len(Target) > 5 Then  ' A ajuster si besoin
        Range("B3").ClearContents
        MsgBox "Trop de caractere maxi 5 caractères", vbCritical, "Vous avez un problème !"
    End If
End If
End Sub

If Len(Target) > 5 Then ' A ajuster si besoin

Cliquez pour agrandir...

Phil69970 à dit:

Re

@saralht

Le code de la macro

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
    If Len(Target) > Range("G3") Then
        Range("B3").ClearContents
        MsgBox "Trop de caractere maxi " & Range("G3") & " caractères", vbCritical, "Vous avez un problème !"
    End If
End If
End Sub

A mettre ici
Regarde la pièce jointe 1183424

En G3 tu mets le nombre de caractères que tu veux

Regarde la pièce jointe 1183425

Pour l'exemple j'ai mis 5
Et en B3 tu fais tout ce que tu veux mais si tu dépasses 5 caractères tu auras un message que cela soit par copier/coller ou directement dans la cellule

Bien sur on peut en modifiant le code et le message pour figer en dur dans le code VBA la longueur du texte en B3

Je t'ai perdu ??

Cliquez pour agrandir...

saralht à dit:

1- suis-je obligée d'avoir une cellule de référence ?

Cliquez pour agrandir...

saralht à dit:

2- Comment appliquer la limite à toute une colonne ?

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    If Len(Target) > 5 Then  ' A ajuster si besoin
        Target.ClearContents
        MsgBox "Trop de caractere maxi 5 caractères", vbCritical, "Vous avez un problème !"
    End If
End If
End Sub

saralht à dit:

puis à plusieurs colonnes

Cliquez pour agrandir...

If Not Application.Intersect(Target, Range("B:C")) Is Nothing Then

Cliquez pour agrandir...

Phil69970 à dit:

Re

@saralht

1)

Réponse voir mon post # 9

2)

Je te propose ce code qui contrôle toute la colonne B et toujours avec 5 caractères

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
    If Len(Target) > 5 Then  ' A ajuster si besoin
        Target.ClearContents
        MsgBox "Trop de caractere maxi 5 caractères", vbCritical, "Vous avez un problème !"
    End If
End If
End Sub

3)

Quelle colonne ?

Dans cet exemple ce sont les colonnes B et C qui sont contrôlés
A toi d'adapter

Perso :
A) Remplir ton fichier risque de devenir un enfer pour l'utilisateur

B) Feuilletonner la question n'est pas bien vu sur le forum car c'est souvent sans fin
Voir la charte
Regarde la pièce jointe 1183434

Merci de ton retour

Cliquez pour agrandir...