Contenu récent par jeromeN95

Bonjour Staple, qu'es ce que : " Private Sub CopierShape(ws1 As Worksheet, ws2 As Worksheet, shpIdx&) Dim shp As Shape Set shp = ws1.Shapes(shpIdx).Duplicate: shp.Cut: ws2.Paste End Sub " ? Avantage ?

Bonjour Soan, merci pour ta proposition. Peut tu écrire le code complet stp avec If Target.Address <> "$D$2" Then Exit Sub ? J'ai une erreur : Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If D2 Then If Target.Address <> "$D$2" Then Exit Sub If Not IsNumeric(Sh.Name) Then...

Bonjour Phil69970 Je te remercie pour ta réactivité. Ta proposition semble améliorer la rapidité de fonctionnement de mon classeur. Néanmoins il reste lent. Je pense, de ce fait, qu'il s'agit plutôt des nombreuses photos formule. En effet, je fonctionne avec des images (appareil photo) en...

Bonjour à toutes et à tous, Tout d'abord meilleur voeux ! J'ai ce code qui ralentie considérablement mon classeur : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If D2 Then If Not IsNumeric(Sh.Name) Then Exit Sub Dim c As Range, S As Shape Application.ScreenUpdating = False On...

Super, ca fonctionne et c'est vrai que c'est un peu plus rapide. Merci.

Bonjour à tous, feuille "Sommaire", un icone pour cliquer et ca enregistre les feuilles (de 1 à la dernière), en format PDF dans le dossier. Sub CrationPNDenPDF() Dim sNomFichierPDF As String 'pour PDF Dim i% Dim stFeuille As String 'pour logo et pictogramme '''PDF''' If Sheets.Count < 3 Then...

Bonjour, c'est géniale. Ca fonctionne et je comprend pourquoi. Un énorme merci job75. Bravo.

Bonjour PatrickToulon, je te remercie. J'ai du faire une boulette car ça ne fonctionne pas. J'ai mis un icone, associé à la macro, mais pas de modifie. Je joint un fichier au cas où. Merci. ;-)

Bonjour, je souhaiterai adapté ce code : Sub aa() Dim S As Shape Dim R As Range For Each S In ActiveSheet.Shapes If S.Type = msoPicture Then Set R = S.TopLeftCell Set R = R.Offset(0, -1) S.Name = R End If Next S End Sub pourrais je avoir l'adaptation pour uniquement la plage...

Bonjour, pourrais je avoir l'adaptation pour uniquement la plage B3:B157 Les images sont en colonnes B, les noms en C svp?

Super merci pour la plage. L'idée c'est d'utiliser une macro à la fin pour imprimer. Dans la boite où je travail, il y à des gogols en informatique. Du coup ok mais elle n'imprime pas tout les logo du coup : Sub CrationPNDenPDF() Dim sNomFichierPDF As String 'pour PDF Dim i% 'Dim i As Integer...

Ah vraiment pas mal! je ne savais pas que l'on pouvais faire ça. Alors juste une dernière opération en supprimant stp. Est'il possible de ne pas supprimer toute les images de la feuille car j'ai quelques logo et autre image que je souhaite conserver stp ? Appliquer : "Sh.DrawingObjects.Delete"...

Bonjour Job75 & Merci. La liste dans la feuille "Sommaire" de B33 à B51, c'est une liste déroulante pour l'utilisateur. Elle même tire ses produits de la Feuille "LISTE" dans laquelle il y a tout. Une base de donnée en somme. J'aimerai déclencher l'ajout des images uniquement après avoir...

Bonjour à tous, Je recherche de l'aide svp : J'ai 25 feuilles (de 1 à 25) strictement identique sauf les valeurs déjà connu de E4 jusqu'à E13 Au départ, j'avais utiliser la fonction "Appareil photo" d'Excel, mais étant donner qu'il y a environ : 13 images par page, et 25 pages, cela fait 325...

Super. C’est top comme solution. « BRAVO » & « Merci »