OK, j'avais lu trop vite, excuses moi

Cette macro événementielle coupe le texte saisi (après appui sur entrée) dans la zone Z1:Z1000 à 45 caractères

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range(Z1:Z1000")) Is Nothing Then: Exit Sub
Application.EnableEvents = False
    Target = Left(Target.Value, 25)
Application.EnableEvents = True
End Sub

Bonjour,

Voici une macro événementielle à insérer dans la feuille en question :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Len(Range("A1")) > 45 Then
Range("A1").Value = Left(Range("A1").Value, 45)
End If
End If
 
End Sub

Bonjour Marina,

Michel : merci pour ton code il fait exactement ce que je voulais (mais en plus simple en plus). Mais je viens de remarquer un problème ...

Le code fait bien ce qu'on lui demande, sauf qu'en cas d'un déplacement de cellule ou un "couper" ou bien dans le cas d'une suppression de plus de 1 cellule (par ex : je sélectionne 2 cellules et je fais "supp"), dans la colonne "Z" bien sur, et bien j'ai l'erreur "Run-time error '13' : Type mismatch" ... et le déboggage va sur la ligne "Target = Left(Target.Value, 25)"

C'est d'autant plus embetant qu'une fois que j'ai cliqué sur "End" ou "Dobogage", la macro ne marche plus, il faut refermer la feuille et reouvrir de nouveau.

J'imagine que c'est du à la target.value, lorsqu'elle est nulle (pour au-delà de 1 cellule) la formule de "left" ne peut marcher sur du vide.



Du coup, c'est seulement plus tard que j'ai vu le message de marina, j'ai modifié un peu ton code pour qu'il ne prenne pas en compte uniquement une seule cellule mais plusieurs. Mais étant peu calé en VBA, la macro marche "presque" bien ... elle ne s'arrete plus ...

--- Elle marche pour "suppression" et "couper", et ne s'arrete plus pour une exécution normal et pour le "copier".

Pour info, le debogueur met en jaune le deuxième "End if".

Voici le code :


Private Sub Worksheet_Change(ByVal Target As Range)

Dim ligne As Integer

ligne = 2

While Worksheets("Sheet1").Cells(ligne, 1).Value <> ""


If Not Application.Intersect(Target, Cells(ligne, 30)) Is Nothing Then ' 30 pour colonne "AD" (j'avais pris "Z" comme exemple mais 30 plus facile à retenir :p )

If Len(Cells(ligne, 30)) > 4 Then

Cells(ligne, 30).Value = Left(Cells(ligne, 30).Value, 5) ' 5 - pour pouvoir faire des tests rapidement au lieu de taper 40 caractère :)
End If
End If

ligne = ligne + 1
Wend

End Sub


Si tu ne sais pas demande, si tu sais partage.

Bonsoir,

Je ne comprends pas ta boucle WHILE qui exécute tant que la condition est vraie, ça risque de tourner en rond.
Une macro événementielle porte un événement, càd au moment où l'utilisateur change le contenu de la cellule, et non pas tant qu'une condition est vraie.

Peux-tu nous dire ce que tu veux faire exactement ? Sur quelles cellules portent l'action et sous quelle(s) condition(s) ?

m@rina Inutile de me poser des questions en MP... 
Définitivement je n'y réponds pas... Le forum est fait pour ­ça.

1/ le If Len(Cells(ligne, 30)) > 4 Then est inutile...

2/ok pour ligne déclaré en integer si tu utilises moins de 32000 + des poussières de lignes; si tu en utilises moinds de 256 déclare en Byte.

3/ ton truc ne s'arrètera jamais car worksheeet_change se déclenche quand tu modifies une saisie. c"est pour cela que j'ai désactivé l'action des événements (enableevents), le += souvent indispensable avec worksheet_change

4/ pour éviter la sélection de plusieurs cellules
If Not Application.Intersect(Target, Cells(ligne, 30)) and target.count=1 Is Nothing Then Le forum est basé sur le partage de connaissances:Je ne réponds pas à des questions techniques par message privé.Cordialement, Michel

Et bing, une bosse!
Bizous Marina Le forum est basé sur le partage de connaissances:Je ne répo­nds pas à des questions techniques par message privé.Cordial­ement, Michel

Je viens de tester de rajouter le "target.count=1" dans ton premier code Michel, et ça me retourne erreur : "type mismatch" en selectionnant le "=".

En fait pour la boucle, Marina, c'est juste que comme tu as donné un code avec une seule cellule à l'intérieur "A1", je voulais remplacer cette cellule par des cellules variables (vu que en tout dans ma base j'ai plus de 15000 cells, et leur nombre est amené à augmenter ou diminuer).

Du coup mon while était destiné à dire : tant que ma colonne "A" (ex: code article) a des données (différente de rien) alors la cellule (ligne) de la colonne "AD" (30) doit etre raccourcis en nombre de caractères.

Difficile d'expliquer un tableau par écrit :)

Pour mieux représenter disons que la colonne "A" ce sont des codes articles, et la colonne "AD" sont des informations sur article. Il n'y a pas toujours une information pour chaque article. Par contre une personne peut en ajouter à n'importe quel moment, mais vu que toutes ces données sont ensuites exploitées dans des TCD, l'ajout de la colonne "AD" rend l'affichage des TCD complétement illisibles (mauvaise mise en page etc etc), d'ou l'intéret de limiter le nombre de caractères.

Je me serais contenter volontier de ton premier code Michel, puisqu'il fait exactement ce qu'il faut, mais je sais que les utilisateurs seront amenés à supprimer plus d'une cellule à la fois ou couper etc...

En tout cas merci pour votre aide, je ne sais pas si j'aurais le temps d'aller sur le forum durant le week-end, donc bon week-end à vous et peut etre à Lundi :)

PS: je suis quand meme surpris qu'une fonction qui me semble assez basique (vu que le fait de limiter la saisi à un nombre de caractères donné, est présente dans de nombreux logiciels) ne soit pas integrée à Excel ...
Si tu ne sais pas demande, si tu sais partage.

Bonsoir

Du coup mon while était destiné à dire : tant que ma colonne "A" (ex: code article) a des données (différente de rien) alors la cellule (ligne) de la colonne "AD" (30) doit etre raccourcis en nombre de caractères.

Voui, mais il s'agit d'un événement sur la colonne AD qui se passe quand l'utilisateur saisit dans une seule cellule.
Aussi, quand l'utilisateur saisit dans une cellule de la colonne AD, il suffit de vérifier si la cellule correspondante de la colonne A est remplie... En même temps, je ne vois même pas pourquoi ça serait utile.

voilà le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("AD:AD")) Is Nothing Then
If Len(Target) > 45 Then
Target.Value = Left(Target.Value, 45)
End If
End If
 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("AD:AD")) Is Nothing Then
If Len(Target) > 45 And Target.Offset(0,-29) <> "" Then
Target.Value = Left(Target.Value, 45)
End If
End If
 
End Sub

Bonjour Marina,

En effet maintenant que tu le fais remarquer, il m'est inutile de faire référence à la colonne "A", du coup je retiens ton premier code.

Cette fois le code gère bien le couper/copier/coller (sauf pour deux cellules simultanément) dans la colone "AD", mais pas la suppression de plus d'une cellule (remarque : je n'ai aucune erreur si les cases selectionnées, le sont avec "CTRL" + "Cellule par cellule") ainsi que le "copier" par "glisser" (lorsque je sélectionne une cellule et pour la copier sur celle du bas, je clique sur le petit carré de la cellule et je "glisse" en bas) : erreur de : "type mismatch".

Est-ce que vous auriez une idée sur comment éviter ces erreurs?
Sinon c'est pas grave, la macro marche deja tres bien et puis je pense que ces quelques petites contraintes sont acceptables.
Si tu ne sais pas demande, si tu sais partage.

Alors là ...

MERCI BEAUCOUP!!! :)

Ca marche vraiment comme je voulais et sans aucune contrainte pour l'utilisateur, c'est vraiment excellent!

Merci beaucoup Marina et toi aussi Michel, d'avoir consacré "un peu" de votre temps pour mon problème!

Bonne soirée à vous!
Si tu ne sais pas demande, si tu sais partage.