XL 2010 convertion d'un code 32 bits en 64 bits

[MAN]

Bonjour le forum bonjour a tous
j'ai deux codes qui fonctionnent très bien en 32 bits. j'ai converti en 64 bits et ça ne marche plus.
je voudrai votre aide.
Private Sub CommandButton1_Click()

With ActiveSheet 'codename(Feuil1)

For I = 0 To Me.ListBox1.ListCount - 1

L = Me.ListBox1.List(I, 2)

.Range("S" & L) = Me.ListBox1.List(I)

.Range("T" & L) = Me.ListBox1.List(I, 1)

Next

End With

Me.ListBox1.Clear

'Bouton Annuler

Unload UserForm1

End

End Sub

Private Sub CommandButton4_Click()

With ActiveSheet 'codename(Feuil1)

For I = 0 To Me.ListBox1.ListCount - 1

L = Me.ListBox1.List(I, 2)

.Range("S" & L) = Me.ListBox1.List(I)

.Range("T" & L) = Me.ListBox1.List(I, 1)

Next

End With

Me.ListBox1.Clear

'Bouton Annuler

Unload Me

UserForm1.Show

Me.MultiPage1.Value = 1

End Sub

 

[fanch55]

Bonjour,
Au visu , aucun problème dans le code , aucune adhérence au 32 ou 64 bits .
Un classeur exemple serait le bienvenue .

 

[patricktoulon]

bonjour
perso je vois pas le rapport entre le 32/64 bit dans ton code
si ça déconne c'est du coté de tes variables que ca ne vas plus
et met le code entre balise code dans ton post la prochaine fois

 

[dysorthographie]

Bonjour,
Dans VBA vas dans
Menu=>Outil=>Références et décoche les librairies manquantes s'il y en a!

Je pense notamment à Vidual Basic for Application.