VBA Rechercher

Andre13 a écrit :

Bonjour toutes et tous

Sandrine13, pour tes valeurs numériques pour tes textbox 13,14 et 15 de ton userform1

EDIT : prendre les exemples ci-dessous pour ton autre userform 'Creatmodif'

à ajouter :

Private Sub TextBox13_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0                      ' txtbox13  Total mensuel USF1  en alphanumerique uniquement
End Sub

Private Sub TextBox14_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0                      ' txtbox14        adhesion n1   USF1  en alphanumerique uniquement
End Sub

Private Sub TextBox15_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0                      ' txtbox15         adhesion   USF1  en alphanumerique uniquement
End Sub

pour la saisie de date :

proposé par Dan

https://forum.excel-pratique.com/excel/format-date-dans-un-textbox-t19448.html

 'à rajouter !!!  if...
 'dans ]Private Sub TextBox6_Change()
If TextBox6 <> Format(TextBox6, "dd/mm/yyyy") Then MsgBox "le format Date est incorrect !"
'End sub

'New
Private Sub TextBox8_Change()
If TextBox8 <> Format(TextBox8, "dd/mm/yyyy") Then MsgBox "le format Date est incorrect !"
End sub

'à rajouter !!!==> if textbox9...
'Private Sub TextBox9_Change()
If TextBox9 <> Format(TextBox9, "dd/mm/yyyy") Then MsgBox "le format Date est incorrect !"
'End sub

crdlt,

André

Bonsoir Andre,

Je te remercie pour tes codes, bien que le poisson (moi) est totalement noyé, j'en ai rentré un mais avec moi cela ne fonctionne pas.

Mais merci beaucoup

archer a écrit :

Bonjour Sandrine

modification DATE DE NAISSANCE & AGE dans Userform & AGE dans onglet

A toi de voir

A+

Maurice

Bonsoir Archer,

C'est super, un grand merci. Par contre, j'ai fais un autre userform pour faire mes syntheses

dès lors que je veux écrire quelque chose dans userform initialize, je ne plus l'ouvrir.

te remets le fichier.

En tout les cas c'est super chouette

James007 a écrit :

Re-Bonjour à tous,

Attention André ...

Nous entrons en territoire complexe ....

Un masque dans lequel :

1. les deux premiers chiffres ne peuvent aller que de 1 à 31

2. les deux chiffres suivants ne peuvent aller que de 1 à 12

3. les deux derniers chiffres de l'année ... disons jusqu' à 99 ....

Pour bien faire ... il faut un module de classe pour gérer le format correctement validé ... sans la saisie du séparateur ...

Sandrine,

Je te conseillerais d'avoir trois textboxes : Jour, Mois, Année

Bonsoir James,

c'est bon pour les dates et te remercie toujours pour tes conseils.

Bonne soirée

Bonjour Sandrine,

Tu peux tester :

Me.ComboBox1.List =...........

James007 a écrit :

Bonjour Sandrine,

Tu peux tester :

Me.ComboBox1.List =...........

Bonjour James,

J'ai rentré ta formule, mais rien ne change.

Peut-être que je ne l'ai pas fais correctement.

C'est bon, je viens de corriger et cela marche.

J'avais oublié Array et j'ai rajouté les guillemets entre chaque nom

Merci Merci

Par contre j'aurais encore besoin d'aide pour les formules de la synthèse ou je dois utiliser les fonctions

nb.si.ens, et somme.si.ens

Re,

Ci-joint ton fichier avec une plage dynamique ... qui dépend de tes variables ...

Par contre j'aurais encore besoin d'aide pour les formules de la synthèse ou je dois utiliser les fonctions

Je pense que tu seras d'accord pour dire ... que cette phrase est d'une limpidité totale ...!!!

Bonjour à tous

le combobox de la liste ne fonctionne plus!!!

Bon app jean claude

Windows 10 excel 365

Bonjour

modife combobox & un peux U_CreatModif

A+

Maurice

bonjour

voila le dernier jus

a toi de faire le reste

au revoir

Maurice

archer a écrit :

bonjour

voila le dernier jus

a toi de faire le reste

au revoir

Maurice

Bonsoir Archer,

Je te remercie c'est super, j'ai essayé de mettre ta formule sur les mises en forme en route mais cette dernière ne marche pas.

pourrais-tu aussi m'expliquer comment tu fais pour mettre l’émoticône ?

Je vais poursuivre pour faire mes synthèses, est ce possible de les faire par vba avec des formules nb.si.ens. et somme.si.ens. en fonction du choix de l'établissement.

En tout les cas merci beaucoup pour tous ce que tu as fais, c'est énorme.

A bientôt

Sandrine

James007 a écrit :

Re,

Ci-joint ton fichier avec une plage dynamique ... qui dépend de tes variables ...

Par contre j'aurais encore besoin d'aide pour les formules de la synthèse ou je dois utiliser les fonctions

Je pense que tu seras d'accord pour dire ... que cette phrase est d'une limpidité totale ...!!!

Bonsoir James,

Bon c'est vrai niveau clarté, y a encore du travail a faire, je te l'accorde.

Par contre, je n'ai pas trouvé la plage dynamique.

Merci toujours et encore pour ton aide

A bientôt

Sandrine

Bonjour,

En faisant Ctrl F3 .... tu trouveras toutes les plages nommées ...

James007 a écrit :

Bonjour,

En faisant Ctrl F3 .... tu trouveras toutes les plages nommées ...

Merci

sandrine13 a écrit :

James007 a écrit :

Bonjour,

En faisant Ctrl F3 .... tu trouveras toutes les plages nommées ...

Merci

De rien ...

A la vitesse où tu progresses ... tu vas très vite devenir un ' Excel Guru ' ...

James007 a écrit :

sandrine13 a écrit :

James007 a écrit :

Bonjour,

En faisant Ctrl F3 .... tu trouveras toutes les plages nommées ...

Merci

De rien ...

A la vitesse où tu progresses ... tu vas très vite devenir un ' Excel Guru ' ...

C'est le but ,même si le chemin reste encore long dans mes apprentissages mais c'est en forgeant que l'on devient forgeron.

Et, je vous suis infiniment reconnaissante de toute l'aide que vous m'apportez.

Bonne journée

Bonsoir,

J'ai encore besoin de vos lumières, peut-on dans la feuille base, rendre la formule du nombre de jour restant active ?

si oui comment.

Merci

Bonjour,

...rendre la formule du nombre de jour restant active ...

Merci de clarifier ...

James007 a écrit :

Bonjour,

...rendre la formule du nombre de jour restant active ...

Merci de clarifier ...

Bonsoir James,

En fait, dans la feuille base qui se remplit par un userform, la colonne du nombre de jours restant reste figée.

Est-il possible que celle-ci se modifie à l'ouverture du fichier pour qu'elle soit juste avec la date d’aujourd’hui et celle de la sortie.

Re,

Peux-tu dire dans quelle colonne il faut la date du jour ...?

et dans quelle colonne il faut la date de sortie ...?

et s'il faut un calcul ... dans quelle colonne ...?

James007 a écrit :

Re,

Peux-tu dire dans quelle colonne il faut la date du jour ...?

et dans quelle colonne il faut la date de sortie ...?

et s'il faut un calcul ... dans quelle colonne ...?

ma date du jour est sur la feuille formulaire en A1

Ma date de sortie est sur la feuille Base colonne 9

et le résultat doit être sur la feuille Base en colonne 10

Re,

Merci pour tes précisions ...

Peux-tu te débrouiller avec la macro suivante :

Private Sub Workbook_Open()
  F02.Range("A1") = Date
  F02.Range("J2").FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-R1C1)"
  F04.Select
End Sub

La formule de la Colonne J doit-elle être recopieé ou pas dans toute la colonne ...?

James007 a écrit :

Re,

Merci pour tes précisions ...

Peux-tu te débrouiller avec la macro suivante :

Private Sub Workbook_Open()
  F02.Range("A1") = Date
  F02.Range("J2").FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]-R1C1)"
  F04.Select
End Sub

La formule de la Colonne J doit-elle être recopieé ou pas dans toute la colonne ...?

Bonjour James,

Merci cela marche super, j'ai su faire pour que cela se recopie sur toute la colonne. Par contre, j'ai des chiffres en négatives lorsque la date du jour dépasse celle de la sortie.

Est il possible lorsque c'est le cas de laisser la cellule à 0.

Et, est que RC signifie rang et colonne ?

Je te remercie infiniment pour ton aide