1094 résultats trouvés

par archer
17 avril 2019, 13:01
Forum : Excel - VBA
Sujet : Macro pour ouvrir .txt sur une cle quelque soit la lettre du port usb
Réponses : 15
Vues : 122

Re: Macro pour ouvrir .txt sur une cle quelque soit la lettre du port usb

Bonjour a voir aussi Private Sub ChoixFicTxt() Dim dossier As FileDialog ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator Set dossier = Application.FileDialog(msoFileDialogFilePicker) With dossier .AllowMultiSelect = False .InitialFileName = ChoixChemin .Title = "Choix d'un fichier Txt"...
par archer
9 avril 2019, 12:02
Forum : Excel - VBA
Sujet : Changement Bizarre en Date US dans textbox
Réponses : 9
Vues : 84

Re: Changement Bizarre en Date US dans textbox

Bonjour
on teste les date donc
If IsDate(Controls("Textbox" & i - 6).Value) Then
            .Cells(C0.ListIndex + 2, i + 1) = CDate(Controls("Textbox" & i - 6).Value)
A+
Maurice
:btres:
par archer
9 avril 2019, 11:08
Forum : Excel - VBA
Sujet : ERREUR 1004: export pdf bloqué
Réponses : 4
Vues : 45

Re: ERREUR 1004: export pdf bloqué

Bonjour
Voir Ladate
LaDate = Format(Date, "yyyymmdd")
A+
Maurice
:btres:
par archer
8 avril 2019, 13:19
Forum : Excel - VBA
Sujet : Changement Bizarre en Date US dans textbox
Réponses : 9
Vues : 84

Re: Changement Bizarre en Date US dans textbox

bonjour
Pour les date texbox mettre CDate a la place CDbl

A+
Maurice

:btres:
par archer
7 avril 2019, 21:38
Forum : Excel - VBA
Sujet : Variable non reconnue dans Userform
Réponses : 15
Vues : 121

Re: Variable non reconnue dans Userform

Bonjour
Hum voir la valeur de X

A+
Maurice
par archer
5 avril 2019, 12:25
Forum : Excel - VBA
Sujet : Bénévole MARCHEURS
Réponses : 8
Vues : 77

Re: Bénévole MARCHEURS

Bonjour
modification des combobox a voir
Mutche 3.xlsm
(453.22 Kio) Téléchargé 5 fois
A+
Maurice
:btres:
par archer
4 avril 2019, 17:10
Forum : Excel - VBA
Sujet : Boutons début et fin de vacation
Réponses : 4
Vues : 49

Re: Boutons début et fin de vacation

Bonjour
A voir aussi
Sub Début()
    Range("B5").Value = TimeValue(Now)
End Sub

Sub Fin()
   Range("F5").Value = TimeValue(Now)
End Sub
A+
Maurice
:btres:
par archer
4 avril 2019, 12:35
Forum : Excel - VBA
Sujet : Copier/effacer ligne sous condition
Réponses : 4
Vues : 47

Re: Copier/effacer ligne sous condition

Bonjour sans modèle ses pas facile a tester mes bon voir voir la macro modifier Sub Valider() Dim lig&, L&, Nlig Set X = Sheets("Sortie_de_Stock") Set Y = Sheets("Historique_Commande") L = Y.Range("A" & Rows.Count).End(xlUp).Row + 1 X.Select Nlig = Range("A" & Rows.Count).End(xlUp).Row For lig = Nli...
par archer
22 mars 2019, 21:13
Forum : Excel - VBA
Sujet : Selection listbox
Réponses : 5
Vues : 46

Re: Selection listbox

bonsoir
mettre ton MultiSelect a 0 ' =fmMultiSelectSingle
A+
Maurice
:btres:
par archer
22 mars 2019, 13:11
Forum : Excel - VBA
Sujet : Suppression de lignes
Réponses : 11
Vues : 87

Re: Suppression de lignes

Bonjour peux être comme ca Sub Macro1() Dim I&, Onglet$ Onglet = "Feuil1" ' mettre le nom de l'onglet ' Dl = Range("A" & Rows.Count).End(xlUp).Row Columns("A:Z").Select ActiveWorkbook.Worksheets(Onglet).Sort.SortFields.Clear ActiveWorkbook.Worksheets(Onglet).Sort.SortFields.Add Key:=Range("E2:E" & D...