Bonjour à tous,

Je bute depuis un certain temps sur la transposition d'une colonne de cellule non numérique c'est-à-dire rempli par du texte.

L'objectif de mon code est de transposer chaque cellule vers un onglet différent.

Mon code fonctionne avec des chiffres / valuers numérique mais plante lorsque les cellules sont remplies de texte.. ???

Voici le code:

Le bug est une "incompatabilité de type" apparemment:

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
 
Sub calcul()
 
 
Dim i As Integer
Dim j As Integer
Dim blabla As Double
 
 
j = 2
 
ThisWorkbook.Activate
 
For i = 5 To 10
    blabla = Sheets(1).Cells(i, 2).Value 'Le code plante ici
    Sheets(j).Select
    Range("C" & 8) = blabla
    j = j + 1
 
Next i
 
End Sub
Si quelqu'un peut me renseigner ou a déjà été amené à résoudre ce genre de problème merci beaucoup.

A bientôt

arkange