Bonjour,

merci de m'accueillir sur votre forum;

je suis grande débutante en macro.

J'ai crée qqc qui ne fonctionne pas.

J'ai un tableau excel avec plusieurs colonnes. Dans la colonne E, j'ai une liste de liens hypertextes qui doivent s'ouvrir pour récupérer de l'information (l'information variable est toujours entre deux champs identiques) et cette information doit être collées en colonne c en sachant que e3=c3 et je souhaite que le tableau soit lu jusqu'à la dernière ligne trouvée.

Merci si un membre peut m'aider.

Salutations,

Babouchka

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub ESSAI3()
''Dim mCellule As Object
    Dim lCompteur As Long
    lCompteur = 0
    For Each mCellule In Range("E:E")
        If mCellule.Value <> "" Then
 
Range("E:E").Select
    Selection.hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Range("C:C").Select
    ActiveCell.FormulaR1C1 = _
        "DWPI Title  [Click to see description of this field]    " & Chr(10) & "Electric vehicle performs regenerative control of motor with low drive frequency, when application of damping force to axle is notified" & Chr(10) & "Assignee/Applicant  [Click to see description of this field]    "
    With ActiveCell.Characters(Start:=1, Length:=255).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
 lCompteur = 0
            Else
            ' Sort de la boucle dès qu'on a rencontré 20 cellules vides de suite
            lCompteur = lCompteur + 1
            If lCompteur > 20 Then Exit For
        End If
    Next
End Sub

Je vous indique ci-dessous le mauvais code...