Contenu récent par sebt56

Re : automatiser macro Merci ça marche je l'ai encore plus simplifié : je donne a toutes les image la même macro Option Explicit Sub Image_QuandClic() mamacro End Sub Sub mamacro() If MsgBox("Confirmer la saisie du préventif --> '" & Application.Caller & "' ?", _ vbYesNo...

Re : afficher une image selon résultat d'une formule Merci mais j'ai trouvé une autre solution : a mettre dans un module Function AfficheCache(nb, seuil, image) If nb > seuil Then ActiveSheet.Shapes(image).Visible = True Else ActiveSheet.Shapes(image).Visible = False End If...

Bonjour, dans un tableau j'ai 52 images (par lignes) et quand je clic sur l'une d'elle sur la ligne du dessous j'écrit "2". j'ai enregistré une macro pour le faire mais je cherche une solution pour évité d'avoir 1 macro par image. (en tout dans mon tableau j'ai 520 images) Merci voila les...

bonjours, je voudrai que en A1 s'afficher le numéro de la ligne que survol la souris. j'ai trouvé ce code mais je n'arrive pas a le convertir en mousemove Merci Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As Range) ActiveSheet.Range("A1").Value =...

Salut, je voudrai faire apparaitre une image selon le résultat d'un calcul j'ai testé ceci : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 And Target.Count = 1 Then '-- suppression For Each s In ActiveSheet.Shapes If s.Type = 13 Then If...