EXCEL VBA - Addition de cellule et de variable ! - VB/VBA/VBS - Programmation
MarshPosté 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
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