Discussion :

[jean30]

Bonjour monsieur,

Dans un classeur Excel ou j'ai 7 feuilles,
Je voudrais sélectionner sur la feuille 1, la zone qui va de A2 à Px, le nombre de lignes étant variables mais dans la colonne D il n'y a jamais de cellules vides.
sur la feuille 2, la zone irait de A2 à Kx, la colonne B n'aurait jamais de cellules vides
sur la feuille 3, la zone irait de A2 à Hx, la colonne E n'aurait jamais de cellules vides.
J'avais pensé procéder avec l'appareil photo de Excel
Mais comment déterminer que l'icone est déjà présente dans la barre et si non, comment l'ajouter.
Puis coller les "photos" sur la feuille 4 les unes en dessous des autres afin de limiter le nombre de pages à l'impression.

Je vous remercie monsieur de m'aider.

[kiki29]

Salut,sous Excel 2002, pour l'installer tu peux y arriver via l'enregistreur de macros et aboutir à qqch comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=280

[jean30]

Bonjour monsieur,
Je vous remercie de m'avoir répondu même si apparemment, cela résoud la dernière partie de mon souhait en ce qui concerne l'affichage de l'appareil photo.
Peut-on tester si cette icone est déjà en place ?

[kiki29]

Re,à priori cela fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit
 
Private Function Tbars(sNom As String) As Boolean
Dim cmdBar As CommandBar
Dim Ctrl As CommandBarControl
 
    Tbars = False
    For Each cmdBar In CommandBars
        If cmdBar.Type = msoBarTypeNormal Then
            For Each Ctrl In cmdBar.Controls
                If Ctrl.Caption = sNom Then
                    Tbars = True
                    Exit Function
                End If
            Next Ctrl
        End If
    Next cmdBar
End Function
 
Sub Tst()
    If Tbars("P&hoto") = False Then
        Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=280
    End If
End Sub

[jean30]

Bonsoir monsieur,
Je viens d'esseyer le code et ca me marque :
Ereur de compilation: Sub ou Function non définieJe commence seulement a découvrir les codes et jai beaucoup à apprendre, si vous pouviez me dire ce ce signifie le code j'apprécierai beaucoup.
J'espère que ca ne vous ennuie pas de me l'expliquer.
Je vous remercie beaucoup de m'aider.

[kiki29]

Re,dans la collection CommandBars tu vas les balayer toutes en y cherchant un élément dénommé "P&hoto"
jusqu'à le trouver ou pas et retourner via Tbars True ou False

Tu as des tutos
http://silkyroad.developpez.com/VBA/DebuterMacros/
http://excel.developpez.com/cours/ etc
et la FAQ à consulter http://excel.developpez.com/faq/
sans oublier l'aide en ligne

[jean30]

Bonjour monsieur,
C'est ce que je fais actuellement, donc, si je comprends bien, ce n'est pas possible de mettre ces "photos automatiquement les unes en dessous des autres ?
Car le nombre de ligne varie d'un document à l'autre.
Je vous remercie monsieur.

[kiki29]

Re, à adapter à ton contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub MiseEnPage()
Dim Img As Shape
Dim Pas As Double
 
    Pas = 5
    With Feuil3
        For Each Img In .Shapes
            With Img
                .Left = 15
                .Top = Pas
                .Width = 100
                .Height = 250
                Pas = Pas + .Height + 10
            End With
        Next Img
    End With
End Sub