Discussion :

[Slysio]

Bonjour,

Tout d'abord j'utilise la version d'excel 2010.

Je suis nouveau dans l'univers du code sur VBA et j'ai tenté de créer une macro qui me permettrait de prioriser les lignes d'une base de données en fonction de certaines donnée de cet base.

Cette base de donnée est extraite du logiciel Business Objecti XI en format excel.

Je ne peux, pour des raisons de confidentialités vous transmettre cette base de donnée. Cependant j'ai fait un copier coller de 6 lignes et j'ai supprimé la plupart des infos dont on n'avait pas besoin. Seul les infos nécessaires sont présentes.

Quand j'exécutais la macro prio sur mon fichier d'origine j'avais un problème d'incompatibilité 13 quand j'arrivais sur la ligne PPm = Cells (i, 26)

Et il s'avère que quand j'ai fait mon petit fichier avec mes 6 lignes copier coller sur un autre excel la j'avais plus ce problème car rien ne se passe.

Je vous joint mon fichier en pièce jointe. Des idées ?

En vous remerciant d'avance si vous prenez le temps de m'aider .

[parmi]

Bonjour,

Comme je n'ouvre pas les fichiers avec macros, je vais y aller de supposition.
Ta variable PPm est possiblement déclarée comme un numérique (Long, Double,...) et ta cellule est possiblement en texte.
Si c'est le cas, il te faut changer le format (casting)

Code :

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

1
2
PPm = CLng(Cells (i, 26)) 'si c'est un Long
PPm = CDbl(Cells (i, 26)) 'si c'est un Double

[Daniel.C]

Bonjour,

Ton code se débranche tout de suite, parce que la condition :

Code :

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

Do While Cells(i, 1).Value <> ""

nest pas remplie. Sinon, l'erreur est certainement due à une cellule non numérique.

Remplace :

Code :

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

PPm = Cells(i, 26) 'Nbr de ppm

par :

Code :

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

1
2
3
4
5
    If IsNumeric(Cells(i, 26)) Then
        PPm = Cells(i, 26) 'Nbr de ppm
    Else
        MsgBox "la cellule " & Cells(i, 26).Address & " n'est pas numérique"
    End If

[Slysio]

Bonjour,

Tout d'abord merci pour vos réponses !

Je viens d'essayer ton code :

Code :

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

1
2
3
4
5
If IsNumeric(Cells(i, 26)) Then
        PPm = Cells(i, 26) 'Nbr de ppm
    Else
        MsgBox "la cellule " & Cells(i, 26).Address & " n'est pas numérique"
    End If

Et effectivement il me met que la cellule est non numérique. Une idée de comment la rendre numérique ?

[Daniel.C]

Si tu as, par exemple, "toto" dans la cellule, il n'y a que toi qui sache ce qu'il faille faire. Peut-être mettre "0" ?

[parmi]

La rendre numérique n'est pas nécessairement important... tout dépend de l'utilisation que tu veux en faire.
Le casting avec CLng, CDbl, Csng,...(voir l'aide) peut servir quand tu transfères ces nombres dans des variables.
Si tu veux vraiment changer les chiffres en numériques, crée une boucle qui passe toutes tes cellules et multiplie les numérique par 1 avec la même méthode: If IsNumeric()

[Slysio]

D'accord.

Pour être plus clair, je récupère un fichier excel avec la colonne U :



Et mois je veux récupérer le 0.42 par exemple de la première ligne donc la je fais un gauche(U2;4) pour avoir la colonne Z. Et cette colonne Z me sert pour la macro car j'ai besoin du 0.42 pour le comparer pour pouvoir prioriser mes lignes.

[parmi]

Si ton séparateur de décimale normal est la virgule, il te faut changer les points par des virgules.

Code :

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

Columns("U").Replace(".", ",")

Il faudra voir si ton format de cellule est Texte ou Standard ...mais normalement tu devrais te retrouver avec des chiffres