bonjour ,
j'ai un petit souci avec un bout de code ( je ne peux pas mettre le fichier car il s'agit d'une module qui est appeler par un autre module ect ....
je souhaite chercher le mot "Nom " a partir de la colonne B ( en gros j'ai besoin d'exclure la colonne A )
le code fonctionne bien et j'aimerai qu'il n’évolue pas trop ( dans la mesure du possible ) juste y ajouter une fonction plage
ce que fait ce module , il cherche le mot " Nom " et ensuite je prend la cellule la 5 imie cellule a droite et l'active pour lui affecter la valeur ' G" que j'utilise ensuite
Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 5).Select
' Range("a20").Select
Sub Gs(Nom As String, Lien As String)
Dim Cellule As Range
Dim Lig As Long, G As String
Sheets("Temp2").Select
Cells.ClearContents
With Sheets("Temp2")
Lig = .Cells(.Rows.Count, "B").End(xlUp).Row
.Cells(Lig + 2, 1) = Nom
.Cells(Lig + 2, 1).Font.ColorIndex = 3
.Cells(Lig + 2, 1).Font.Bold = True
With .QueryTables.Add( _
Connection:="URL;" & Lien, _
Destination:=.Cells(Lig + 3, 1))
.BackgroundQuery = False
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End With
Cells.Find(What:=Nom, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 5).Select
' Range("a20").Select
G = ActiveCell.Value
end sub
merci d'avance pour votre aide