Bonjour,

J'ai un tableau de 480 lignes, et je voudrais seulement sélectionner les 8 premiers caractères de chaques cellules de la colonne A.

Pour cela, j'ai réalisé une macro, mais un message d'erreur s'affiche lorsque j'essaie de la générer : "Incompatibilité de type". La ligne qui pose problème semble être la suivante : "tableau = Mid(maChaine, 1, 6)".

Quelqu'un pourrait-il me dire où j'ai fait une erreur s'il vous plait?

Merci d'Avance.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim resultat As String
Dim tableau() As String
Dim i As Integer
Dim n As Integer
 
i = 1
While i < 432
i = i + 1
maChaine = Range("A" & i).Value
tableau = Mid(maChaine, 1, 6)
 
For n = 0 To UBound(tableau)
resultat = tableau(n)
Range("A" & i).Value = resultat
 
Next n
Wend