Macro nombre lignes variable

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

---

Bonjour,

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

Code:

---

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"

---

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 ?

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

Code:

---

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

---

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

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:

---

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

---

nouveau problème : le point n'est pas remplacé par une virgule mais la valeur affichée correspond à la valeur initale multiplié x 10^14 !!!
par ex 1.54 devient 154 000 000 000 000

le je suis vraiment perdu

Comment es-tu arrivé à ce résultat ?
Par macro ou en utilisant l'outil Remplacer ?
De quel type sont les cellules ? Texte, Standard, Nombre ?

Bonjour à tous,

Je n'ai pas tout lu, mais, j'ai redécouvert dans mon aide de VBA quelque chose qui pourrait peut-être vous intéresser:

Citation:

---

Référence du développeur Excel
Application.DecimalSeparator, propriété
Cette propriété renvoie ou définit le caractère utilisé en tant que séparateur décimal comme un objet de type String. En lecture-écriture.
Syntaxe

expression.DecimalSeparator

expression Variable qui représente un objet Application.

Exemple


Cet exemple montre comment placer « 1,234,567.89 » dans la cellule A1, puis comment changer les séparateurs système en tirets pour les séparateurs de décimales et de milliers.

Visual Basic pour Applications
Sub ChangeSystemSeparators()

Range("A1").Formula = "1,234,567.89"
MsgBox "The system separators will now change."

' Define separators and apply.
Application.DecimalSeparator = "-"
Application.ThousandsSeparator = "-"
Application.UseSystemSeparators = False

End Sub

---

Mes cellules ont un format texte.
Lorsque le rechercher/remplacer se fait via excel directement, pas de problème le . et bien remplacé par une , et le contenu des cellules est bien reconnu en tant que nombre
Mais lorsque cette même manipulation se fait via une macro, il n'y a plus un changement . par , mais une multiplication par 10^14

Bonjour,

montre nous ta macro de remplacement entre balises de codes : [code] [/code]

et aussi une exemple de texte à convertir en nombre ..

Bonjour,

Au cas où cela serait utile, j'ai redécouvert ceci dans mon aide de VBA:

Citation:

---

Référence du développeur Excel
Application.DecimalSeparator, propriété
Cette propriété renvoie ou définit le caractère utilisé en tant que séparateur décimal comme un objet de type String. En lecture-écriture.
Syntaxe

expression.DecimalSeparator

---