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.