Transposition valeur non numerique

**arkange015** · 08/01/2010, 11h12

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

**Pierre Fauconnier** · 08/01/2010, 12h29

Bonjour

Dim blabla As Double

et

blabla = Sheets(1).Cells(i, 2).Value

imposent que la cellule contienne une valeur numérique...

Modifie la ligne de déclaration avec

Dim blabla As Variant

**arkange015** · 09/01/2010, 02h29

Re bonjour,

Et merci Pierre pour ta réponse. Cela fonctionne dorénavant.

J'ai maintenant de nouvelles cellules qui contiennent des commentaires que je souhaiterais trnasposais également.

Est-ce que quelqu'un connais la manip' de transposition d'un commentaire d'une cellule donnée.

Définir une variable "comment" marcherait-il?

**LeForestier** · 09/01/2010, 03h03

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
    Sheets("FeuilOuEstLeComment").Select
    Range("A10").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("OuCopier").Select
    Range("F9").Select
    ActiveSheet.Paste

A+