XL pour MAC Formule image

patricktoulon à dit:

re
Bonjour
ben déjà si tu a les lien se serait mieux
j'en ai trouvé 1 le 1er en A4 je sais pas si c'est le bon mais bon le principe fonctionne

apres c'est facile avec ceci

VB:

Sub test()
    For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1) <> "" Then
        Set image = ActiveSheet.Pictures.Insert(Cells(i, 1).Value)
        With image
            .Left = Cells(i, 1).Left + 1: .Top = Cells(i, 1).Top + 1: .Width = Cells(i, 1).Width - 2: .Height = Cells(i, 1).Height - 2
        End With
    End If
Next
End Sub

Regarde la pièce jointe 1178069

Cliquez pour agrandir...

Désolé de te faire perdre ton temps ... est-ce que tu aurais besoin d'élément en plus ?

Cliquez pour agrandir...

patricktoulon à dit:

re
bonjour

ben les liens web de chaque logo déjà pour commencer ça sera un premier pas
ou au moins la ou les pages ou on les trouves

après mon code est de niveau débutant c'est simple je boucle sur tout les cellules en colonne A et si il y a un lien vers une image je l'insert avec pictures.insert
tu a un boulot à faire c'est de rechercher sur web pour trouver tes pages de tes clubs ou du logo de tes clubs
et les inscrire en colonne A

si tu trouve au moins les pages des clubs je te donnerais les liens vers les logos
bon courage

Cliquez pour agrandir...

patricktoulon à dit:

bon ben voila
alors maintenant que tu a ta page avec tout tes logos
tu y va et tu clique droite dessus le logo que tu veux(on va les faire tous de toute facon
et dans le menu contextuel tu clique "copier le lien de l'image" et tu colle dans la colonne A sur la ligne correspondant au logo dans la colonne B
démonstration
Regarde la pièce jointe 1178155

après il te restera plus qu'à lancer ma sub pour voir tes logos arriver en colonne A

Cliquez pour agrandir...

patricktoulon à dit:

re
fait le boulot et envoie ton fichier je te mettrais un bouton

Cliquez pour agrandir...

patricktoulon à dit:

re

Cliquez pour agrandir...