Formula1: error 1004

Bonjour à tous,

Ce que je veux faire:

Je dois entrer en VBA une formule de validation des données dans une nouvelle colonne d'une Table (validation active sur toutes les cellules de la nouvelle colonne).
Donc lorsque l'utilisateur rentre une valeur dans une cellule de cette nouvelle colonne de cette table, cela vérifira le forma suivant:
Format accepté: nombre/0 ou nombre/1 ou */0 ou */1 et les nombres peuvent être des chiffres à virgule (125454.12) avec un point comme séparateur... là aussi je n'ai pas trouvé comment faire...
ex: 5454/0 ou 12/1 ou */0

Je veux rentrer cette formule de validation en VBA dans le code, sans passer par la validation des données d'Excel (la colonne étant ajoutée dynamiquement par l'utilisateur).

Ci-dessous la colonne "param_eceu/Cxx1_gear_rat_tgt" ajoutée avec sa validation des données (j'essaye de rentrer une valeur non permise)
Pièce jointe 433714

************************************************************************************
Concentrons-nous durant cette étude sur la détection du zéro à la fin, après le /


Voici mon soucis:

Ce code marche:
On vérifie ci-dessous la présence du "/" dans les données saisies (voir la ligne Formula1).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

' Ajout d'une colonne de calibration If gnCols_1 < ncols Then Usfrm_CalibSelection.Show snewColName = gNameCalib Rheader(Target.Column - Rcsv.Column + 1) = snewColName Set RnewCol = Tab_CSV.ListColumns(snewColName).DataBodyRange ' On récupère l'addresse en format type $H11 par exemple (si les données de la nouvelles colonne commencent en H11). ' Il y a un $ devant le H mais pas devant le 11, de manière à ce que la validation soit récursive sur toute la colonne du tableau snewColAddress = "$" & wColNm(RnewCol.Column) & RnewCol.Row With RnewCol .NumberFormat = "@" ' On met au format texte sinon le format 4/3 sera pris comme une date ' Le format accepté sera: ' - nombre/nombre ou ' - */nombre With .Validation .Delete .Add _ Type:=xlValidateCustom, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, _ Formula1:="=IF(ISNUMBER(SEARCH(""/"", " & snewColAddress & ")) ,true,false)" ' cette formule marche !!!   End With End With End If

---

Cette formule marche:

Code:

---

1 2	Formula1:="=IF(RIGHT(" & snewColAddress & ", 2)=""0"" ,true,false)"

---

Cette formule ne marche pas, apparemment c'est le Search dans la formule qui sème la pagaille, alors qu'il marche dans le premier exemple..... :

Code:

---

1 2	Formula1:="=IF(RIGHT(" & snewColAddress & ", SEARCH(""/"", " & snewColAddress & "))=""0"" ,true,false)"

---

Ne marche pas (erreur 1004):
C'est pourtant ce que je souhaite faire.

Code:

---

1 2 3

Formula1:="=IF(RIGHT(" & snewColAddress & ", LEN(" & snewColAddress & ")-SEARCH(""/""," & snewColAddress & "))=""0"" ,true,false)"

---

Pourquoi ?:lol::?:ptdr:

Apparemment ce sont les opérations dans les formules qui plantent.

Ceci marche:
Mais ne sert à rien.

Code:

---

1 2	Formula1:="=IF(RIGHT(" & snewColAddress & ", LEN(" & snewColAddress & ") )=""0"" ,true,false)"

---

Ne marche pas:

Code:

---

1 2	Formula1:="=IF(RIGHT(" & snewColAddress & ", LEN(" & snewColAddress & ") -5 )=""0"" ,true,false)"

---

Ne marche pas :

Code:

---

1 2	Formula1:="=IF(RIGHT(" & snewColAddress & ", SEARCH(""/""," & snewColAddress & " ))=""0"" ,true,false)"

---

Donc la fonction Search me boude ici !!! mais pourquoi ??

bonjour
Ta demande est incompréhensible au moins pour moi ... tu cherche à exiger une forme : xxxx/1 ou xxxxx/0 lors de la saisie d'un textbox ou quoi ??
ou bien tu as une colonne avec des données de format xxxxx/1 et xxxx/0 et tu veux extraire ce dernier chiffre??? Un problème bien posé est un problème à moitié résolu

J'ai reformulé ma question plus précisément..
Ce n'est pas une txtbox, mais une cellule d'une table.
Lorsque l'utilisateur ajoute une colonne dans la table, ca lance un évènement qui va appeler ce code de manière à rentrer une formule de validation des données pour toutes les cellules de cette nouvelle colonne.

Le format accepté est : nombre/0 ou nombre/1 ou */0 ou */1
ex:
121454545/0
5/0
1/1
1/0
245/1
*/1
*/0

J'ai réussi à tout faire, sauf la détection du 0 ou du 1 à la fin..... j'ai une erreur 1004. C'est incompréhensible.

bonsoir
à adapter et à essayer avec (ça concerne la colonne A):

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Worksheet_Change(ByVal Target As Range) If Application.Intersect(Target, Columns(1)) Is Nothing Then Exit Sub If Target.Value <> "" Then Liste = Array("/1", "/0") If Not IsNumeric(Application.Match(CStr(Right$(Target.Value, 2)), Liste, 0)) Then MsgBox "Format non valide ! " Target.Value = "" End If End If End Sub

---

Merci mais je ne souhaite pas procéder à une vérification évènementielle à chaque saisie.
Je souhaite rentrer directement, en une fois, une formule de validation des données pour toute la colonne. :mrgreen:

Voici une formule complète qui marche:

Code:

---

Formula1:="=IF(AND(ISNUMBER(SEARCH(""/"", " & snewColAddress & ")), OR(ISNUMBER(1*MID(" & snewColAddress & ",1,1*(SEARCH(""/""," & snewColAddress & ")-1))), AND(MID(" & snewColAddress & ",1,1)=""*"", MID(" & snewColAddress & ",2,1)=""/"") ) , ISNUMBER(1*MID(" & snewColAddress & ",1*(SEARCH(""/""," & snewColAddress & ")+1),LEN(" & snewColAddress & ")-SEARCH(""/""," & snewColAddress & "))) ),true,false)"

---

Cette formule se décompose ainsi:

Code:

---

IF (AND (PRESENCE_FLASH , OU (NOMBRE_A_GAUCHE_DU_FLASH , AND(ASTERIX_EN_POS_1, FLASH_EN_POS_2)) , NOMBRE_A_DROITE_DU_FLASH))

---

PRESENCE_FLASH :

Code:

---

ISNUMBER(SEARCH(""/"", " & snewColAddress & "))

---

NOMBRE_A_GAUCHE_DU_FLASH:

Code:

---

ISNUMBER(1*MID(" & snewColAddress & ",1,1*(SEARCH(""/""," & snewColAddress & ")-1)))

---

ASTERIX_EN_POS_1:

Code:

---

MID(" & snewColAddress & ",1,1)=""*""

---

FLASH_EN_POS_2

Code:

---

MID(" & snewColAddress & ",2,1)=""/""

---

NOMBRE_A_DROITE_DU_FLASH:

Code:

---

ISNUMBER(1*MID(" & snewColAddress & ",1*(SEARCH(""/""," & snewColAddress & ")+1),LEN(" & snewColAddress & ")-SEARCH(""/""," & snewColAddress & ")))

---

Mais je répète que si j'essaye de détecter le 0 ou le 1 à la fin (à la place d'un nbre qqnque), ça plante !! (voir premier message)

Il s'agit donc de formules.... :whistle:

Pour finir, à présent quelque soit la formule rentrée dans le code ,j'ai l'erreur 1004....... :ptdr:

Pièce jointe 433999

Toujours personne pour m'aider à faire ça ?

J'ai toujours cette satanée erreur 1004, et VBA ne dit bien sûr pas d'où vient le problème.... piètre débugger....

Je veux détecter le 0 après le /.

Ceci plante:

Code:

---

1 2	MID(" & snewColAddress & ",1*(SEARCH(""/""," & snewColAddress & ")+1),LEN(" & snewColAddress & ")-SEARCH(""/""," & snewColAddress & "))=""0""

---

:ptdr: