Discussion :

[lcoulon]

Bonjour,


Je cherche à créer une macro VBA qui, lorsque qu'elle appelée dès lors qu'un tableau est sélectionné :

- Déplace l'image présente en colonne 1 en colonne 2
- Redimensionne à 0 ou mieux encore supprime la cellule (ou colonne 1) pour ne garder que la colonne 2 sur l'intégralité de la largeur disponible.

J'ai essayé avec l'enregistreur de macro, ça ne fonctionne pas du tout, de plus je crois que l'enregistreur ne gère pas les images.

Cette macro ne fonctionne pas non plus :

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
Sub Macro1()
    If Selection.Information(wdWithInTable) Then
        Dim tbl As Table
        Set tbl = Selection.Tables(1)
 
        If tbl.Columns.Count > 1 Then 
            Dim firstCell As Cell
            Set firstCell = tbl.Columns(1).Cells(1) 
 
            For Each Row In tbl.Rows
                Row.Cells(2).Range.FormattedText = Row.Cells(2).Range.FormattedText
            Next Row
 
            firstCell.Delete
        End If
    Else
        MsgBox "Tableau non sélectionné"
    End If
End Sub

Je vous remercie beaucoup e votre aide,
Cordialement,