bonjour,
Comment puis-je juxtaposer dans une cellule plusieurs valeurs choisie(s) dans une liste préalablement créee (par moi) ? c est à dire que j essaie de les faire se cumuler et non que la dernière choisie remplace la précédente <IMG SRC="/images/smiles/regular_smile46.gif">
Merci
plusieurs valeurs dans une cellule
Modérateur : Modérateurs
-
- Membre hyperactif
- Messages : 1991
- Enregistré le : 02 juin 2005, 23:00:00
- Localisation : Châlons en Champagne
Salut,
Certainement que tu y arriveras avec une macro, du style :
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1>' ADDITION A UN MONTANT EXISTANT
Sub AdditionDansCellule()
Set MaCellule = ActiveSheet.Range("a1:a1")
x = InputBox("MONTANT à CUMULER", "VALEUR à AJOUTER AU CUMUL")
NouvelleValeur = MaCellule + x
MaCellule.Value = NouvelleValeur
End Sub
<a href="http://www.smtechnologie.com/modules/ne ... e-590.html" target="_blank">http://www.smtechnologie.com/modules/ne ... 90.html</a> </FONT></TD></TR></TABLE>
Certainement que tu y arriveras avec une macro, du style :
<TABLE BORDER=0 ALIGN=CENTER WIDTH=85%><TR><TD><font size=-1><b>Citation :</b></font></TD></TR></TABLE><TABLE BORDER=1 CELLPADDING=10 BORDERCOLOR=#FF0000 ALIGN=CENTER WIDTH=85%><TR BGCOLOR=#F3F2F4><TD><FONT SIZE=-1>' ADDITION A UN MONTANT EXISTANT
Sub AdditionDansCellule()
Set MaCellule = ActiveSheet.Range("a1:a1")
x = InputBox("MONTANT à CUMULER", "VALEUR à AJOUTER AU CUMUL")
NouvelleValeur = MaCellule + x
MaCellule.Value = NouvelleValeur
End Sub
<a href="http://www.smtechnologie.com/modules/ne ... e-590.html" target="_blank">http://www.smtechnologie.com/modules/ne ... 90.html</a> </FONT></TD></TR></TABLE>
Qui est en ligne
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 6 invités