EXCEL VBA - Addition de cellule et de variable !

EXCEL VBA - Addition de cellule et de variable ! - VB/VBA/VBS - Programmation

Marsh Posté le 17-02-2008 à 11:14:19    

Bonjour a tous, voila aprés avoir obtenu ce prog par l'excellent dreameddeath, je ne parviens pas a l'adapter à mon application !!
Merci a ceux qui pourront me renseigner ou m'orienter.
Bon courage
 
 
Sur un userform, on choisit le nom d'un FRUIT, ensuite une COULEUR et enfin on attribu une NOTATION (chiffre).
Dans le tableau excel cette "NOTATION" est imputée au croisement de la colonne (fruit) et de la ligne (couleur).
 
Dim cell_col as Range
Dim cell_ligne as Range
 
Set cell_col = ActiveSheet.Range("A1:T1" ).Find(Fruit)
Set cell_ligne = ActiveSheet.Range("A1:A70" ).Find(Couleur)
if(cell_col is nothing or cell_ligne is nothing) then
     MsgBos("erreur" )
     Exit Sub
Else
    ActiveSheet.Cells(cell_ligne.row,cell_col.column) = NOTATION
end if
 
 
MAIS je "voudrais" que la valeur de NOTATION vienne s'additioner avec la valeur déja en place dans la cellule...
 
Est ce bien clair !!!!!!!     moi me je me comprend mais .......   ;)  
 
Merci à tous


Message édité par geraldao59 le 17-02-2008 à 13:08:28
Reply

Marsh Posté le 17-02-2008 à 11:14:19   

Reply

Marsh Posté le 19-02-2008 à 11:24:07    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed