Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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 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...
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...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.