J'ai une feuille excel avec des enregistrement de 4 lignes chacun.
J'ai fait une macro qui fonctionne pour aller chercher une information et l'inscrire sur la colonne à coté de mon premier enregistrement.
Je voudrais faire la même chose pour mes autres enregistrements.(il y en a 700).
Comment faire?
La voici: J'ai fait l'nregistrement sur deux sujets je voudrais le faire sur le reste de mon listing. il est régulier chaque 4 lignes.
Merci d'avance.
Sub Macro2()
'
' Macro2 Macro
'
'
Range("B3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("B3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("C3").Select
ActiveSheet.Paste
Range("B7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("C7").Select
ActiveSheet.Paste
End Su
Sub test()
Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row
For i = 3 To derlig Step 4
Cells(i, "B").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Cells(i, "C").Paste
Next
End Sub
Sub test() Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row For i = 3 To derlig Step 4
Cells(i, "B").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Cells(i, "C").Paste Next
EndSub
Sub test()
Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row
For i = 3 To derlig Step 4
Cells(i, "B").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Cells(i, "C").Paste
Next
End Sub
Au jugé et sans grande conviction, testes cette variante
VB:
Sub test2()
Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row
For i = 3 To derlig Step 4
Cells(i, "B").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Cells(i, "C").Select
ActiveSheet.Paste
Next
End Sub