Bonsoir,
je me permets de vous solliciter sur cette macro qui ne fonctionne pas (suite à mon message d'hier).
Je n'arrive pas à ouvrir le lien hypertexte suivant pour que la macro continue de me copier ce que je lui demande.
Pouvez-vous m'aider SVP.
Merci par avance,
Babouchka
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 me permets de vous solliciter sur cette macro qui ne fonctionne pas (suite à mon message d'hier).
Je n'arrive pas à ouvrir le lien hypertexte suivant pour que la macro continue de me copier ce que je lui demande.
Pouvez-vous m'aider SVP.
Merci par avance,
Babouchka
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