Somme textbox

Bonjour à tous,

J'ai fait un tour des sujets et j'ai rien trouver de simillaires.

Je debute en VBA et je souhaite creer un fichier client pour mon travail qui nous permettrait de selectionner nos meilleurs clients.

J'ai reussi à créer des userform de manière a créer un formulaire (societe nom prenom adresse ... n° facture et montant). J'ai reussi lorsqu'on appui sur ajouter à ce que dans dans une feuille nommé "client pro", les informations saisi s'insére dans le tableau.

Le point que j'arrive pas c'est que lorsque j'ai cliquer sur ajouter, je voudrai que sa regarde dans la feuille "client pro 2" si il y a déja un client avec le même nom de société et si oui je souhaiterais que le montant de la facture que je viens de saisir s'ajoute à ceux des ancienne. J'ai donc commencer mon code comme cela:

Private Sub Ajouter_Click()
On Error GoTo fin
Sheets("client pro").Activate

no_ligne = Range("A65536").End(xlUp).Row + 1

        Cells(no_ligne, 1) = soc
        Cells(no_ligne, 2) = nom
        Cells(no_ligne, 3) = adresse.Value
        Cells(no_ligne, 4) = CodeP
        Cells(no_ligne, 5) = ville
        Cells(no_ligne, 6) = tel
        Cells(no_ligne, 7) = mail
        Cells(no_ligne, 8) = da
        Cells(no_ligne, 9) = cai
        Cells(no_ligne, 10) = tic
        Cells(no_ligne, 11) = montant

Sheets("client pro 2").Activate
Dim cel As Range
cel = Columns("A").Find(what:=soc.Value, after:=ActiveCell)
If Not cel Is Nothing Then
a = ActiveCell.Column
Cells(a, 10).Value = Cells(a, 10).Value + montant
Else
no_ligne = Range("A65536").End(xlUp).Row + 1
 Cells(no_ligne, 1) = soc
        Cells(no_ligne, 2) = nom
        Cells(no_ligne, 3) = adresse.Value
        Cells(no_ligne, 4) = CodeP
        Cells(no_ligne, 5) = ville
        Cells(no_ligne, 6) = tel
        Cells(no_ligne, 7) = mail
        Cells(no_ligne, 8) = da
        Cells(no_ligne, 9) = cai
        Cells(no_ligne, 10) = tic
        Cells(no_ligne, 11) = montant
End If
        soc.Value = ""
        nom.Value = ""
        adresse.Value = ""
        ville.Value = ""
        tel.Value = ""
        mail.Value = ""
        da.Value = ""
        cai.Value = ""
        tic.Value = ""
        montant.Value = ""

Exit Sub
fin:
Application.Visible = True
Application.WindowState = xlMaximized
End Sub

Donc si vous pouvez m'expliquer ce que j'ai mal fait ou si il y a plus simple.

MERCI D AVANCE POUR VOTRE AIDE.

bonjour,

il me semble qu'il manque un "set" dans l'instruction

cel = Columns("A").Find(what:=soc.Value, after:=ActiveCell)

donc

set cel = Columns("A").Find(what:=soc.Value, after:=ActiveCell)

merci mais sa ne fonctionne toujours pas quand je clique pour ajouter ma facture, les etapes sur la feuille client pro fonctionne apres il ouvre la feuille client pro 2 mais il se passe rien dessus. Si le client est connu il devrai sommer le nouveau montant au ancien et si il est pas connu il devrai lui creer une ligne mais il se passe rien.

Pour mieux me faire comprendre je joint mon fichier ... pour l'instant seul l'onglet ajouter une facture / client pro / ajouter.. fonctionne.

Merci d avance

Bonjour,

Une proposition

A+

merci beaucoup sa à l'air de fonctionner

Si j'ai bien compris c'est parce que je n'ai pas utiliser le textbox sous forme de chiffre.

Vraiment merci beaucoup ....