Problème de variables? [VBA]

Bonjour,

J'effectue un programme vba avec bouton de commande, j'ai 2 cellules qui contiennent les valeurs k et l, ensuite je souhaite affecter les valeurs des cellules "Bk" et "Bl" à 2 autres variables : respectivement "valavant" pour Bk et "valaprès" pour Bl.

Cependant lorsque j'effectue le code j'ai une erreur d'exécution 1004 sans comprendre d'où ça vient.

Merci d'avance

Dim k As Integer
Dim l As Integer
Dim valavant As Integer
Dim valaprès As Integer

'affectation valeurs de k et l
k = Worksheets("result").Range("R20").Value
l = Worksheets("result").Range("R31").Value
'affectation de valavant et valaprès
valavant = Worksheets("result").Cells(k, 2).Value
valaprès = Worksheets("result").Cells(l, 2).Value

salut

aucune raison que ton code bug

tu as quoi dans les cellules : Worksheets("result").Cells(k, 2).Value

évite les accents dans les noms des variables

fournit nous un fichier très simple avec ton code qui bug

a plus

Dans les cellules "Bk" et "Bl" j'ai des nombres compris entre 0 et 38.78681215

Ah donc la variable n'est pas une Integer? il faut que je mette Single?

Bonsoir

Integer = Entier

Single = Simple

Double = Double

Il faut revoir la définition des variables

Oui merci beaucoup!

ça marche maintenant d'autant plus que je m'étais trompé de feuille dans le classeur... (le boulet)

Maintenant j'en suis à ma dernière étape de mon programme :

Je veux mettre la valeur valavant dans la plage de cellules "B2:Bk"

et je veux mettre la valeur valaprès dans la plage de cellules "Bl:B2306"

Je fais le code suivant :

Dim k As Integer
Dim l As Integer
Dim valavant As Single
Dim valapres As Single
Dim i As Integer
Dim j As Integer

'affectation valeurs de k et l
k = Worksheets("boutons commande").Range("R20").Value
l = Worksheets("boutons commande").Range("R31").Value
'affectation de valavant et valaprès
valavant = Worksheets("boutons commande").Cells(k, 2).Value
valapres = Worksheets("boutons commande").Cells(l, 2).Value

'remplacement des valeurs avant
For i = 2 to k Worksheets("boutons commande").Cells(i,2)=valavant.Value Exit For
'remplacement des valeurs après
For j = l to 2306 Worksheets("boutons commande").Cells(j,2)=valapres.Value Exit For

Mais j'ai une erreur de syntaxe dans ma boucle For...

liche67 a écrit :

Mais j'ai une erreur de syntaxe dans ma boucle For...

Ah bon

Commence par apprendre les bases avant de vouloir coder à tout va

Petite recherche google : Excel VBA boucle for

Bonne nuit

Ok c'est bon j'ai compris, mon "programme" marche maintenant!

Place à l'apéro!

Bien à vous!