Discussion :

[rob1son76]

Bonjour,

Je travail sur des BDD de questionnaire de satisfaction.
Afin de vérifier les codes de chaque question (ici colonne), j'ai fait une macro qui fait une liste exhaustive (La casse prise en compte) de chaque colonne dans une nouvelle feuille avec leur effectifs (Dédoublonnage par colonne et comptage).

Ma macro fonctionne parfaitement sauf pour les nombres stocké sous format txt.
En faite elle marche puisque si dans une colonne j'ai le nombre 6 (stocké en nombre) et 06 (stocké en txt), je me retrouve dans ma liste exhaustive avec deux 6. L'un avec les effectifs de celui stocké en nombre et l'autre avec celui stocké en txt.
Moi je voudrai que le 6 stocké en txt reste dans ma liste exhaustive stocké en txt et donc qu'il s'affiche 06 au lieu de 6.

Comment je peux faire?

Il faudrait que j'arrive a savoir si la valeur de la cellule est un nombre (ca facile) stocké en txt (ca je ne sais pas).
Et si oui, faire en sorte que ma la valeur dans ma liste exaustive soit un nombre stocké en txt.

Merci de votre aide.

[Docmarti]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub tt()
Set c = Cells(1, 1)
c.NumberFormat = "@"
 
c.Value = "06"
 
If IsNumeric(c.Value) Then
 If TypeName(c.Value) = "String" Then
  MsgBox "Stocke en Texte " & c.Value
 End If
End If
End Sub

[Quentin77170]

Je ne sais pas si tu connais les fonctions de conversion de données :
Celles qui pourraient t'intéresser :

→CStr(valeur) (convertit une valeur (nombre, booléen, date) en texte)
→CInt(string) (convertit une string en nombre entier. Voir CSng pour single, CDbl pour double, CLng pour long, etc)
Bien sûr, il faut dans le cas des CInt et autres que la string puisse être acceptée en tant que nombre ! Sinon erreur N'hésite pas du coup à faire quelque chose comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim StringExemple As String
Dim Nombre As Integer
 
StringExemple = "06"
 
If IsNumeric(StringExemple) Then
    Nombre = CInt(StringExemple)
Else
    Msgbox "La valeur " & StringExemple & " ne peut pas être convertie en nombre entier."
End If

N'hésite pas non plus à jouer avec le format, exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim ValeurTest
ValeurTest = 6 'donc ici ce sera bien un nombre
If IsNumeric(ValeurTest) Then ValeurTest = Format(ValeurTest,"00") 'ici ValeurTest devient une string : "06"
MsgBox ValeurTest 'juste pour vérifier...

Je ne sais pas si ça peut t'aider, je dis ça comme ça

[Docmarti]

Lorsque tu transf'ères une donnée dans une autre cellule, il est important, pour que la donnée ne soit pas modifiée par Excel, d'utiliser la fonction COPY ou, sinon, il faut bien définir la propriété NumberFormat de la cellule destination avant d'y écrire la valeur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tt()
 Set c = Cells(1, 1)
 
If IsNumeric(c.Value) Then
 If TypeName(c.Value) = "String" Then
 Cells(1, 2).NumberFormat = "@"
Else
 Cells(1, 2).NumberFormat = "General"
End If
  Cells(1, 2).Value = c.Value
 End If
 
End Sub