pbs de macro

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é

Re : pbs de macro

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

james

Re : pbs de macro

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

merci encore
james

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