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...
Partager