Test qui va pas

Re : Test qui va pas

Bonjour Soenda et le forum,

Merci de d'avoir fait le petit code, je vais essayer de l'associer a mon programme, sinon si ca ne marche pas comme je veux, je vais changer de méthode, je pense avoir une idee qu'il me faut développer, je vais d'abord fouiner un peu sur le site voir si je ne trouve pas mon bonheur. te redirai.

Merci Merci bien bonne journée

A plus tard Raymond

Re : Test qui va pas

Re Soenda, forum

Quand tu aura le temps, et si tu veux STP bien regarder, je n'arrive pas a concilier ton code avec celui de Hasco. Peut etre que j'ai mal placer, j'ai erreur avec with.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If Not Intersect(Target, Range("$C$2:$D$25,$H$2:$I$25")) Is Nothing Then
If IsNumeric(.Value) Then
.Value = Left(.Value, 7)
.Offset(0, 1).Select
Else
[C2:C25].NumberFormat = """N° ""#######0;;""N° """
.Value = 0
.Offset.Select

End If
End With
Application.EnableEvents = True
Exit Sub

End If
'Si colonne C et virgule
If Target.Column = 3 Then
If InStr(1, Target.Value, ",") > 0 Then
'Transformer en entier
'L'évènement change sera rappelé et vérifiera ensuite
'Si c'est une valeur numérique
Target = CDbl(Left(Target.Value, InStr(1, Target.Value, ",") - 1))
End If
If Len(Target.Text) > 7 Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End If

ElseIf Not Intersect(Target, Range("$A$1:$I$1")) Is Nothing Then
Dim i As Integer
Dim car As String
'Vérifie tous les caractères de la cellule
For i = 1 To Len(Target.Text)
car = Mid(Target.Text, i, 1)
If (Not car Like "[A-Z]") And (Not car = " ") Then
Target.ClearContents
Exit For
End If
Next i
End If
End Sub
Je t'en remercie par avance bon courage
A plus tard

Raymond

Re : Test qui va pas

Bonsoir le forum, raymond

Le code qui suit, fonctionne de la manière suivante:

Si on entre un nombre entier dans la cellule,
les 7 premiers caractères sont entrés dans la cellule,
puis la cellule d'à côté est sélectionnée.

si on entre autre chose que des chiffres (même une virgule) dans la cellule,
celle-ci est remise à zéro,
puis elle est resélectionnée.
La ligne qui suit doit se trouver dans Workbook_Open
A plus

Re : Test qui va pas

Bonjour Soenda bonjour le forum

Ca ne marche pas comme je voudrai, aussi je vais revoir mes copies, je voulais faire un truc sympa mais bon je vais réfléchir.
Je te remercie pour le temps passer a me depanner, ceci dit j'ai tout de meme appris des trucs au passage.

Bonne journée a toi et encore beaucoup de merci
vais faire chauffer les neurones

Raymond