Discussion :

[BlackMountain]

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 : exempleforum.xlsm

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

Code :

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

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 .

BlackMountain

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

[BlackMountain]

Bonjour,

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

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?

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

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

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

[casefayere]

A TESTER

Code :

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

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