Carnet adresse
Bonjour a tous!
Voila un nouveau dilemme pour moi!
En effet je dois créer un carnet d adresse comprenant différant critère:
Nom,Prenom,Adresse, cp, ville, téléphone , mail, type de logement , et capacité
ceci étant la partie contact logement
En deuxième point je dois faire de même pour des contact simple:
Nom ,Prenom, Date Naissance , Telephone , Mails, et en dernier sa categorie(Chef chantier, chef equipe, coffreur bancheur, macon
et avec cerise sur le gateau la possibilité de le noté de 1 a 5
J ai commencé la presentation , mais je bloque sur les macros!
Pouvez vous m aider!
Merci
Bonjour
Pour les macros, on t’aidera.
Mais tu devrais commencer par créer tes deux carnets d’adresses et y mettre quelques données qui serviront d’exemples.
Puis, réfléchir et expliquer ce que tu veux en faire et comment tu souhaites les utiliser.
La Feuil1 est certes très jolie mais tu ne dis pas ce que tu veux qu’il se passe si tu cliques sur les différents boutons.
A te relire.
Bye !
RE,
merci de m avoir lu! si joint les rectifications avec les explications pour mon carnet d adresse qui se compartimente en 2 categories
les logements et les collaborateurs!
dans l attente de votre aide!
Cordialement
Bonjour à tous,
Un fichier à tester et à modifier si nécessaire
Amicalement
Pierrot
@ Cappe Pierre
Bonjour !
Tu es sûr que tu n'as rien oublié ?
Bye !
Bonjour
oui j ai oublié de dire merci , pour votre aide!
Cordialement
@ etnoga
Ce n'est pas toi que je m'adressais : on ne t'a pas encore aidé, tu n'as donc pas à nous remercier...
mais à Cappe Pierre : il a oublié de joindre son fichier !
Bye :
Bonjour, gmb, etnoga
désolé, depuis votre dernier message, j'essaye de réduire à 300ko mon fichier clients.
j'ai du supprimer pas mal de fonctionnalités comme un fichier d'aide, un grand écran à l'ouverture etc.je n'ai pas rajouté une fonction "Cotations dans le formulaire, pour rester allégé comme les repas de ma femme.
Bonne suite et encore toutes mes excuses
Amicalement
Pierrot
Code à coller dans la feuille clients pour ouvrir la boite mail
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Not Application.Intersect(Target, Column("I:I")) Is Nothing Then
If Target.Column = 9 Then
Dim MailAd As String
Dim URLto As String
MailAd = Target
URLto = "mailto:" & MailAd
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Subbonjour
ok dans un premier temps cela fonctionne mais quand je veus faire des recherches , je me retrouve a prendre les clients un par un!
cordialement
Si tu les prends deux par deux, cela devient une partouze
que veux-tu faire ?
Pierrot
Bonjour
Je voudrais faire une recherche rapide par une ou toute option ! Ce qui permet d etre plus rapide!
Merci
Bonjour,
ton fichier à tester avec une recherche rapide, les trois 1ères lettres du nom
Pierrot