Microsoft 365 [VBA] [Résolue] changer les type de donnée de la cellule

[Kyirra]

Salut à tous,

Après un copier coller VALEUR d'une cellule qui contient ce code (je sais il est très moche) :

=SI(NON(ESTVIDE(E4));SI(E4=$BN$12;$BM$12;SI(E4=$BN$13;$BM$13;SI(E4=$BN$14;$BM$14;SI(E4=$BN$15;$BM$15;SI(E4=$BN$16;$BM$16;SI(E4=$BN$17;$BM$17;SI(E4=$BN$18;$BM$18;SI(E4=$BN$19;$BM$19;SI(E4=$BN$20;$BM$20;SI(E4=$BN$21;$BM$21;SI(E4=$BN$22;$BM$22;SI(E4=$BN$23;$BM$23;SI(E4=$BN$24;$BM$24;SI(E4=$BN$25;$BM$25;SI(E4=$BN$26;$BM$26;SI(E4=$BN$27;$BM$27;SI(E4=$BN$28;$BM$28;SI(E4=$BN$29;$BM$29;SI(E4=$BN$30;$BM$30;SI(E4=$BN$31;$BM$31;SI(E4=$BN$32;$BM$32;SI(E4=$BN$33;$BM$33;SI(E4=$BN$34;$BM$34;SI(E4=$BN$35;$BM$35;SI(E4=$BN$36;$BM$36;SI(E4=$BN$37;$BM$37;SI(E4=$BN$38;$BM$38;SI(E4=$BN$39;$BM$39;SI(E4=$BN$40;$BM$40;SI(E4=$BN$41;$BM$41;SI(E4=$BN$42;$BM$42;"")))))))))))))))))))))))))))))));"")&SI(NON(ESTVIDE(E4));""&SI( OU(F4="Blanc";F4 ="Blanche");1;2);"")

Je me retrouve avec des nombre définie comme du texte (colonne AB et AG) :

Comment puis-je faire en sorte qu'il repasse en nombre dans mon code VBA sachant que j'ai besoin de comparer ces valeurs avec la même valeur qui est un nombre ? Et que si je le fait comme tel je compare un nombre et un texte et du coup forcément la comparaison ne fonctionne pas.

Merci d'avance !

 

[Wayki]

Bonjour,
sans code difficile de t'aider.
Soit il faut formater toute ta colonne, avec enregistreur vba par exemple, soit dans ton code au lieu de dire par exemple "if range("AB4") = range("AG4")..." ; tu écris plutôt : "If range("AB4").value = range("AG4").value..."
A +

 

[Kyirra]

ah oui pas bête ton idée Wayki,
personnellement j'ai résolue le soucis en ajoutant ces lignes :

[AG4:AG275].Select
With Selection
.NumberFormat = "General"
.Value = .Value
End With


Pour le code, je sais bien mais ca devient tellement un bordel monstre mon code que j'avoue le cacher un peu haha, mais merci pour ton aide !

 

[Phil69970]

Bonjour à tous

Je te propose :

Sub Convertir()
With [AB4:AE12] '<== a adapter à ton cas car on voit pas grand chose sur l'image !!!!
    .NumberFormat = "General"
    .Value = .Value
End With
End Sub

@Phil69970

 

[Hasco]

Bonjour,

vous pouvez peut-être remplacer vos si imbriqués par :

Index($BM$12:$BM$42; Equiv(E4;$BN$12:$BN$42;0))

Cordialement