Discussion :

[linooo]

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

[linooo]

Bonjour,

J'ai modifié le code (j'utilise désormais tableau = Left(maChaine, 6)) mais bien sûr le problème demeure :

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 = Left(maChaine, 6)
 
For n = 0 To UBound(tableau)
resultat = tableau(n)
Range("A" & i).Value = resultat
 
Next n
Wend

[ucfoutu]

Bonsoir;

Trois petites questions sur lesquelles je te demande de t'interroger :

1) que signifie pour toi cette déclaration :
Dim tableau() As String
(un indice : tu trouveras la réponse dans ton aide en ligne, sur le mot Dim !)

2) maintenant que tu sais ce qu'est un tableau dynamique (si tu as consenti à lire...)
que serait pour toi :
tableau = Mid(maChaine, 1, 6) ?

3) et que serait le Ubound d'un tableau sans dimensions ?
(ouvre donc ton aide en ligne sur le mot Ubound)

Tu feras plaisir à tout le monde si tu reviens avec une question en harmonie avec ces petites choses essentielles (à apprendre dans l'aide en ligne) - au moins non contradictoires ...
Tu seras le bienvenu à ton retour.
Un conseil : essaye de commenter ton propre code pour voir ce que tu y écrirais comme ecplications ... ... cela devrait t'aider à "mesurer" les cohérences et incohérences ... (j'en suis certain).

Bonne continuation...

PS : à tiout hasard (je crois deviner mais n'en suis pas certain) : regarde ce que te donne ton aide en ligne consultée sur le mot Split.

[linooo]

Bonjour ucfoutu,

Ce code semble mieux fonctionner :

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
18
19
20
21
22
23
24
25
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2007-09-10 par BoissinT
'
 
Dim resultat As String
Dim tableau() As String
Dim maChaine As String
Dim i As Integer
Dim n As Integer
 
i = 1
While i < 432
i = i + 1
maChaine = Range("A" & i).Value
resultat = Left(maChaine, 6)
 
Range("A" & i).Value = resultat
 
Next n
Wend
 
'
End Sub

J'avais réalisé il y a quelques temps une macro avec : tableau=split... et j'ai voulu réadapter cette macro pour celle-ci. Je ne te cache pas que ej en comprends pas tout à fait à quoi sert exactement ubound? Faire la boucle sur un tableau non ? En ce qui concerne split, je m'en était servi pour supprimer les caractères d'une chaine après un espace...

Quel était le problème de ma précédente maco?


Merci d'Avance.

[LeForestier]

Bonsoir,
Tu demande où ça va pas... ça va nulle part
Je vais quand même ajouter un petit exemple pour tronquer le contenu des cellules de ta colonne A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim i as integer
dim Tableau(1 to 431) as Variant 'je sais pas ce que tu a dans ta colonne
   sheets("feuil1").select
   On Error Resum Next ' si une des cellules a moins de 8 caractères
 
   For i = 1 to 431 'puisque tu veux allez jusque la ligne 431 ?
 
     'si tu veux que l'affichage de la colonne A soit changer
      cells( i , 1 ).Value = mid(cells( i , 1 ).Value ,1,8)
 
      'Si tu veux avoir les données dans un tableau
      Tableau(i) = mid(cells( i , 1 ).Value ,1,8)
 
   next i

Avec ça tu a les deux solutions, supprime celle qui ne convient pas
et en plus tu peu un peu cogité pour comprendre le code.
A+

[grrimag]

Salut,

comme le dit si bien ucfoutu, tu devrais vraiment jeter un oeil aux tableaux dynamiques, ça t'éviterais de faire des erreurs de ce type et de perdre du temps.
Au passage, ta seconde version marche bien, mais pas parce que tu as corrigé le problème, simplement tu ne te sers plus de ta variable tableau...