Additionner la valeur de plusieurs TextBox ?

Bonjour, Joseph

heureux d'avoir de tes nouvelles

Mes autres programmes du même genre fonctionne avec un aperçu avant impression (PrintPrewiev)

je n'arrive pas à adapter le code

cela m' arrangerait avec un aperçu avant impression

Bonne fin de journée

Amitiés

Pierrot

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Pour l'aperçu avant impression tu changes :

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' pour ...
ActiveWindow.SelectedSheets.PrintPreview 

Joseph

Salut Joseph,

la macro me colle la fiche sur une nouvelle feuille mais reste bloquée

Je te joins mon dernier fichier mis à jour

Pierrot

Joseph, tu peux aller dormir, j'ai réussi à adapter une macro d'un autre programme qui me donne un aperçu avant impression

la soit je ferme ou j'imprime.

Mon fichier étant terminé, je n'ai plus l'intention d'y changer quoique ce soit

un grand merci pour tout ce que tu as fait

je t'embrasse affectueusement

amitiés

Pierrot

Bonjour Joseph, aurais-tu voté pour Trump ?

je te fournit le fichier terminé, un seul problème sur l' userForm, le bouton vider ne vide pas deux TExtBox le TBMontantaPayer

et le TBMOntantPayé conservent un 0 , Je ne comprend pas pourquoi ?

Je t'en souhaite une bonne lecture et encore un grand merci pour tout le boulot abattu.

Gros bisous de Belgique

Pierrot

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Le coloré personnage Donald Trump chamboule les États Unis d'Amérique, où je ne peux voter.

Moi, j'habite le pays au nord de celui-là. J'habite le Canada ... un endroit beaucoup plus tranquille où on s'y gèle le cul à -25 Celsius l'hiver.

Je n'ai pu regardé le code de ton projet très avancé ... car, vilain, tu as mis une protection sur ce code.

Mais, ce n'est pas bien grave, j'ai tricoté à partir d'une version antérieure.

Un macro à changer et le tour est joué ...

Private Sub TBSoldeàPayer_change()
If Me.TBMontantaPayer = "" Then Me.TBMontantaPayer = 0
If Me.TBMontantPayé = "" Then Me.TBMontantPayé = 0
If CDbl(Me.TbSomme) - CDbl(Me.TBMontantPayé) = 0 Then
    Me.TBSoldeàPayer.BackColor = rgbLightGreen
Else
    Me.TBSoldeàPayer.BackColor = rgbLightPink  ''rgbLightYellow
End If

If TBFraisOuvertureDossier = "" And TBAttestVillageoise = "" And TBDossierTechnique = "" _
            And TBFraisACD = "" And TBNotaireHuissier = "" Then
    Me.TBMontantaPayer = ""
    Me.TBMontantPayé = ""
    Me.TBMontantPayé.BackColor = rgbWhite
    Me.TBSoldeàPayer.BackColor = rgbWhite
End If
End Sub

Tourlou!

Joseph

Salut mon bon joseph,

c'est parfait comme toujours, le tout fonctionne à merveille, malgré les remarques de Maurice ( Archer)

je te livre le mot de passe " Cp1360Pz", ce sont mes initiales et le code postal de Perwez ou j'habite.

Un grand merci pour tout

Gros bisous

Pierrot

bonjour

mettre ta colonne en format date

et tape une date et tu regarde

A+

Maurice

Maurice , arrête le pastis, je tape la date d'aujourd'hui et il affiche 10/07/2017

il est vrai que la feuille est protégée et se déprotège à l'ouverture de L'UserForm

Si tu vois un réel problème, ne tourne pas autour et annonce -moi la catastrophe

Amicalement

Pierrot

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Le projet semblait terminé et archer, le casseux d'party, a trouvé qu'en saisissant manuellement une date dans la colonne A, le contenu de la cellule est modifié et il contient un = devant l'info.

J'ai testé et la feuille entière est ainsi. En copiant la feuille, ça suit.

J'ai créé une autre feuille que j'ai renommée client et copiée que l'essentiel et le bug est disparue.

Méchante patraque.

Je cherche hardiment... comme son mari est aux Rapides Blancs", y des hommes de rien qui cherchent et qui cherchent, y des hommes de rien qui cherchent pis ça m'fait rien.

Je valide l'écriture du numéro de téléphone belge dans la colonne D et je renvoie le fichier corrigé.

En espérant que archer ne nous trouve pas d'autres bizarreries dignes des foires champêtres.

Joseph

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Sommairement vérifié...

Joseph

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Peta étrange. Je n'observe plus le bug.

J'ai téléchargé le fichier à nouveau et plus de bug ... Zetta étrange.

Joseph

bonjour

humm

si tu veux i tu change le nom de userform et sa bug HI

et d'autre chose

aller A+

Maurice

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Archer, de quel fichier parles-tu ?

Ceux de Pierre, les miens, ou encore toute la shebang ou un seul en particulier ?

Joseph

re

donne moi le tien ca sera plus facile de te dire a sa pèche

A+

Maurice

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

5 posts plus avant ...

Joseph

Bonjour, Joseph,

la date colonne A n'est insérée qu'au moyen de l'UserForm, ainsi que les modifications, pourquoi écrire la date dans le tableau colonne A ? alors que le formulaire est là pour ça.

Je l'ai dit hier, tout fonctionne bien et je n'ai pas l'intention de changer quoique -ce soit

Je verrai avec intérêt ta nouvelle version .Bonne journée

Amitiés

Pierrot

Bonjour Cappe Pierre, bonjour le fil, bonjour le forum,

Si tu es satisfait de ta dernière version du projet, c'est bien.

Un point que je suggère, si ce n'est déjà fait, est le format du numéro de téléphone.

Private Sub TBTéléphone_AfterUpdate()
    TBTéléphone = Format(TBTéléphone, "0##-000"" ""00"" ""00")
End Sub

Private Sub TBTéléphone_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Su

A+

Joseph

Bonjour, Joseph, ta chanson ma bien fait rire

il y a un gros incendie au Canada du coté .......... Anglaises (dans le Nord, cela passe vers la Californie )

mon numéro de téléphone est = 081/65.59.11pour le fixe ou 0473/713055 pour mon GSM

or ton format affiche : 008-165 59 11

J'ai modifié ton format et cela donne : "0##/00"".""00"".""00")et le résultat : 081/65.59.11

je voudrais bien créer un TextBox pour les N° de GSM

je vais tenter de modifier le format du Fixe

Au plaisir de te recontacter

Amitiés

Pierrot

Joseph, je suis désolé de te déranger, mais je ne devais pas modifier ton code Téléphone, ce que tu m'as donné, c'est le format

Français, et c'est pour un français que nous avons établit ce dossier

mais la modification que j'ai effectuée me servira pour mes fichier Belges.

j’apprécierais un format GSM si tu en à le temps.

amitiés

Pierrot