Forums XLPages

Tous les messages (Mytå)

« 1 ... 12 13 14 15 16 17 18 »
Re: Modifier Userform
#141
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 20-01-2012 03h13
 Salut le forum

Une façon de le faire avec une comparaison dans la boucle
Sub MarqueFeuillesListbox()
Dim AvailableSheet As Worksheet
Dim Liste As String

Liste = "Sup,Menu"

For Each AvailableSheet In ActiveWorkbook.Worksheets
  If AvailableSheet.Visible = xlSheetVisible Then
    If InStr(Liste, AvailableSheet.Name) = 0 Then
      LbFeuilles.AddItem (AvailableSheet.Name)
    End If
  End If
Next AvailableSheet

On Error GoTo 0

End Sub
Mytå
Hors Ligne
 Rapport   Haut 

Re: aide pour cree un fichier qui recupere les pronostique de zeturf et geny
#142
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 13-01-2012 21h58
 Salut le forum

Tu as déjà fait la même demande : 

http://www.mdf-xlpages.com/modules/ne ... ?topic_id=920&forum=1

Mytå
Hors Ligne
 Rapport   Haut 

Re: impression de plusieur onglet
#143
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 27-11-2011 05h23
Salut le forum

Pour le bouton Charger Onglets
Sub ChargeListBox()
Dim Sh As Object
With Sheets("Feuil1").ListBox1
    .MultiSelect = fmMultiSelectExtended
    .ColumnCount = 2
    .ColumnWidths = "60;20"
    .Enabled = True
    .Clear
  For Each Sh In Sheets
   If Sh.Name <> ActiveSheet.Name Then
    .AddItem 'ajout d'une ligne
      .List(.ListCount - 1, 0) = Sh.Name
      .List(.ListCount - 1, 1) = 1
   End If
  Next Sh
End With
End Sub
Un bouton permettant de choisir le nombre de feuille.
Sub NbreFeuille()
Dim Nbre As Byte, I As Integer

Nbre = Application.InputBox("Indiquer le nombre d'impression", Type:=1)

With Sheets("Feuil1").ListBox1
  For I = 0 To .ListCount - 1
    If .Selected(I) Then .List(I, 1) = Nbre
  Next I
End With

End Sub
Pour l'impression
Sub Imprimer()
Dim i As Integer

With Sheets("Feuil1").ListBox1
  For i = 0 To .ListCount - 1
    If .List(i, 1) > 0 Then Sheets(.List(i, 0)).PrintOut Copies:=.List(i, 1)
  Next i
End With

End Sub
Mytå
Hors Ligne
 Rapport   Haut 

Re: Modifier un code VBA
#144
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 25-11-2011 22h36
 Salut le forum

Je ne vois pas pourquoi tu t'obstines à mettre les codes dans des modules de classes.

Dans le module de la feuille11 (Patron)
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
    Set Plage = Application.Intersect(Target, Range("Presence"))
    If Not Plage Is Nothing Then
        Cancel = True
        Plage.Value = IIf(Target(1).Value = "X", "", "X")
    End If
End Sub
Mytå
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#145
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 24-11-2011 02h51
 Re le forum

Je croyais que tu lançais la macro depuis la feuille "DonnéeWeb"
Sub Macro3()
With Sheets("DonnéeWeb")
  .Select
  .Cells.ClearContents
    With .QueryTables.Add(Connection:= _
        "URL;https://www.fdj.fr/jeux/euromillions/tirage", Destination:=Range( _
        "A1"))
        .Name = "search?hl=fr&q=fdj="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End With
End Sub
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#146
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 23-11-2011 00h34
Salut le forum

Tiens, Slijack vient de déménagé 

Code modifié
ActiveSheet.Cells.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.fdj.fr/jeux/euromillions/tirage", Destination:=Range( _
        "A1"))
        .Name = "search?hl=fr&q=fdj="
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Hors Ligne
 Rapport   Haut 

Re: Filter ma Liste Suivant Equipement
#147
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 16-11-2011 23h31
Salut le forum

Hosni, tu as déjà fait une demande sur un autre forum.

Re: Filter ma Liste Suivant Equipement

Messagede Hosni » 12 Nov 2011, 10:38

Bonjour dubois;
J'ai vu votre travail il est parfait, je testes plus et je te tiens au courant . . .

Fourni le fichier et on adaptera ce qui ne convient pas.


Mytå
Hors Ligne
 Rapport   Haut 

Re: Horloges multiples dans userform
#148
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 05-11-2011 02h29
 Re le forum

Combien de Textbox as-tu besoin ?
Qu'arrive-t-il si la personne ferme le formulaire (Userform) ?
... si la personne clique sur un Textbox déjà renseigner ?
... si la personne s'est trompée de Textbox ?

A te relire
Mytå

Edité par Mytå le 05/11/2011 04:30:29
Hors Ligne
 Rapport   Haut 

Re: Horloges multiples dans userform
#149
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 03-11-2011 20h08
 Salut le forum

Bienvenue Marlot comme nouveau membres.

Sans le fichier de Didier, difficile de t'aider.

Mytå
Hors Ligne
 Rapport   Haut 

Re: Case à Cocher
#150
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 01-11-2011 04h38
 Re le forum

Rien à ajouter MTH, sinon que la macro ne centre pas le "X" sur la cellule.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
If Not Intersect(Target, Range("Afficher")) Is Nothing Then
    Target = IIf(Target = "", "X", "")
    Target.HorizontalAlignment = xlCenter
End If
End Sub
Mytå
Hors Ligne
 Rapport   Haut 

« 1 ... 12 13 14 15 16 17 18 »