fichier joint

[petchy]

le forum

voir le fichier joint,en espérant que se soit clair.

 

[petchy]

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

 

[@Christophe@]

Re

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

@Christophe@

 

[petchy]

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

 

[@Christophe@]

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@

 

[petchy]

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

 

[@Christophe@]

Thanks Petchy

A bientot

@Christophe@

 

[Zon]

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+++