Bonjour à tous
Me voici confronté à un problème de taille pour moi mais qui n'ai rien pour vous (j'imagine)
Je travaille essentiellement sur MAC et la version excel présente quelques petites différences avec celle de windows...
Mon principal problème vient quant aux paramétrages des données sur une feuille...
Par exemple un fichier bien paramètre sur MAC qui s'imprime sur 2 pages se paramètre n'importe' nawac si on l'ouvre avec un PC.
Avez vous une solution à ce probleme?
Sinon je pourrais me débrouiller avec un petit code pour centrer une image dans une cellule.
Voici mon code actuel :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Shape
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("C7:C100")) Is Nothing Then
On Error GoTo Etiquette
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Target.Offset(0, 0)) Is Nothing Then
s.Delete
End If
Next s
Etiquette:
Sheets("BASE").Visible = True
If Target = "FIXE" Then
Sheets("BASE").Select
ActiveSheet.Shapes.Range(Array("400590872569")).Select
Selection.Copy
Sheets("PROPOSITION COMMERCIALE").Select
Target.Offset(0, 0).Select
ActiveSheet.Paste
Selection.ShapeRange.Left = ActiveCell.Left + 10
Selection.ShapeRange.Top = ActiveCell.Top + 4
Else
If Target = "OF1" Then
Sheets("BASE").Select
ActiveSheet.Shapes.Range(Array("4005908725611")).Select
Selection.Copy
Sheets("PROPOSITION COMMERCIALE").Select
Target.Offset(0, 0).Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft 17
Selection.ShapeRange.IncrementTop 4
End If
End If
Sheets("BASE").Visible = False
Target.Select
End Sub
Il s'agit d'un code (que Yvouille m'a bien aider à réaliser) qui affiche une image dans la cellule de droite d'une variable définie par une liste.
Je voudrais seulement ajouter un code qui me permette de centrer cette image dans la cellule en remplacement de celui en rouge qui me place la'image mais selon MAC ou PC pas au même endroit (Bill et Steves ne seront jamis d'accord sur rien...
"A défaut d'être intelligent, on essaie d'être malin..."