Modification des chiffres en textes / Programme non compatible Windows 64 bit

Bonjour à tous :P

Actuellement j'ai un autre piège ... si on veut
J'ai dans mon tableau une colonne avec des chiffres provenant de sharepoint, mais il faut les traduires en texte jusque la ça va à peu près :D

/!\ Résolu /!\ Mon soucis j'arrive à lui faire comprendre la première fois mais la seconde fois ça plante je sais pourquoi je l'ai rajouté dans le code mais je sèche aussi sur ça

____________________________________________________________________________________________________________________________

par contre ici je suis encore sur le terrain

Après j'ai encore un soucis avec mon tableau excel il est uniquement compatible avec du 32 bit et plante sur du 64 bit j'ai entendu dire qu'il y avait la même chose pour les 2 versions ( je l'ai mis dans le code aussi )

Je viens de trouver quelque chose sur le forum à propos de 32 et 64 bit

http://arkham46.developpez.com/artic...ice/vba64bits/

Dit moi si le code sur 100 lignes doit être inclus dans le vba ?

Dite moi si le classeur vous pouvez le visualiser si vous faite l'extraction ???

Bonjour
Le classeur s'ouvre correctement donc reponse a placer sur la feuille

Code:

---

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

Private Sub Worksheet_Activate() Dim cell As Range Dim r As String   num = Range("f65000").End(xlUp).Row For Each cell In ActiveSheet.Range(Range("f3"), Range("f65000").End(xlUp)) r = cell.Address(0, 0) If cell.Text = "1" Then Range(r).Value = "Mini" Else If cell.Text = "2" Then Range(r).Value = "Moyen" Else If cell.Text = "3" Then Range(r).Value = "Haut" Else If cell.Text = "4" Then Range(r).Value = "Critique" End If End If End If End If Next cell   End Sub

---

Voila, voila

Merci Keygen08 ça fonctionne du tonnerre :ccool:

Tu me sors aussi une bonne épine du pied !!