395 résultats trouvés

par Rag02700
21 mars 2020, 11:23
Forum : Excel - VBA
Sujet : Vba envoie email avec tableau recap + piece jointe + plusieurs destinataire
Réponses : 2
Vues : 60

Re: Vba envoie email avec tableau recap + piece jointe + plusieurs destinataire

Hello, à tester : Sub ENVOIE_EMAIL() ' ' ENVOIE_EMAIL Macro ' ' Sheets("PILOT MAIL").Select ActiveSheet.Range("G1:K9").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = Range("G19").Value 'le texte ' .Adresse d'envoie .Item.At...
par Rag02700
19 mars 2020, 18:11
Forum : Excel - VBA
Sujet : Case a cocher multiples
Réponses : 6
Vues : 87

Re: Case a cocher multiples

Parfaitement d'accord avec galopin
par Rag02700
18 mars 2020, 19:09
Forum : Excel - VBA
Sujet : Case a cocher multiples
Réponses : 6
Vues : 87

Re: Case a cocher multiples

Hello, Essaie ça : Sub liste_Des_Objets() 'Retourne tous les objets de tous les userforms Dim Ctl As Control Dim Usr As Object For Each Usr In ThisWorkbook.VBProject.VBComponents If Usr.Type = 3 Then For Each Ctl In Usr.Controls if TypeOf Ctl Is MSForms.CheckBox Then Ctl = false Next Ctl End If Next...
par Rag02700
8 mars 2020, 13:33
Forum : Excel - VBA
Sujet : For sans next, next sans for, end if manquant où est l'erreur
Réponses : 6
Vues : 53

Re: For sans next, next sans for, end if manquant où est l'erreur

Hello, Teste comme ça Private Sub Worksheet_SelectionChange(ByVal Target As Range) For i = 2 To 32 If Not Intersect(Target, Cells(i, 2)) Is Nothing Then UserForm1.Show 'nom de l'élève If Not Intersect(Target, Cells(i, 3)) Is Nothing Then UserForm2.Show 'n° de balise recherchée If Not Intersect(Targe...
par Rag02700
8 mars 2020, 13:00
Forum : Excel - VBA
Sujet : VBA_switch entre classeurs ouverts
Réponses : 8
Vues : 103

Re: VBA_switch entre classeurs ouverts

Hello, Voici comment parcourir les classeurs ouverts : Dim C As Workbook For Each C In Application.Workbooks 'Actions à effectuer next C Maintenant si tu veux prendre les données du classeur dont le nom change cela donnerait ça : Dim CT As Workbook Dim C As Workbook Set CT = Workbooks("fichier_nom_q...
par Rag02700
28 février 2020, 14:48
Forum : Excel - VBA
Sujet : VBA_Ajouter des colonnes dans une listbox
Réponses : 1
Vues : 24

VBA_Ajouter des colonnes dans une listbox

Hello, Je cherche à ajouter des valeurs dans une listbox mais pas les unes en dessous des autres mais les unes à côté des autres ... Exemple : J'ai un Textbox avec un bouton de commande + une listbox. A chaque fois que j'appuie sur le bouton, la valeur du textbox s'ajoute en colonne à ma listbox. Co...
par Rag02700
23 février 2020, 20:52
Forum : Excel - VBA
Sujet : Enregistrement fu fichier avec l'heure dans titre
Réponses : 3
Vues : 44

Re: Enregistrement fu fichier avec l'heure dans titre

Hello,

Essaie de remplacer ton "-" par "_".

R@g
par Rag02700
19 février 2020, 22:39
Forum : Excel - VBA
Sujet : VBA Recherche d'astuce pour formulaire de saisie multiple
Réponses : 3
Vues : 66

Re: VBA Recherche d'astuce pour formulaire de saisie multiple

Hello, Pourquoi ne pas faire qu'une seule ligne d'articles ? Si demain tu veux ajouter 60 articles comment tu fais avec ton formulaire ? Ce que je propose c'est de garder ton en-tête + une seule ligne d'article. Par contre, j'ajouterai un bouton "Ajout article" qui va garder ton en tête de commande ...
par Rag02700
13 février 2020, 22:15
Forum : Excel - VBA
Sujet : Optimiser plusieurs If/Elseif
Réponses : 17
Vues : 177

Re: Optimiser plusieurs If/Elseif

Hello, Une proposition : Sub valider() If TextBox2 = "" Then MsgBox "La valeur de la case " & Label2 & " n'est pas valide !", vbCritical, "ERREUR !" exit sub ElseIf TextBox6 = "" Then MsgBox "La valeur de la case " & Label7 & " n'est pas valide !", vbCritical, "ERREUR !" exit sub ElseIf Not IsNumeri...
par Rag02700
13 février 2020, 22:08
Forum : Excel - VBA
Sujet : Code VBA prix revient
Réponses : 8
Vues : 142

Re: Code VBA prix revient

Hello,
UserForm1.Txt_Prix_Revient = UserForm1.Txt_Prix_Revient & "  Prix de revient " & Range("B" & i).Value & "  :  " & prixtotale & "€" & Chr(13) & Chr(10)  & "  Prix du composant le plus cher :  " & prixmax & "€" &  Chr(13) & Chr(10) & Chr(10)
Range("E" & i).Value = prixtotale
a tester

R@G