Discussion :

[jd717]

Bonjour à tous,

Etant complètement nul pour ce qui est des macros VBA sur excel (hormis avec le bouton enregistré), je sollicite votre aide
1/ comment transformer les données dans les colonnes C & D en nombre. Ici la liste fait 16 lignes mais cela peut-être très variable
2/ comment faire des calculs (moyenne/min/max) sur chaque de ces colonnes sachant que la aussi le nombre de lignes est variable

merci pour votre aide

---

Fichiers joints dans les discussions

---

[parmi]

Bonjour,

Voici une façon de faire avec la feuille1 active, sinon ajouter le nom de la feuille (Sheets("Feuil1").Range.....)

Code :

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

1
2
3
4
5
6
7
8
9
    Dim I As Long, nbLignes As Long
 
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
    For I = 4 To nbLignes
        Range("C" & I) = Range("C" & I) * 1
        Range("D" & I) = Range("D" & I) * 1
    Next
    Range("E4:E" & nbLignes).Formula = "La formule telle que tu l'écrirais en E4, mais en anglais et avec des virgules au lieu de points-virgules"

[jd717]

Bonjour,

Merci pour ton aide Parmi.
Malheureusement j'ai une erreur : Erreur d’exécution 13 - Incompatibilité de type

Peux-être car la multiplication est impossible sur Range("C" & I) car ce n'est pas un nombre ?

[parmi]

Effectivement, si ce ne sont pas des chiffres, ça pourrait planter.
On peut vérifier avant

Code :

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

1
2
3
4
    For I = 4 To nbLignes
        If IsNumeric(Range("C" & I)) then Range("C" & I) = Range("C" & I) * 1
        If IsNumeric(Range("D" & I)) then Range("D" & I) = Range("D" & I) * 1
    Next

[jd717]

cela n'a pas d'effet.
Je pense que je vais plutôt m'orienter vers une conversion des . en ,
avec l'outil remplacer ca fonctionne, je vais essayer de trouver une macro pour faire cela

[parmi]

C'est donc dire que tes nombres ne sont pas reconnu comme tels par Excel (Windows)
Utilise l'enregistreur de macro pour remplacer les "."

Code :

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

Columns("C").Replace ".", ","