Rechercher dans une colonne suite de numéros variables

La Loterie Nationale gère les droits relatifs aux Données. La Loterie Nationale est autorisée à (faire) modifier ou à supprimer unilatéralement les Données à tout moment. Un tel acte ne constitue aucunement une faute et ne crée pas de précédent.

L’utilisateur dispose exclusivement d’une licence d’utilisation stricte eu égard aux données (Data) dans le cadre de l’utilisation normale du site Internet sur un ordinateur et à des fins privées. Il est interdit à l’utilisateur de copier, de distribuer, d’adapter, de transformer, de traduire, etc. les Données à d’autres fins sans l’autorisation explicite de la Loterie Nationale et, le cas échéant, du titulaire initial des droits de propriété intellectuelle.
Il lui est également interdit de placer un hyperlien renvoyant au site Internet de la Loterie Nationale ou un ‘deep link’ (l’encadrement d’un site internet dans un autre site internet) sans l’autorisation écrite préalable de la Loterie Nationale.

Cliquez pour agrandir...

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

Cliquez pour agrandir...

Il est interdit à l’utilisateur de copier, de distribuer, d’adapter, de transformer, de traduire, etc. les Données à d’autres fins sans l’autorisation explicite de la Loterie Nationale et, le cas échéant, du titulaire initial des droits de propriété intellectuelle.

Cliquez pour agrandir...

juste copier le contenu de leur page

Cliquez pour agrandir...

Merci, mais dans ce tirage , en effet les numéros sortis étaient en effet dans la "A73" , mais cela varie à chaque tirage, donc comment retrouver la suite de numéro?
A+
Claudy

Cliquez pour agrandir...

Sub Querry_aa()
'Macro écrite par Claudy
'Corrigée le 18/10/2014
Application.ScreenUpdating = False
'source:

Application.ScreenUpdating = False

Feuil1.Visible = True
Sheets(1).Activate

Cells.Select
Selection.ClearContents

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.voleur/fr/toto/kiki" _
, Destination:=Range("A1"))    'adapter avec l'URL réelle
.Name = "lastresults"
.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
Range("A73").Select

'///
Dim var
Dim i&
Dim k&
Dim bool As Boolean

var = ActiveSheet.UsedRange
For i& = 1 To UBound(var, 1)
  If Len(var(i&, 1)) > 7 Then
    For k& = 1 To Len(var(i&, 1))
      If Not IsNumeric(Mid(var(i&, 1), k&, 1)) And Mid(var(i&, 1), k&, 1) <> " " Then
        bool = True
        Exit For
      End If
    Next k&
    '---
    If Not bool Then
      ActiveWindow.ScrollRow = i&
      Range("a" & i& & "").Select
      Exit For
    End If
    bool = False
  End If
Next i&
'///

Exit Sub

End Sub

Dernière modification par Staple1600 Aujourd'hui à 19h31. Motif: maj suite édition

Cliquez pour agrandir...