répétition sur plusieurs lignes

[Leopold Mars]

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?

 

[Staple1600]

Bonjour le fil, le forum, Leopold Mars

Pas de petit bonjour pour commencer ton message?
T'es juste mal réveillé ou malpoli de nature? 😀
(voir la charte du forum)

 

[Leopold Mars]

Je suis désolé, la tête dans mon problème j'oublie l'essentiel.
Bonjour à toutes et tous.

 

[Staple1600]

Re

Bon maintenant on sait que tu es poli et que tu as une macro 😉
Mais nous ici on n'a point vu l'ombre d'un poil d'une ligne de cette macro 😉

 

[Leopold Mars]

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

 

[Leopold Mars]

Je viens de m'appercevoir que j'ai traité la première ligne 2 fois c'est une erreur.

 

[Staple1600]

Re,

@Leopold Mars
Tu peux joindre un fichier Excel (sans données confidentielles) pour y voir plus clair, stp ?

 

[Leopold Mars]

J'ai été un peu long...désolé
Merci pour votre patience.

 

[Staple1600]

Re

Je te laisse tester sur ton fichier réel

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

 

[Leopold Mars]

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

 

[Leopold Mars]

ça coince au niveau de la ligne paste. erreur 438

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

 

[Staple1600]

Re

Au jugé et sans grande conviction, testes cette variante

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

 

[Leopold Mars]

Cela fait bien défiler les enregistrements mais cela ne copie pas l'information voulue.
Voici ce qui s'inscrit dans la colonne 'C' de mon tableau.

Sub test2()
Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row
For i = 3 To derlig Step 4
Sub test2()
Dim derlig&
derlig = Cells(Rows.Count, "B").End(3).Row
For i = 3 To derlig Step 4
table { }tr { }col { }br { }td { padding-top: 1px; padding-right: 1px; padding-left: 1px; color: black; font-size: 12pt; font-weight: 400; font-style: normal; text-decoration: none; font-family: Calibri, sans-serif; vertical-align: bottom; border: medium none; white-space: nowrap; }.xl65 { color: rgb(20, 20, 20); font-size: 15pt; font-family: "Arial Unicode MS", sans-serif; }

 

[Staple1600]

Re

Et ta macro Macro2, elle copie quel type de donnée ?
(PS: ne pas publier si données confidentielles)

Où est ce que tu fais un copier/coller mauel une fois le lien activé?

 

[Leopold Mars]

Je fais copier coller manuel. c'est une adresse mail.