pbs de macro

[ADONISTI]

bonjour,

n'etant pas un virtuose en vba j'ai trouve une fichier carte de fidelite que je souhaiterais ameliorer
dans l'onglet achats suprimer l'information
dans l'onglet client je souhaiterais qu' enregistrement des achats il remplisse le nbr de passage en hiver 1 octobre 31 mars et passage en ete le reste de l'annee

merci pour votre bonne volonte

james

fichier joint

 

[ERIC S]

Re : pbs de macro

Bonjour

attention tu as ouvert 2 fils

regarde ci-joint avec userform pour saisie coordonnées
a tester car je n'ai pas tout regardé

 

[ADONISTI]

Re : pbs de macro

ok je te remercie pourrais tu me faire part des modifs afin que sois moin idiot merci encore

james

 

[ADONISTI]

Re : pbs de macro

ok je te remercie mais pourrrais me faire part des modifs afin que je sois moin idiot

merci encore
james

 

[ERIC S]

Re : pbs de macro

re

de petites explications:

les modifications sont faites dans le module 1, macro Enregistrer

'passages été/hiver
If Month(Date) > 3 And Month(Date) < 10 Then
ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 3).Value + 1
Else
ActiveCell.Offset(0, 4).Value = ActiveCell.Offset(0, 4).Value + 1
End If
regarde si le mois de la date courante est un mois d'été, activecell est en colonne F donc si été ajout en colonne I (offset de 3) sinon en J
------------------------------
If ActiveCell.Value = "" Then
UserForm1.Show
MsgBox "enregistrement non fait"
Sheets("Clients").Select
Range("A4:M" & Sheets("Clients").Range("A65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("F5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C3").Select
Sheets("Achats").Select
Exit Sub
End If

si le nom n'est pas trouvé, ouvre un userform pour remplir les champs
tri selon colonne F en fin de séquence pour remettre en ordre alpha
--------------------------

userform 1 champs texte à remplir, se vide dans les cellules de la dernière ligne+1 (nouvelle ligne)

--------------------------

important: suppression des formules colonne F (géré par userform) donc pas de pb si ta liste s'allonge

modif (insertion nom définir clients) la formule DECALER permet d'adapter l aliste au nombre de noms sans avoir à y toucher

s''il y a des bugs, je reste en veille sur le fil