Résultats de la recherche

Bonjour à tous Cette macro marche aussi sans Select et supprime le format en une seule fois. Sub init_Click() Dim k As Long For k = 1 To Worksheets.Count Worksheets(k).Visible = -1 Worksheets(k).Range("C5:L22").ClearFormats Next k End Sub

Bonjour à tous On peut faire comme ca (Avec un seul graphique sur la feuille courante) Sub Macro1() ActiveSheet.ChartObjects(1).CopyPicture ActiveSheet.Paste Destination:=ActiveSheet.Range("K1") End Sub

Bonjour à tous Il y a plein de feuilles qui sont masquées dans le classeur. En ajoutant ce test, pas d'erreur ici Private Sub init_Click() Dim k As Long For k = 1 To Sheets.Count - 1 If Not Worksheets(k).Visible Then Worksheets(k).Visible = -1 With Worksheets(k).Range("C5:L22").Interior...

Bonjour à tous roro69 Le code dans ton classeur n'est pas celui que tu as mis dans le premier message. Tu peux mettre les données en seule fois dans le tableau Sub MacroTableau() Dim montablo montablo = Range("A1").CurrentRegion.Value MsgBox montablo(2, 1) MsgBox montablo(2, 2) MsgBox...

Bonjour à tous roro69 "For i As Integer = 1 To folds.Length - 1" C'est quoi folds? Un contrôle?

Bonjour à tous Une autre manière d'écrire la macro. Normalement, ça donne le même résultat Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then If...

Bonjour à tous Merci Dranreb, Grâce à toi c'est presque bon ;) (Il me reste à régler l'espace entre les images au milieu de la diapo) Je me suis aperçu qu'il faut renseigner les dimensions en points et pas en pixel, ce que j'ai fait dans la macro du début Voila où j'en suis grâce à toi Sub...

Bonjour à tous Je relance la discussion.

Bonjour à tous Je relance la discussion. Est-ce que quelqu'un voit comment faire ? Merci.

Bonjour à tous Je relance la discussion. Je bloque toujours pour faire en macro ce qu'on peut faire avec la fonction AlbumPhoto. Je veux passer par VBA parce que quand il y a beaucoup de photos powerpoint rame enormement.

Bonjour à tous, J'ai trouvé une solution sans macro avec l'option Photo-Album dans Powerpoint. Mais comme on peut pas enregistrer de macro, j'arrive pas à le faire en VBA. Est-ce que quelqu'un peut à trouver comme faire cette macro ?

Bonjour à tous J'ai une macro pour importer une image par diapo en sélectionnant un dossier. Sub PowerPoint_Import() Dim ImgI As Long, tmpDIAPO As Slide With Application.FileDialog(msoFileDialogFilePicker) .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1 If .Show = -1 Then For ImgI = 1 To...

Bonjour à tous Set rngeSend=Range("H12") Ou aussi Sub MacroTest() Dim rngeSend Set rngeSend = Application.InputBox(Prompt:="Please select range you wish to send.", Type:=8, Default:=Range("H12").Address) rngeSend.Select End Sub

Bonjour à tous Dans la librairie développeur de Microsoft, ils disent que ca été mis dans Excel 2007 Ce lien n'existe plus

Suite du message 2 (bonjour phlaurent55) Sub macroTest() Dim i As Long For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1 If Cells(i, "C") = 1 Then Cells(i, "B") = Cells(i, "B") + 3 End If Next End Sub

Bonjour à tous Cells(2,3) Cells(Rows,Columns) Donc c'est la colonne 3 qui est visée

Bonjour à tous JM27 Pas mal ton idée. Ça confirme qu'on ne peut utiliser la propriété ControlTipText que par la souris.

Si ca été programmer comme ca dans Excel par les ingénieurs de Microsoft, on est bien obligé de suivre leur méthode, non ?

L'aide précise bien que cela fonctionne avec la souris uniquement. On peut rien faire d'autre, non ?

Bonjour à tous Si tu renseignes le ControlTipText directement dans les propriétés des controles Le code VBA n'est plus utile. Dans l'aide , on dit que c'est par la souris qu'on affiche le ControlTipText