Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

letroubadour

XLDnaute Occasionnel

Pièces jointes

Dernière édition:
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Bonsoir

par contre le fichier à ,changé et je pense qu'il faut adapter la ligne de cde au nouveau fichier

pour les dates , j'ai regardé ce que tu as mis précédemment , outils , réf, il n'y a pas MANQUANT , si tu as d'autres infos

merci


Raphael
 
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

bonjour a tous

BEBERE à dit:
pour supprimer comme suit
.Range("B" & Me.CmbNom.ListIndex + 3 & ":G" & Me.CmbNom.ListIndex + 3).Delete shift:=xlUp

j'ai modifié le code ça ne supprime plus les ligne juste les lignes comprises entre b et G

merci
Bebere


pour ce qui est des dates j'ai mis dans le fichier la colonne au format standart , il faudrait que celle qui sont sous forme de dates se transformes sous forme de nombres ,
j'ai lu que sur la toile que ce qui était saisi dans une textbox était un texte et qu'il faut le transformer au format date
il parle souvent du code CDATE() , j'ai essayé d'inclure des codes trouvé mais pas de résultats

merci

PS: dernier fichier a jour en PJ
RAPHAEL
 

Pièces jointes

Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Bonjour le fil, Letroubadour

Quel est ton problème à cette heure, si tu en as toujours un ?

A+
 
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

bonjour Bruno

C'est le problème de dates qui sont saisies via le formulaire , dans le fichier je ne peux pas envoyer de mail sur les lignes saisies par le formulaire (première et 3 dernières ) les autres lignes ont été saisies directement dans le tableau avant que le formulaire soit fait

c'est un problème de format , fait la bascule de la colonne E en format date et format texte d'où mon message précédent

merci


RAPHAEL
 
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Bonjour letroubadour
Bonjour le Fil
Bonjour Le Forum

voila ce que j'ai modifié dans la procédure , pour que la date ajoutée soit au bon format
J'ai avant mis la colonne "E" au Format Date "jj/mm/aaaa"

[highlight=VBa]With WS
.Cells(i, 3) = TBetablissement
.Cells(i, 4) = TBlocalite
.Cells(i, 5) = Format(TBdteagrement, "00000") 'ici on format la date en Chiffre
.Cells(i, 6) = TBmail
End With
[/code]

en espérant avoir compris !!!!
Bonne fin de Journée
Amicalement
Jean Marie
 
Dernière édition:
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Merci a tous d'avoir pris de votre temps pour repondre à la discussion

je teste et si je trouve d'autres choses je crée une autre discussion

encore merci a tous, ce forum est vraiment génial


RAPHAEL
 
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Re,
Bonjour ChTi160 ;-)

On peut aussi faire
Code:
.Cells(i, 5) = DateValue(TBdteagrement)

En passant un petit code utile pour des zones de saisie spécifique
Code:
Private Sub TBdteagrement_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  ' Empêcher la saisie d'autres caractères que ceux définit
  If InStr(1, "0123456789/", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub


A+
 
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Merci Bruno , merci également Au TCHTI


Bruno,
j'ai essayé ton premier Code , c'est OK

par contre où mets tu le second ?

merci


RAPHAEL
 
Dernière édition:
Re : adaptation d'un formulaire (USERFORM) pris sur le forum pour mon fichier

Re,

Tu le mets dans ton Userform dans lequel il y a ton contrôle "TBdteagrement" !?

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
27
Affichages
3 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…