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

MAN

XLDnaute Occasionnel
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
 

patricktoulon

XLDnaute Barbatruc
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
1617446921406.png
 

Discussions similaires

Réponses
17
Affichages
337
Réponses
6
Affichages
247
Réponses
2
Affichages
403

Statistiques des forums

Discussions
297 994
Messages
1 964 952
Membres
200 778
dernier inscrit
ons123