1081 résultats trouvés

par archer
20 janvier 2019, 21:41
Forum : Excel - VBA
Sujet : Exportation en pdf via VBA
Réponses : 18
Vues : 137

Re: Exportation en pdf via VBA

Bonsoir
donc ses bon tu peux valider
je vais aux dodo
A+
Maurice
par archer
20 janvier 2019, 21:22
Forum : Excel - VBA
Sujet : Exportation en pdf via VBA
Réponses : 18
Vues : 137

Re: Exportation en pdf via VBA

Bonsoir on ses pas quelle macro que tu utilise pour mon modele a voir Sub NomPdf() ' Choix de l'onglet 'Sheets("listing Adjudants").Select ' ou Sheets(Feuil2.Name).Select Chemin = ThisWorkbook.Path & "\" Fich = "Test" & ".pdf" NomFiche = Chemin & Fich Call EditionPDF(NomFiche) MsgBox "Edition Termin...
par archer
19 janvier 2019, 21:19
Forum : Excel - VBA
Sujet : Exportation en pdf via VBA
Réponses : 18
Vues : 137

Re: Exportation en pdf via VBA

Bonsoir voila une routine PDF a voir Sub NomPdf() Chemin = ThisWorkbook.Path & "\" Fich = "Test" & ".pdf" NomFiche = Chemin & Fich Call EditionPDF(NomFiche) MsgBox "Edition Terminer" End Sub Sub EditionPDF(NomFiche) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=NomFiche, _ Quality:=xl...
par archer
18 janvier 2019, 17:34
Forum : Excel - VBA
Sujet : Association Marcheurs
Réponses : 4
Vues : 72

Re: Association Marcheurs

Bonjour
a voir aussi

Code : Sélectionner et copier le code

Private Sub UserForm_Initialize()
  With Sheets("Liste")
    ComboBox1.List = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
    ComboBox2.List = .Range(.Cells(2, 4), .Cells(Rows.Count, 4).End(xlUp)).Value
  End With
End Sub
A+
Maurice
:btres:
par archer
16 janvier 2019, 15:00
Forum : Excel - VBA
Sujet : Erreur indice 9 lorsque version office différente
Réponses : 3
Vues : 25

Re: Erreur indice 9 lorsque version office différente

Bonjour un peux de ménage Dim Sh As Object Private Sub UserForm_initialize() Set Sh = Sheets("BD") ' Sh.Range("B16") = TextBox1.Value ' Sh.Range("B17") = TextBox2.Value ' Sh.Range("B18") = TextBox3.Value ' Sh.Range("B19") = TextBox4.Value End Sub Private Sub CommandButton1_Click() Dim TIME As Date D...
par archer
16 janvier 2019, 12:52
Forum : Excel - VBA
Sujet : PB de TRIE
Réponses : 5
Vues : 63

Re: PB de TRIE

Bonjour
peux être comme ca a voir
GESTION PRET DE SALLES - VIERGE (3).xlsm
(95.02 Kio) Téléchargé 1 fois
A+
Maurice
:btres:
par archer
16 janvier 2019, 10:56
Forum : Excel - VBA
Sujet : Valeurs dans une ComboBox
Réponses : 8
Vues : 38

Re: Valeurs dans une ComboBox

Bonjour pour le choix de la combobox mettre des OptionButton a voir Private Sub UserForm_Initialize() OptionButton1.Value = True End Sub Private Sub OptionButton1_Click() If OptionButton1.Value = True Then With ComboBox1 .Clear .AddItem "Diesel/Gazole" .AddItem "Essence< 8 CV" .AddItem "Essence> 8 C...
par archer
11 janvier 2019, 15:17
Forum : Excel - VBA
Sujet : Fction NOW dans VBA avec nbre ligne aléatoires
Réponses : 5
Vues : 38

Re: Fction NOW dans VBA avec nbre ligne aléatoires

Bonjour
a voir

Code : Sélectionner et copier le code

Sub Test()
MsgBox DateValue(Now)
End Sub
A+
Maurice
par archer
11 janvier 2019, 15:09
Forum : Excel - VBA
Sujet : Accéder à une plage nommée en VBA sans spécifier l'onglet
Réponses : 19
Vues : 139

Re: Accéder à une plage nommée en VBA sans spécifier l'onglet

Bonjour
peux être plus simple

Code : Sélectionner et copier le code

	ListBox1.List = Range("MaListe").Value
A+
Maurice
:btres:
par archer
7 janvier 2019, 18:59
Forum : Excel - VBA
Sujet : combobox invisible sans motif
Réponses : 3
Vues : 36

Re: combobox invisible sans motif

Bonjour
il faut apprendre a copier

Code : Sélectionner et copier le code

    With ComboBox1
     .Clear
     .Top = TextBox2.Top
     .Left = TextBox2.Left + TextBox2.Width
     '     .Height = Text       pas bon
     .Height = TextBox2.Height
     .ListWidth = 100
   End With
A+
Maurice