remplire un tableau par USF

[Isabelle]

BONSOIR
je cherche a remplir le tableau par un Userform
incrementé la somme dans le tableau en fonction des 2 lisbox
un le numero de la ligne ( colonne A)
deux la colonne A.B.C.D.E.F.G

Merci de votre aide
bonne soirée NOTA je reste en ligne [file name=H.zip size=10927]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/H.zip[/file]

 

[Ashaar]

Bonjour,
Si j'ai bien compris, cela pourrait donner ça :

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Private Sub CommandButton2_Click()
Lig = ComboBox1.Value + 1 '1 devient 2
ColNum = Asc(ComboBox2.Value)
ColText = Chr(ColNum + 1) 'A devient B
Range(ColText & Lig) = TextBox1.Value
End Sub

Private Sub UserForm_Initialize()
For i = 1 To 20 '1 à 20
ComboBox1.AddItem i
Next i

For l = 65 To 75 ' A à K
ComboBox2.AddItem Chr(l)
Next
End Sub

 

[Isabelle]

MERCI pour ta reponse

ça marche super sauf que dans les cellule je voudrai incrémenté les sommes

merci encore

 

[_Thierry]

Bonjour Isabelle, Ashaar, le Forum

Pour incrémenter les sommes dans la cellule de destination, change le code du CommandButton2 par celui-ci :

Private Sub CommandButton2_Click()
Dim Lig As Byte, ColNum As Byte, ColText As String

Lig = ComboBox1.Value + 1 '1 devient 2
ColNum = Asc(ComboBox2.Value)
ColText = Chr(ColNum + 1) 'A devient B

    If IsNumeric(TextBox1.Value) Then
        Range(ColText & Lig) = Range(ColText & Lig) + TextBox1.Value
    Else
        TextBox1 = 'Num Only'
    End If
End Sub

Bon Appétit
@+Thierry

 

[Isabelle]

Merci Thierry

ça Marche super

bonne journée a toi
encore merci :kiss: :kiss:

 

[Ashaar]

Coucou,

Il y a t'il un avantage à déclarer les variables comme 'Byte' plutôt que 'Integer' ?

 

[Isabelle]

rebonjour

dans mon USF pour le combobox
Private Sub UserForm_Initialize()
For i = 2 To 20 '1 à 20
ComboBox1.AddItem Range('A' & i)
Next i

comment p ton cache les cellules vide pour l'affichage des infos

merci

 

[G.David]

Salut
Je suis parti dejeuner et quand je reviens tou est répondu . je te joint qd meme ce qu j'ai fait à noter que la propriete rowsource plante sur les Mac avec XL 2004
cordialement
G.David [file name=H_20050407152100.zip size=9496]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/H_20050407152100.zip[/file]

 

[G.David]

Salut
l'avantage est qu'une variale Byte sers pour les entiers jusqu'a 255 le codage employé est moins goumand en ressource . si tu te sers d'un PC dernier cri OUAHou !!! pour des jeux ça ne se sentira pas par contre si tu le PC cri de Tarzan encore en noir et blanc un peu comme le mien :ROGNITUJUdediou on touche à l'essentiel
par contre si tu dévellope sans savoir sur quoi ton prog va tourner il vaut mieus etre prudent
Cordialement
G.David