1232 résultats trouvés

par archer
4 décembre 2019, 20:56
Forum : Excel - VBA
Sujet : Combobox qui ne se remplit pas ...
Réponses : 3
Vues : 79

Re: Combobox qui ne se remplit pas ...

Bonsoir
voila la modife pour la combobox
Private Sub UserForm_Activate()
    With Feuil1 ' CodeName de PLANNING
      y = .Cells(Rows.Count, 7).End(xlUp).Row
        For x = 3 To y
           ComboBox1.AddItem .Cells(x, 7).Value
        Next x
    End With
End Sub
A+
Maurice
:btres:
par archer
4 décembre 2019, 14:07
Forum : Excel - VBA
Sujet : Application d'une macro sur plusieurs feuilles
Réponses : 6
Vues : 80

Re: Application d'une macro sur plusieurs feuilles

Bonjour ta macro efface tout tu a pas fait des essais a revoir a voir Sub Test() Onglet = Array("AMZN DE", "AMZN FR", "AMZN UK", "AMZN ES", "AMZN IT") Application.ScreenUpdating = False For I = 0 To 4 Sheets(Onglet(I)).Select Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimit...
par archer
3 décembre 2019, 17:04
Forum : Excel - VBA
Sujet : Liste deroulante avec noms des onlets
Réponses : 8
Vues : 58

Re: Liste deroulante avec noms des onlets

Bonjour
voila des essais de liste je pense que userform3 va te convenir
A+
Maurice
Onglets (1).xls
(79 Kio) Téléchargé 5 fois
:btres:
par archer
3 décembre 2019, 12:07
Forum : Excel - VBA
Sujet : Application d'une macro sur plusieurs feuilles
Réponses : 6
Vues : 80

Re: Application d'une macro sur plusieurs feuilles

Bonjour test déjà avec cette macro car la tienne dur Sub Macro1() Application.ScreenUpdating = False Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, O...
par archer
28 novembre 2019, 16:53
Forum : Excel - VBA
Sujet : Remplir un listview dynamiquement... ?
Réponses : 4
Vues : 75

Re: Remplir un listview dynamiquement... ?

Bonjour
voila une listview avec recherche nom
Classeur3 (1).xlsm
(31.23 Kio) Téléchargé 7 fois
A+
Maurice
:btres:
par archer
27 novembre 2019, 16:55
Forum : Excel - VBA
Sujet : Calendrier automatique
Réponses : 2
Vues : 50

Re: Calendrier automatique

Bonjour pour un calendrier sur une colonne A voir Sub generer_calendrier() Cells.ClearContents An = SpinButton_annee.Value L = 2 For Mois = 1 To 12 For J = 1 To Day(DateSerial(An, Mois + 1, 1) - 1) L = L + 1 Range("A" & L).Value = DateSerial(An, Mois, J) Next Next End Sub A+ Maurice :btres:
par archer
26 novembre 2019, 12:10
Forum : Excel - VBA
Sujet : Supprimer des lignes avec case if
Réponses : 13
Vues : 104

Re: Supprimer des lignes avec case if

Bonjour a bon je tape pas assez vite HI a voir Sub supp_doublons() Dim I& Application.ScreenUpdating = False For I = 4000 To 6 Step -1 Select Case Cells(I, 3) Case 26921, 27022, 27030, 27081, 27097 Rows(I).EntireRow.Delete End Select Next I End Sub A+ Maurice :btres:
par archer
23 novembre 2019, 19:25
Forum : Excel - VBA
Sujet : Mot de passe oublie
Réponses : 2
Vues : 77

Re: Mot de passe oublie

Bonjour
hum
retour de ton fichier
REPORTING STANDARD.xlsx
(13.91 Kio) Téléchargé 8 fois
A+
Maurice
:btres:
par archer
21 novembre 2019, 21:39
Forum : Excel - VBA
Sujet : Rechercher / Remplacer un peu spécial...
Réponses : 7
Vues : 104

Re: Rechercher / Remplacer un peu spécial...

Bonjour voila un macro import CSV A voir Sub ChoixFicCsv() Dim dossier As FileDialog ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator Set dossier = Application.FileDialog(msoFileDialogFilePicker) With dossier .AllowMultiSelect = False .InitialFileName = ChoixChemin .Title = "Choix d'un ...
par archer
20 novembre 2019, 21:33
Forum : Excel - VBA
Sujet : Bloquer les raccourcis Claviers {Page Préc./Suiv.}
Réponses : 4
Vues : 56

Re: Bloquer les raccourcis Claviers {Page Préc./Suiv.}

Bonsoir
pour désactiver faire une macro avec onkey
Sub TestOnkey()
    Application.OnKey "^{PGDN}", ""
    Application.OnKey "^{PGUP}", ""
End Sub

Sub TestActive()
    Application.OnKey "^{PGDN}"
    Application.OnKey "^{PGUP}"
End Sub
A+
Maurice
:btres: