Recherche:

techniquement si tu supprimes la ligne entière tu devrais pas avoir de trous 8-)

ah moins que les "trous" soient autre chose

essaie de le mettre en


Private Sub TextBox1_Change()

Le Userform_Initialize() c'est quand tu charges le formulaire a priori il est vide au chargement il pourra jamais t'afficher ton truc

sous powerpoint elles sont disponibles mais en cm (format de la zone de graphique -> taille / position ), me semble pas que tu peux mettre directement des valeurs en cm en vba.
VBA utilise le point,...

d'après ce que j'ai compris suffit d'écrire à l'envers !




With Pres.Slides(2).Shapes(1)
gauche = .Left
haut = .Top
hauteur = .Height
etc = .Width

pour moi l'erreur vient du type de la variable



y = .Cells(ligne - 1, 6).Value 'montant dans la ligne "dessus"

ligne vaut 2, donc 2 - 1 = 1 donc tu tombes sur ta ligne d'en-tête qui est...

si t'écris Range("A" & blabla) tout seul il fera par défaut le traitement dans la feuille active, si tu veux "bloquer" sur une feuille tu rajoutes la feuille avant : Sheets("Récap").Range("A" &...

il veut peut etre une valv par ligne

j'imagine que c'est inimaginable de dissocier le groupe 10 ?

je sais pas si c'est possible de copier un élément imbriqué d'un groupe, en tout cas tu peux toujours tester ce code d'escroc :


...

explique un peu plus le problème : quand tu dis ça que ça fonctionne pas : y'a un message d'erreur ? sur quelle ligne ? que dit l'erreur ?

essaie de mettre tes variables Ctoto, Ctati, Ctonton etc. en Long au lieu de String l'indice de colonne que renvoie ton find est un nombre et pas du texte

ton graphique est imbriqué dans une forme (c'est la numéro 10 chez moi)peut être pour ça que ça marche pas

peut être essayer ça :


Sheets("Accueil").Shapes("Groupe 10").Copy

pour coller en...

surement car ligne = 0 , ya pas de ligne 0 sur excel fuat démarrer ligne à 1.

un filtre sur ta colonne 15 directement c'est peut etre plus rapide pour ce que tu veux faire

une méthode (un peu trop) violente c'est de l'éliminer avec un taskill


TASKKILL /F /IM lenomdelatâche.exe

je connais pas windows media

d'apres ce que je comprends suffit de l'appliquer sur ta colonne T, après une MFC sur une colonne c'est peut etre un peu lourd (je sais pas je l'utilise que sur quelques cellules ce truc là)

peut etre ça :


Sheets("Accueil").ChartObjects("Graphique 8").copy

ouaip me semble que c'est ce que tu cherches :



Sub dossier()

Dim ShellApp As Object
Dim chemin As String

Set ShellApp = CreateObject("Shell.Application")

il veut peut etre parler d' adodb plutôt, parce que c'est vrai qu' adob je vois pas trop le rapport non plus

salut,


je sais pas si t'as trouvé dépuis, (je suis sur la version 2010 ça peut etre différent si t'as une autre version), apres avoir cliqué sur ton rectangle tu vas dans le menu...

selon la doc la valeur de msoLinkedOLEObject est 10

office 2007 : https://msdn.microsoft.com/en-us/library/aa432678(v=office.12).aspx

office 2013 :...

j'ai d'activé:

Visual basic for applications
Microsoft Office 14.0 Object Library
OLE Automation
Microsoft PowerPoint 14.0 Object Library
Microsoft Excel 14.0 Object Library
Microsoft Forms...

t'as plusieurs solutions :

si tu connais le numéro de diapo tu peux faire ça directement (i est le numéro de la diapo), ça tourne et sélectionne toutes les shapes et donne leurs noms dans la...

Regarde dans outils-> Références... si "Microsoft Office 14.0 Object Library" est coché

c'est normal qu'il en créé une à chaque fois que tu cliques, au début y'a :


Set shp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 350, 400, 350)

sinon tu peux créer une zone de...

étrange chez moi : sh.LinkFormat.Update fonctionne très bien :aie:

sinon tu peux aussi tester un code ultra détaillé



ActivePresentation.Slides(sld.Name).Shapes(sh.Name).LinkFormat.Update

salut !

t'as peut etre déjà trouvé une solution sinon tu peux essayer ça pour voir si ça marche :



Private Sub ComboBox1_DropButtonClick()

ComboBox1.Style = fmStyleDropDownCombo
If...