Ranger une valeur dans une cellule (débutant !)

Question

Bonjour,

Je suis actuellement en train d'écrire une macro, je suis dans une boucle et j'aimerais ranger les valeurs val dans une colonne tous les k lignes (k varie).

J'ai essayé les commandes suivantes qui ne marchent pas :

Cells(k, 20) = Val

Range("Tk").Offset(i - 1) = Val

Si quelqu'un a une idée...
Merci d'avance
Vincent

papaye976 · Answer

oui, une idée !!!

il faut affecter la propriété "Value" de la cellule:

Cells(k,20).Value = Val

Jette un oeil sur l'explorateur d'objet (barre d'outils ou F2) pour avoir la liste des méthodes et propriétés des objets VBA, en particulier sur la classe Range qui semble t'intéresser...

louvierseb · Answer

Merci mais ca ne marche pas... a mon avis le problème c'est le paramètre k, il ne le prend pas en compte.
Je cherche dans l'explorateur objet mais je n'ai pas trouvé mon bonheur...

Si quelqu'un d'autre voit une solution je le remercie de me l'écrire.
Merci d'avance
Vincent

papaye976 · Answer

public sub counting()
dim k as integer
    for k = 1 to 10
        activesheet.cells(k,1).value = k
    next k
end sub

qu'est-ce qui ne fonctionne pas ???

louvierseb · Answer

Ce qui ne va pas c'est que k ne croit pas de 1 en 1, mais il peut avoir les valeurs suivantes : 2, 5 , 15 , 25.
Donc je voudrais mettre la valeur val dans la colonne 20 dans les lignes qui ont les valeurs de k.
Je ne sais pas si j'ai été clair dans mes explications...

Merci

papaye976 · Answer

Il y a plein de solutions possibles, il est peut-être possible de trouver une formule pour exprimer k ou Val...
Dans l'immédiat tu peux utiliser ce code, et je te recommande de trouver un tutoriel VB et un cours sur la programmation et les algorithmes...

Voici le code:

public sub counting()
dim k as integer
dim tab as variant
    tab = array(2,5,15,25)
    for k = lbound(tab) to ubound(tab)
        activesheet.cells(tab(k),20).value = val
    next k
end sub

N'hésite pas non plus à taper F1 !!!

louvierseb · Answer

Non mais le problème c'est que k n'est pas fixé, il varie et il y en a une centaine. Donc je ne peux pas mettre tous les "k" codés en dur. Il faut que je l'intègre dans ma formule pour afficher val à la bonne place.
 
Un exemple qui ne marche pas :

public sub counting()
dim k as integer
Dim Val As Double

For i = 0 To Nb_Lignes
   k = Range("G7").Offset(i - 1)        'C'est là que j'obtiens mon k qui est entier   Range("Tk").Offset(i - 1) Val      'Je veux mettre val dans la colonne T et sur la kieme ligne> cette formule ne fonctionne pas
Next i

End sub

Ce cas n'est pas traité dans l'aide...
Merci d'avance !
Vincent

cnt · Answer

Salut 
Esssayes ces solutions

Range("T" & k).Offset(i - 1) = Val
OU
Range("T" & CStr(k)).Offset(i - 1) = Val

CNTJC

Ranger une valeur dans une cellule (débutant !)

7 réponses

Votre réponse

Discussions similaires