Discussion :

[krysss]

Bonjour tout le monde,

Je vous explique mon petit problème, alors j'ai une macro qui me récupère des points de courbes qui sont dans des fichiers textes que j'ai auparavant exporté.
Tout ce passe bien, jusqu'au moment ou j'ai un problème de type je pense car j'utilise aussi un pas de fréquence qui correspond aux points de ma courbe.

Voici 3 lignes de mon code :

Range("C10") contient 1,25

Code :

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

1
2
3
Dim PasDeFreq As Single
PasDeFreq = Range("C10").Value
ActiveCell.FormulaR1C1 = "=R[-1]C+" & PasDeFreq

Mon problème c'est que lorsque j’exécute mon code, la dernière ligne bloque, il ne fait pas l'addition car je pense qu'il n'aime pas "1,25" mais qu'il préfère "1.25" (avec un point). Donc quand dans ma liste déroulante je remplace par "1.25" cette fois c'est le "PasDeFreq = Range("C10").Value" qui bug car il ne le considère plus comme une valeur.
Et lorsque je mets Dim PasDeFreq As String cela ne fonctionne pas non plus...

Je ne sais pas quoi faire, je ne veux pas toucher au paramètres du logiciel pour remplacer les points pas des virgules donc je suis perdu... J'espère que vous avez réussi à comprendre mon problème et que vous pourrez m'aider

[Invité]

Code :

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

1
2
3
Dim PasDeFreq As Single
PasDeFreq = Range("C10").Value
ActiveCell.FormulaR1C1 = "=R[-1]C+" & CDbl(PasDeFreq)

[krysss]

Tout d'abord merci pour ta réponse rapide, mais malheureusement le problème reste inchangé

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Test()
Dim PasDeFreq As Single
PasDeFreq = Range("C10").Value
ActiveCell.FormulaR1C1 = "=R[-1]C+" & ConverNumerique(PasDeFreq)
end sub
 
Function ConverNumerique(v) As Double
Dim n As String
 
n = Replace("" & v, ",", ".")
If IsNumeric(n) = True Then ConverNumerique = n: Exit Function
n = Replace("" & n, ".", ",")
If IsNumeric(n) = True Then ConverNumerique = n: Exit Function
End Function

[krysss]

Merci encore une fois pour cette réponse.

Je ne suis pas très fort en VBA mais j'ai copié votre code et ça ne fonctionne toujours pas. Juste pour en être certain, je n'ai pas besoin de remplacer le "v" de ConverNumerique(v) par PasDeFreq ou autre chose ?

Sinon si je n'ai rien à changer dans le code, je l'ai testé avec "1,25" et le code bloque encore à la ligne "

Code :

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

ActiveCell.FormulaR1C1 = "=R[-1]C+" & ConverNumerique(PasDeFreq)

" (Erreur définie par l'application ou par l'objet).

Et j'ai aussi essayé avec "1.25" et le code bloc à la ligne "

Code :

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

PasDeFreq = Range("C10").Value

" (Incompatibilité de type)

Cela ne fonctionne toujours pas

[Invité]

si je fait ça j'ai colonne.active + 2

Code :

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

ActiveCell.FormulaR1C1 = "=R[-1]C+" & 2

si je fais ça j'ai valeur.vative+2

Code :

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

ActiveCell.FormulaR1C1 = "=R[-1]+" & 2

ce ne serait pas ça l'erreur?