Pb

[Jul74ien74]

Bonjour,

Qu'est ce qui cloche ds mon bout de code???


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:K370")) Is Nothing) Then


suite:

Sheets("Feuil1").Select
Select Case opt
Case "Créer"
If Not Intersect(Range(Sheet.TopLeftCell.Address), Range("F" & adr)) Is Nothing Or _
Not Intersect(Range(Sheet.BottomRightCell.Address), Range("F" & adr)) Is Nothing Then
Sheet.Delete
End If
Range("C19").Select
Selection.Copy

Range("F" & adr).Select

ActiveSheet.Paste


Case "Supprimer"
If Not Intersect(Range(Sheet.TopLeftCell.Address), Range("F" & adr)) Is Nothing Or _
Not Intersect(Range(Sheet.BottomRightCell.Address), Range("F" & adr)) Is Nothing Then
Sheet.Delete
End If
Range("C18").Select
Selection.Copy

Range("F" & adr).Select

ActiveSheet.Paste

Case Else
If Not Intersect(Range(Sheet.TopLeftCell.Address), Range("F" & adr)) Is Nothing Or _
Not Intersect(Range(Sheet.BottomRightCell.Address), Range("F" & adr)) Is Nothing Then
Sheet.Delete
End If
Range("C20").Select
Selection.Copy

Range("F" & adr).Select

ActiveSheet.Paste
End Select
On Error GoTo 0
End If



End Sub




la partie:
If Not Intersect(Range(Sheet.TopLeftCell.Address), Range("F" & adr)) Is Nothing Or _
Not Intersect(Range(Sheet.BottomRightCell.Address), Range("F" & adr)) Is Nothing Then
Sheet.Delete
End If

est la pour ne pas supperposé les images, mais ca ne marche pas

 

[john]

Re : Pb

Bonjour,
C'est tjrs mieux quand on a un fichier pour tester...
Bonne journée.
John

 

[Jul74ien74]

Re : Pb

voila le fichier,
par contre j'ai re modif le code
mais si tu colles celui que j'ai mis plus haut, je ne comprends pas que ca ne marche pas.
qd ds la colonne K tu choisi Créer, cela colle bien la bonne image, mais si tu t trompé et que tu veux mettre supprimé au lieu de créer, alors cela te superpose l'image.

 

[john]

Re : Pb

Re,

Voilà j'espère que ça peut te convenir comme ça 🙂

Bonne fin de journée.

John

 

[Jul74ien74]

Re : Pb

nickel, merci bien
maintenant je vais décortiquer le code pour comprendre mes erreurs

 

[john]

Re : Pb

J'ai simplifié au maximum car on s'y perdait un peu dans ton code 🙂
Et quand il y a peu de code, plus facile est de comprendre 😉

John