Résultats de la recherche

Bonjours. j'aimerais savoir si ses possible de prendre une valeur dans la feuil1 (I47) et a l'ouverture d'un userform Grandlivre s'affiche cette valeur dans TextBox6 comment fait on ?? Private Sub TextBox6_Change() Grandlivre.TextBox6 = Feuil1.Range("I47") End Sub j'ai essaier avec...

Allo il me reste une chose a faire, mais complexe pour moi le but est en cellule E7 double cliquer dessus pour faire apparaitre le calendrier et sélectionner une date de début et faire la même chose pour la cellule H7 pour la date de fin, en suite cliquer sur le boutton (afficher le bilan...

Bonjour voici le code qui fonctionne très bien, je voudrais... si ses possible qu'il envoie une demande de conrfirmation de lecture, destinataire qui a bien reçu le courrier.. pour mon courrier je fonctionne avec Windows live mail. Sub CDO_Mail(Chemin As String, FicPDF As String) Dim...

Allo après avoir installer office 2007 sur Windows 7 il mes impossible d'activer les macro... l'ors de l'ouverture de mon fichier Excel il me donne pas de choix ( a part ne pas activer les macro) même dans les option Excel ( Centre option de confidentialiter ) je coche toujours...

Allo Encore une fois je fais appelle a vous... j'ai dans un userform un Combobox qui me donne les variante suivante 50,00$ 100,00$ 150,00$ quand je clique sur valider il inscrit juste 50 ou 100 ou 150 je n'ai pas la virgule et le signe " $ " comment faire .... voici mon code...

Allo Voici se que je demande, j'ai une macro qui ouvre mon document (.docx) comme ceci Sub OuvertureWord() Dim WordApp As Object Set WordApp = GetObject("L:\Facturation MagZoneX 2011\Ne pas suprimer\doc1.docx") WordApp.Application.Visible = True End Sub Comme tout mes dossier...

Bonjour Voici mon probleme. j'ai adapter cette fonction, mais la seule chose est que j'aimerais que le fichier de sortie dans le e-mail sois en PDF et non XLSX et pouvoir inscrire Facture au lieu de Classeur1.xlsx je suposse que ses dans le UFS2 Private Sub CommandButton1_Click()...

Allo j'aimerais savoir comment faire un boucle avec ça 1 With Feuil3 If modif = True Then GoTo 2 .Rows(lig).Insert Shift:=xlDown: .Rows(lig).Font.ColorIndex = 1 2 .Range("A" & lig) = Feuil1.Range("H10") .Range("B" & lig) = Feuil1.Range("I12")...

Allo je suis entrain de monter mon nouveau projet et j'ai bien sure quelque problème alors je vais commencer par une chose, l'orsque on clique sur Nouvelle facture dans mon userform la dernière colonne aparait des chifres ??? normalement ça devrais être un numéro de téléphone qui est...

Bonjour j'ai déja se code Sub bilan() Dim x As Integer Dim dt1 As Date, dt2 As Date dt1 = InputBox("date debut") dt2 = InputBox("date fin") Sheets("Bilan").Range("B5").Value = dt1 Sheets("Bilan").Range("C5").Value = dt2 With Sheets("BD") For x = 2 To .Range("B" &...

Allo Comment faire pour ne voir que 2 chiffre après la vigule, cars il me donne 3 a 4 chiffre après la virgule se qui n'est pas le bon résultat. voici mon code Private Sub TextBox210_Change() TextBox250 = Val(Replace(TextBox210, ",", ".")) * 0.05 End Sub Private Sub...

Allo Quel est la bonne formule pour multiplier un textbox de 5% et d'afficher le résultat dans un autre textbox Genre.. textbox211 * 5% = textbox212 merci

Allo je vous explique mon problème. j'ai dans un userform plusieur textbox qui s'addittionne ensemble donc le résultat n'est pas correct 3,75 + 3,75 = 8,00 ( le bon resultat serais de 7,50 ) voici ma formule... Sub TextBox181_Change() calculsomme End Sub Sub...

Allo Est il possible, l'orsque j'ouvre mon userform et que je choisi dans mon ComboBox, si seulement la valeur de ma base de donnée "D" est de 0 (zéro) elle ne s'affiche pas dans le TextBox Private Sub ComboBox1_Click() If ComboBox1.ListIndex <> -1 Then TextBox1 =...

Allo j'ai un userform identique a mon userform client sauf que lui est pour récupérer les donnée dans ma base de client. je voudrais avoir le code pour sauvegader mon userform de modification a la même endroit dans ma base de donnée. example je prend la facture 2 avec mon userform de...

Bonjour j'ai un userform qui envoie les donnée a ma base de donnée, l'osqu'il n'y a pas de donnée dans le userform il écrit la valeur 0 . jusque la pas de problème, mais je transfert les donneés par la formule =INDEX(Bd_Liste1;NO_ligne) dans une autre feuille. Je voudrais que lorsque la...

Bonjour je vous montre mon code Sub bilan() Dim x As Integer Dim dt1 As Date, dt2 As Date dt1 = InputBox("date debut") dt2 = InputBox("date fin") With Sheets("BD") For x = 2 To .Range("B" & .Rows.Count).End(xlUp).Row If .Range("B" & x) >= dt1 And .Range("B" & x) <= dt2 Then...