Remplir base de donnée avec incrémentation

Version imprimable

23/06/2011, 21h04
fredoud

Remplir base de donnée avec incrémentation

Étant novice en userform, je vous sollicite pour mon application. Ce que je souhaite faire sur une nouvelle ligne en respectant les cellules précédentes vides:
- compléter la base avec incrémentation en colonne A sur 1ère ligne vide
- dans userform je voudrais sélectionner dans le champ "nom et prénom", un nom client lié à la feuille liste si pas trouver, pouvoir l’écrire manuellement et que cela s'ajoute automatiquement à cette liste avec trie alphabétique. De même pour le champ "connaissance", "ville", "FAI" et "Antivirus"
- quand on coche la question " y-a-t-il un achat ?" je voudrais que le chiffre 1 s'affiche dans la colonne "achat" dans la feuille "Base
- est-il possible pour les champs "année" et "mois" que le combobox soit rempli automatiquement par rapport au jour système, je m'explique : si nous sommes le 20 juin 2011, et bien dans année, 2011 est affiché et dans mois, juin est affiché avec possibilité de modifier manuellement l'un ou l'autre
- remplir obligatoirement le champ CA sinon un messbox s'affiche disant que le champ montant n'est pas rempli de même pour le champ filleul si dans le champ connaissance, "client" est sélectionné
- utilisé cet userform en mode ajout, visualisation ou modification, c'est à dire, lorsque je me déplace dans la base, je fais un double clics (pour le 2 dernières fonctionnalités) et que l'userform s'affiche avec les informations de cette dernière
J'ai commencé mais franchement ça me parait compliquer, vous les génies en userform et vba, vous avez surement la solution. Pouvez-vous m'aider, ça fait quelques jours que je lis et recherche sur des forums et autres, c'est assez complexe quand on n'est pas de la partie, je m'y perds un peu...
23/06/2011, 21h09
mercatog

Bonjour
Mauvaise demande. J'aurais aimé te dépanner sur un point précis mais, là, tu propose un cahier de charges détaillé et encore sans prévisions financières.
Le forum ici est pour l'entraide sur des points précis mais en aucun cas un moyen de recherche d'une solution clé en main.
D'autant plus, un sujet = une question précise.
23/06/2011, 21h13
fredoud

Étant novice en userform, je vous sollicite pour mon application. Ce que je souhaite faire sur une nouvelle ligne en respectant les cellules précédentes vides:
- compléter la base avec incrémentation en colonne A sur 1ère ligne vide
- dans userform je voudrais sélectionner dans le champ "nom et prénom", un nom client lié à la feuille liste si pas trouver, pouvoir l’écrire manuellement et que cela s'ajoute automatiquement à cette liste avec trie alphabétique. De même pour le champ "connaissance", "ville", "FAI" et "Antivirus"

Merci pour votre coup de même et désolé de ma demande précédente un peu charger je l'avoue.

Fred
23/06/2011, 21h20
mercatog

Ci-joint lien pour trouver la dernière cellule remplie
http://www.developpez.net/forums/d45...gnees-feuille/
23/06/2011, 21h43
fredoud

Bonsoir et merci Mercatog d'avoir répondu aussi rapidement

J'ai apporté quelques modification à mon fichier mais cela ne fonctionne de plus je n'y connait vraiment pas grand chose en code vba !

Un petit coup de pouce

Merci

fred

incremente une base

Bonjour,

Je souhaite faire un récapitulatif pour un client (feuille "base") et l'afficher dans une nouvelle feuille "Recapitulatif_client" mais voilà tout fonctionne sauf que la ligne A correspondant au entêtes (nom, villes, date, etc.) des colonnes n'est pas copier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Recap_client() Dim Plage As Range, F As Worksheet Set F = Sheets("Base") With Sheets("Recapitulatif_client") .Rows("1:" & .Range("A1").SpecialCells(xlCellTypeLastCell).Row).Delete F.AutoFilterMode = False Set Plage = F.Range("B2:N" & F.Cells(Rows.Count, "A").End(xlUp).Row) Plage.AutoFilter 1, [Param_analyse_clients_libelle] Plage.SpecialCells(xlCellTypeVisible).Copy .[A2] F.AutoFilterMode = False .Activate End With End Sub
Qu'est-ce qu'il faut modifier pour que les entetes apparaissent dans la feuille (recapitulatif client.

Merci

27/06/2011, 12h05
mercatog

Essaies ceci

Code:

Set Plage = F.Range("B1:N" & F.Cells(F.Rows.Count, "A").End(xlUp).Row)

Merci Mercatog, cela fonctionne et j'ai en meme temps modifier

Code:

Plage.SpecialCells(xlCellTypeVisible).Copy .[A2]

par

Code:

Plage.SpecialCells(xlCellTypeVisible).Copy .[A1]

Une autre question si cela ne vous dérange pas !

Coment fait-on pour avoir une incrementation de ligne colonne a (Clef) a chaque enregistrement informations depuis userform
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub CmdAjouter_Click() Me.ComboBox_nom = "" Me.TextBox_pro = "" Me.CheckBox_Achat = False Me.ComboBox_annee = "" Me.ComboBox_mois = "" Me.ComboBox_date = "" Me.TextBox_km = "" Me.TextBox_CA = "" Me.ComboBox_connais = "" Me.ComboBox_parrainage = "" Me.ComboBox_ville = "" Me.ComboBox_FAI = "" Me.ComboBox_antivirus = "" End Sub
Que faut-il rajouter quoi et ou ?

Merci

Un exemple pour incrémenter de 1 la valeur contenue en colonne A (à adapter)

Code:

1
2
3
4
5
6
Dim NewLig As Long
 
With Sheets("Feuil1")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1
End With

27/06/2011, 13h59
magnum812

Bonjour,

Merci mercatog.... c'est exactement ce que je recherchais (ça fait un bout de temps que je voyage sur le site pour trouver...!)
Comme quoi, tout arrive!

Bonne journée
Cordialement
Magnum812

Bonjour,

Mercatog, grâce à ta participation, j'avance petit à petit dans mon projet.

Dans ma question précédente concernant l'incrémentation, ça fonctionne sauf que
lorsque je clique sur "ajouter", il incrémente bien sur la première ligne vide mais inscrit les données sur la ligne du dessous dès que je clique sur "valider". Que faut-il écrire exactement ? Voici ce que donne le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub CmdAjouter_Click() Dim NewLig As Long With Sheets("Base") NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1 End With Me.ComboBox_nom = "" Me.TextBox_pro = "" Me.CheckBox_Achat = False Me.ComboBox_mois.ListIndex = Month(Now()) - 1 Me.ComboBox_annee = Format(Center) & Year(Now) Me.TextBox_date = Format(Center) & Date Me.TextBox_km = Format("0.00") & "" Me.TextBox_CA = Format("0.00") & "" Me.ComboBox_connais = "" Me.ComboBox_parrainage = "" Me.ComboBox_ville = "" Me.ComboBox_FAI = "" Me.ComboBox_antivirus = "" End Sub
.

Je souhaite aussi que les TextBox_km et TextBox_CA renvoient la valeur formaté en nombre avec 2 décimales. Les ComboBox Annee et TextBoxDate soit centré sur la colonne

Merci d'avance.

27/06/2011, 18h14
mercatog

Pourquoi Ajouter puis valider?
Je ne vois pas ton code valider

Bonjour Mercatog,

Valider me sert à enregistrer les donner pour une nouvelle fiche( en faisant "ajouter") et aussi à valider les modifications en mode visualisation qui viendra après.

le code du bouton valider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CmdValider_Click()
Dim ligne As Long
With Sheets("Base")
ligne = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
   .Cells(ligne, 2) = Application.Proper(Me!ComboBox_nom)
   .Cells(ligne, 3) = Application.Proper(Me.TextBox_pro)
   .Cells(ligne, 4) = Me.TextBox_km
   .Cells(ligne, 5) = Me.CheckBox_Achat  'OuiNon(Me.Achat)
   .Cells(ligne, 6) = Me.ComboBox_annee
   .Cells(ligne, 7) = Me.ComboBox_mois
   .Cells(ligne, 8) = Me.TextBox_date
   .Cells(ligne, 9) = Me.TextBox_CA
   .Cells(ligne, 10) = Application.Proper(Me.ComboBox_connais)
   .Cells(ligne, 11) = Me.ComboBox_parrainage
   .Cells(ligne, 12) = Application.Proper(Me.ComboBox_ville)
   .Cells(ligne, 13) = Application.Proper(Me.ComboBox_FAI)
   .Cells(ligne, 14) = Application.Proper(Me.ComboBox_antivirus)
End With
End Sub

Merci, franchement sympa l'aide que tu me donnes

Pas besoin du bouton ajouter

Dans la validation, on transfert les données et on appelle la sub Reinit qui vide les contrôles de mon usf

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CmdValider_Click()
Dim NewLig As Long
 
With Sheets("Base")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1
    .Range("B" & NewLig).Value = Application.Proper(Me.ComboBox_nom)
    .Range("C" & NewLig).Value = Application.Proper(Me.TextBox_pro)
    '...etc
End With
Call Reinit
End Sub
 
'Vidage des controles de l'usf
Private Sub Reinit()
 
Me.ComboBox_nom = ""
Me.TextBox_pro = ""
Me.CheckBox_Achat = False
Me.ComboBox_annee = ""
Me.ComboBox_mois = ""
Me.ComboBox_date = ""
Me.TextBox_km = ""
Me.TextBox_CA = ""
Me.ComboBox_connais = ""
Me.ComboBox_parrainage = ""
Me.ComboBox_ville = ""
Me.ComboBox_FAI = ""
Me.ComboBox_antivirus = ""
End Sub

27/06/2011, 19h20
fredoud

Super Mercatog ça fonctionne, franchement merci sans exagération !

Comment fait-on pour attribuer un format a tel ou tel ComboBox,

exemple :
dans ma feuille base la colonne date doit être format 27/06/2011 et centré, CA format nombre avec 2 décimal et centré

J'espère ne pas trop t'ennuyer car tu es pour l'instant qui réagi à mes appels au secours. Sympa !

Cordialement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim NewLig As Long
 
With Sheets("Base")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & NewLig).Value = Val(.Range("A" & NewLig - 1).Value) + 1
    .Range("B" & NewLig).Value = Application.Proper(Me.ComboBox_nom)
    .Range("C" & NewLig).Value = Application.Proper(Me.TextBox_pro)
    'les autre...
    With .Range("H" & NewLig)
        .Value = Me.TextBox_date
        .NumberFormat = "dd/mm/yyyy"
        .HorizontalAlignment = xlCenter
    End With
    With .Range("I" & NewLig)
        .Value = Me.TextBox_CA.Value
        .NumberFormat = "0.00"
        .HorizontalAlignment = xlCenter
    End With
    '...etc
End With
Call Reinit

27/06/2011, 19h40
fredoud

Merci beaucoup Mercatog de ton sérieux coup de main et de ta réactivité.