Bonjour,
je voudrai votre aide pour la création d'une macro.
Mon problème est le suivant: je dois envoyer un fichier à compléter à un client, j'utilise "validation des données" afin de protéger lors de l'écriture ma cellule (max: 30 caractères) hors je me suis rendu compte qu'un bête copier/coller faisait sauter cette protection.
après des recherches il s'avère que j'ai besoin d'une macro pour protéger efficacement ma cellule.
Donc je voudrais une macro qui:
- lors d'un "coller" venant d'une feuille ou d'un programme extérieur vérifie que le nombre de caractère ne dépasse pas les 30
- Si cela dépasse:
1) Apparition d'un message d'avertissement)
2) curseur revenu au début de la cellule qui reste vide
j'ai commencé le code mais je n'arrive pas à le finir
merci d'avance
je voudrai votre aide pour la création d'une macro.
Mon problème est le suivant: je dois envoyer un fichier à compléter à un client, j'utilise "validation des données" afin de protéger lors de l'écriture ma cellule (max: 30 caractères) hors je me suis rendu compte qu'un bête copier/coller faisait sauter cette protection.
après des recherches il s'avère que j'ai besoin d'une macro pour protéger efficacement ma cellule.
Donc je voudrais une macro qui:
- lors d'un "coller" venant d'une feuille ou d'un programme extérieur vérifie que le nombre de caractère ne dépasse pas les 30
- Si cela dépasse:
1) Apparition d'un message d'avertissement)
2) curseur revenu au début de la cellule qui reste vide
j'ai commencé le code mais je n'arrive pas à le finir
Code:
Sub Macro1()
Dim i As Integer
Range("D4").Select
CnLen = Len(ActiveCell)
For i = 4 To 50
If Len(ActiveCell.Text) > 30 Then
MsgBox ">30 caractères"
End If
Next i
End Submerci d'avance