Ecrire dans une céllule avec UserForm

[pat12]

Bonjour,
En cliquant sur "Nouvelle rue" je souhaite écrire dans la colonne AVoir exemple:
Merci

 

[Compte Supprimé 979]

Re : Ecrire dans une céllule avec UserForm

Salut Pat12,

Tu trouveras ci-joint ton fichier avec la macro modifiée et 2 petites fonctions en prime 😉

 

[guitou77]

Re : Ecrire dans une céllule avec UserForm

Bonjour pat12, bonjour le forum,

Vois si celà te convient.

@+

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

Super comme toujours sur ce Forum.
Je prends celui de BRUNOM45 il n’autorise pas les doublons.
Encore merci pour votre rapidité.
Bonne soirée.

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

J’ai été un peux vite l’enregistrement est sur une autre feuille nommé (liste), il ne me faut pas (liste des rues) en haut de la colonne.
Et j’ai encore oublié peux ton faire un tri automatique de la colonne (A) "feuille liste"par lettre alphabétique après l’écriture.
Vraiment un grand merci..

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

J’ai été un peux vite:😡
L’enregistrement est sur une autre feuille nommé (liste), il ne me faut pas (liste des rues) en haut de la colonne.
Et j’ai encore oublié peux ton faire un tri automatique de la colonne (A) "feuille liste"par lettre alphabétique après l’écriture.
Vraiment un grand merci..

 

[Compte Supprimé 979]

Re : Ecrire dans une céllule avec UserForm

Salut Pat12,

Les modifications sont faites comme demandées, enfin je pense 😉

A+

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

Merci BrunoM45 on n’est pas loin mais je voudrais que les rues s’écrivent sur la feuille Liste et non sur Rue.
E t encore merci.

 

[Compte Supprimé 979]

Re : Ecrire dans une céllule avec UserForm

Oups, je n'ai pas lu ton post comme il faut 😱

Voilà le fichier avec inscription des rues dans la feuille "liste" et tri de cette liste

A+

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

Super, je vais me débrouillé, mais il y à toujours un Pb quand je copie l’UserForm dans mon projet j’ai un message d’erreur, quand je clique sur valider.
Erreur de compilation
Sub ou Function non définie

If LigFind(ActiveSheet.Name, 1, VRue) = 0 Then
L’erreur est en gras.
si tu as une autre info et encore merci de donner de ton temps.
Bonsoir

 

[Compte Supprimé 979]

Re : Ecrire dans une céllule avec UserForm

Bonsoir Pat12,

Tu penses bien que je teste le code avant de poster le fichier !

Tu n'as pas dû importer le module "Fonctions"

Qui contient ce code entre autre :

Function LigFind(Feuil As String, NumCol As Integer, Quoi)
  On Error Resume Next
  With Sheets(Feuil).Columns(NumCol)
    ' On recherche une valeur
    LigFind = .Find(What:=Quoi, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, MatchCase:=False).Row
  End With
  On Error GoTo 0
End Function

A mettre éventuellement à la fin du code de l'USF 😉

 

[pat12]

Re : Ecrire dans une céllule avec UserForm

Merci BrunoM45,
Je ne mets surtout pas en cause tes compétences, je n’avais pas vue qu’il y avait un autre code.
Tout est OK.
Merci