Format de Cellule non reconnu

Version imprimable

12/07/2016, 15h16
BlackMountain

1 pièce(s) jointe(s)

Format de Cellule non reconnu
Bonjour le forum ;),

Ce post fait suit à mon problème évoqué ici : http://www.developpez.net/forums/d15...ecution-sumif/.

J'ai donc assimilé le fait que la fonction SumIf ne pouvait fonctionner qu'avec des formats de cellule cohérents. J'ai mis en place le fichier test suivant :

Le fichier .xlsm avec l'exemple : Pièce jointe 215273

Même en plaçant ce bout de code pour avoir un format de cellule cohérent, ça ne fonctionne pas :
Code:

1 2 3 With Range(Cells(27, 1), Cells(33, 1)) .NumberFormat = "General" End With
Ca fonctionne si je vais manuellement sélectionner la cellule, si je simule une modification de la valeur et ressort de la cellule. (La valeur se décalle alors à droite de la cellule).

Avez-vous une piste? Je bloque une nouvelle fois pour reforger mon code de manière plus simple :D.

BlackMountain
12/07/2016, 16h19
parmi

Bonjour,

Où est-ce que tu as mis ce bout de code ? dans quel événement ou macro ?
Si tu l'as mis dans Worksheet_Change, c'est normal que l'action se passe lorsque tu édites la cellule...
12/07/2016, 16h28
BlackMountain

1 pièce(s) jointe(s)

Bonjour,

Le Code est placé dans le fichier que j'ai appelé exempleforum.xlsm. Je le replace dans ce message :
Pièce jointe 215283

Il est visible dans l'arborescence de VBA dans VBAProject / Modules / SumIf.
Si la macro est lancée, débuggage, la variable "NeFonctionnePas2" garde la valeur 0.

Qu'est-ce que le WorkSheet_Change?
12/07/2016, 16h40
parmi

Je n'ouvre pas les fichiers avec macro... désolé...

Worksheet_Change est un événement de la feuille qui est appelé quand on modifie la valeur d'une cellule.
On retrouve cet événement dans le code des feuilles ou encore dans la section ThisWorkbook (avec un nom quelque peu différent)
12/07/2016, 17h02
BlackMountain

Si tu n'ouvres pas les fichiers avec macro c'est dû à une potentielle présence de fichiers malveillants?

Rien n'a été mis dans la section ThiWokBook, qui est bien présente dans "Microsoft Excel Objects" qui est au même niveau hierarchique que "Modules".

Du coup, comment te présenter un fichier sur lequel travailler et résoudre le problème? Est-ce que ça fonctionnerai avec un fichier .xls?
12/07/2016, 17h27
parmi

xls ou xlsm sont de même nature.
On n'a pas idée de ce qu'on peut faire avec des macros... ;)

J'ai déjà fait un petit fichier bidon pour les collègues du bureau avec un message de destruction de leurs fichiers dès l'ouverture et un autre message expliquant la blague, bien sûr...
J'ai entendu les rires un peu partout sur l'étage :)
Quand je serai à la maison, on verra...

Si tu exposais clairement ce qui va et ne va pas ?
Ce que je crois comprendre, c'est que tes données ne sont pas des nombres mais du texte.
D'une part d'où proviennent ces chiffres en texte ? on pourrait peut-être régler le problème à la source
Sinon, un boucle de ta zone et, après avoir changé le format des cellules, faire un Cells(i,j) = Cells(i,j) * 1 ou Cells(i,j) = CDbl(Cells(i,j)
12/07/2016, 18h03
BlackMountain
En effet, je n'ai pas idée :roll:. J'ai quelques bases de programmation et je me lance dans le VBA pour le boulot. C'est passionnant et je découvre beaucoup d'astuces au fur et à mesure, après avoir grenouillé et m'être confronté à des obstacles plus ou moins grand.

Pour comprendre :
J'ai un tableau de donnée issu d'un TCD. J'extrais ce tableau pour pouvoir faire une "photo" du tableau obtenu et récupérer l'autorisation de modifier les valeurs dedans. Le format des cellules ainsi obtenu est de type Personnalisé et non modifiable à l'extraction (fichier de boulot... :?).
Par conséquent, pour faire fonctionner une fonction sous VBA de type :

Code:

Application.SumIf(...)

Il me faut modifier le format de mes cellules. Je l'ai fait via ces quelques lignes de code :
Code:

1 2 3 With Range(Cells(12, 1), Cells(18, 1)) .NumberFormat = "General" End With
Seulement même en ayant lancé ce code, j'obtiens un résultat erroné.

Je me suis aperçu qu'en effectuant une action directe dans la cellule (en entrant cliquer sur le valeur avec la souris) la valeur se décalait dans la cellule et la fonction SumIf fonctionnait.

Avec tes propositions, j'ai pu constater qu'un Cells(i, j) = CLng(Cells(i, j)) pourrait suffire, je n'ai pas nécessité pour mes données de convertir en Double.

Ma problématique après ton dernier message est d'adapter cette formulation à un With .. End With. Je n'ai pas trouvé en Googlant d'exemples compréhensibles ou applicables.

Tu pourrais boucler

Code:

1
2
3
4
5
6
 
Dim I as long
For I = 12 to 18
   Cells(i, 1).Numbeformat = "general"
   cells(i, 1) = CLng(Cells(i, 1))
Next

12/07/2016, 21h21
BlackMountain

Oui tout à fait, en voilà une solution qui fonctionne ! :D

Question : Le fichier et le code était là à titre d'exemple. Dans les faits, j'ai une feuille qui fait 37000 lignes. Donc une boucle de 37000 lignes. Existe-t-il une solution pour optimiser la fonction par une sélection de plage? Parce que le CLng ne s'applique qu'à des valeurs et du coup chaque ligne doit être "visitée".

En tout cas merci ;)

A TESTER

Code:

1
2
3
4
5
6
7
8
9
10
Sub essai()
Dim Tb, Dcel As Range
With Sheets("Feuil1") 'à remplacer par le vrai nom
  Set Dcel = .Range("A" & .Rows.Count).End(xlUp) 'voir pour la bonne colonne
  Tb = Range("A2", Dcel) 'idem que ci-dessus
  .Range("A2", Dcel).Clear
  .Range("A2", Dcel).NumberFormat = "general"
  .Range("A2").Resize(UBound(Tb, 1), 1) = Tb
End With
End Sub

Et si ça ne suffit pas, on transite par un deuxième tableau

Avec ceci, 40 000 lignes sur une colonne en 6 secondes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Changevaleur()
    Dim I As Long, nbLignes As Long
    Dim Temps As Single
 
    Temps = Timer
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    For I = 1 To nbLignes
        If IsNumeric(Range("A" & I)) Then
            Range("A" & I).NumberFormat = "general"
            Range("A" & I) = CLng(Range("A" & I))
        End If
    Next
 
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    MsgBox Round(Timer - Temps, "0.00") & " secondes"
End Sub

De là l'importance de savoir d'où proviennent ces valeurs texte et voir si elles ne pourraient pas être inscrites en valeurs numériques dès le début...

Méthode rapido-rapide pour transformer une colonne (ici la 1ere)
À tester...

Code:

1
2
3
4
    Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True

Bonjour,

Ou bien :

Code:

1
2
3
With [A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row)
    .Formula = .Formula
End With

eric

13/07/2016, 09h41
BlackMountain

Bonjour le Forum :D,

Voici un sujet dont le problème est résolu, j'ai pu introduire la fonction dans la procédure With .. End With. Je suis donc super content et je vais pouvoir passer au jalon suivant :lol::lol:.. Nouveau sujet en perspective sur le forum :?.

Merci à tous, je comprends mieux les fonctions qui ont été utilisés, le fait que l'on puisse réaliser une action via des boucles et des alternatives ;).

@parmi : je comprends bien l'intérer d'extraire à la base un fichier avec des cellules au format adapté. Malheureusement, ça ne dépend pas de moi et je dois faire avec ce que j'ai.. Et ça fonctionne grace à vous!

Black Mountain