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

Kyirra

XLDnaute Nouveau
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) :

1630591183344.png


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

XLDnaute Impliqué
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

XLDnaute Nouveau
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 !
 

Discussions similaires

Réponses
2
Affichages
485