Résultats de la recherche

Je ne m'étais pas clairement exprimé.

A tout petits pas je découvre VBA il y a quelques fois ou la galère permet d'avancer... pas toujours mais...

Je ne parlais pas de nos échanges, même si pour l'instant ils ne me permettent pas d'avancer comme je le voudrais, mais du site des communes.

Je vais choisir un autre site pour faire mes exercises d'entrainement à VBA.

J'ai regardé sur le site annuaire des administrations : il n'y a pas de restriction à la consultation et à la copie des informations. Merci de m'avoir donné l'occasion de vérifier. annuaire des administrations.com

Je vais le lire.

Merci d'avoir essayé. Je continue de galérer et si je trouve j'interviendrais.

Je piétine allègrement, ne connaissant pas l'effet des instructions utilisées.

Je reviens vers vous et je vais tenter de résoudre mon problème grâce à vos essais de solutions.

Je m'absente, on me réclame à la cuisine... Merci pour votre aide je reviendrai dans 2h A bientôt peut etre

Cela bloque en s'arretant après etre allé à la première adresse à copier mais sans la copier ou peut-etre sans la coller? erreur 1004.

J'ai enregistré plusieurs lignes pour voir le résultat et ça marche à condition que je descende dans mon listing à la main dans ma macro.

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

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

ç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

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

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

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

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