fichier joint

P

petchy

Guest

• 25 Avril 2003

• #16

à tous,se n'est pas évident d'expliquer avec des mots ce que l'ont veut créer.

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 25 Avril 2003

• #17

Re

Petchy, voici ce que je te propose comme solution, on peux toujours améloiré cela, a toi de voir

@Christophe@

 

Pièces jointes

• comboboxSomme.xls

  23.5 KB · Affichages: 33

Vote positif 0 Vote négatif

P

petchy

Guest

• 25 Avril 2003

• #18

re salut le forum
merci @Christophe@ pour ta démo,mais se n'est pas trop se que j'attends,
j'ai rajouté "titi"et compteur3 dans le code,mais il me fait une erreur.
voila le code:
Private Sub UserForm_Initialize()
TextBox1 = "toto"
TextBox4 = "tata"
TextBox7 = "titi"
compteur = 0
compteur2 = 0
compteur3 = 0
For i = 2 To Range("B65536").End(xlUp).Row
If Range("A" & i) = "toto" Then
compteur = compteur + Range("B" & i)
compteur2 = compteur2 + Range("B" & i)
Else: compteur3 = compteur3 + Range("B" & i)
End If
Next i
On Error Resume Next
TextBox2 = compteur
TextBox5 = compteur2
TextBox6 = compteur3
End Sub

merci
@ plus
petchy

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 25 Avril 2003

• #19

Re

Petchy, voici ton code, j'ai modifie les If, end If par select Case, puisque il y'en à déjà 3, maintenant, c'est très facile pour toi d'ajouter un tutu par exemple, voila


Dim compteur, compteur2, compteur3 As Long

Private Sub UserForm_Initialize()
TextBox1 = "toto"
TextBox4 = "tata"
TextBox6 = "titi"
compteur = 0
compteur2 = 0
compteur3 = 0

For i = 2 To Range("B65536").End(xlUp).Row
Select Case Range("A" & i)
Case "toto"
compteur = compteur + Range("B" & i)
Case "tata"
compteur2 = compteur2 + Range("B" & i)
Case "titi"
compteur3 = compteur3 + Range("B" & i)
End Select
Next i
On Error Resume Next
TextBox2 = compteur
TextBox5 = compteur2
TextBox7 = compteur3
End Sub


@Christophe@

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 25 Avril 2003

• #20

@Christophe@ tu est un crack,les autres aussi bien sur.
bon Week-end à tous

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 25 Avril 2003

• #21

Thanks Petchy

A bientot

@Christophe@

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 25 Avril 2003

• #22

Bonsoir à tous,




Merci à Christophe d'être passé au niveau 2 avec select case et d'avoir terminé ce que je n'ai pas pu finir cette après-midi.


Par contre Petchy je ne sais pas l'appli finale que tu veux faire, mais un combobox avec tri des doublons serait bien mieux pour afficher tes totaux dans des textbox, si tu dois rajouté sans cesse des nouveaux cas dans ta colonne 1.....



A+++

 

Vote positif 0 Vote négatif