Discussion :

[le-guedin]

Bonjour à tous

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

/!\ 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 ?

[le-guedin]

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

[keygen08]

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

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

[le-guedin]

Merci Keygen08 ça fonctionne du tonnerre

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