pb macro

[Jul74ien74]

Bonjour,

j'ai un petit soucis.

voici ma macro:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim objFeuille As Worksheet, objPict As Picture
Application.ScreenUpdating = False
opt = Target.Value
adr = Target.Row
Range("F" & adr).Select
On Error Resume Next


If Not (Intersect(Target, Range("K24:K170")) Is Nothing) Then
'
suite:
Sheets("Feuil1").Select
Select Case opt
Case "Créer"
Range("F" & adr).Delete
Range("C19").Select
Selection.Copy

Range("F" & adr).Select
ActiveSheet.Paste

Case "Supprimer"
Range("F" & adr).Delete

Range("C18").Select
Selection.Copy

Range("F" & adr).Select
ActiveSheet.Paste
Case Else
Range("F" & adr).Delete

Range("C20").Select
Selection.Copy

Range("F" & adr).Select
ActiveSheet.Paste
End Select
On Error GoTo 0
End If
End Sub


Mon soucis c'est que lorsque je selectionne par exemple k30 et que je mets Créer dans la liste déroulante, l'image associé va bien se coller au bon endroit mais le contenue et la mise en forme de la cellule k30 se décale d'une colonne en arriere...
je ne comprend pas.

 

[Jul74ien74]

Re : pb macro

personne?
merci

 

[Paf]

Re : pb macro

Bonjour

peut-être en utilisant ClearContents plutôt que Delete

Range("F" & adr).Delete supprime la cellule et provoque un décalage des cellules suivantes
Range("F" & adr).ClearContents efface le contenu de la cellule sans provoquer de décalage

A+