imbriquer un 2eme code dans un premier

[pascal21]

If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim Derlig As Integer
Application.ScreenUpdating = False
Derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Row ' Dernière ligne de la colonne A
Range(ActiveCell, ActiveCell.Offset(0, 6)).Copy Sheets("journal des mouvements").Range("A" & Derlig + 1)
End If

Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

+ en tout dernier, effacement des valeurs et des commentaires des cellules H et I de la même ligne bien sur

bonsoir le forum
j'aimerais arriver à intégrer le 2eme code dans le 1er et ensuite intégrer le code qui permet d'effacer le cellules H et I ainsi que le commentaire qu'elles contiennent
il y a des codes tout tarabiscotés que j'arrive à modifier facilement et d'autres comme celui-ci où je n'arrive à rien
merci de votre aide

 

[kjin]

Re : imbriquer un 2eme code dans un premier

Bonsoir Pascal,
Je ne comprends pas, ça change !
Mais je je pense qu'en relisant toi-même la question, tu comprendras sans doute pourquoi
-1 --> Selection --> kesako ?
-2 --> tu veux effacer la valeur et le commentaire...que tu viens de coller ?
A+
kjin

 

[pascal21]

Re : imbriquer un 2eme code dans un premier

bonsoir
feuil1 la matrice j'aimerais copier les valeurs et les commentaires de cette matrice dans le journal des mouvements
ensuite seulement effacer le contenu des cellules (valeurs et commentaires) H et I de la matrice
et je viens de penser à un truc ne pas copier le commentaire de la colonne C
le 2eme code est un extrait réalisé avec l'enregistreur de macros

 

[kjin]

Re : imbriquer un 2eme code dans un premier

Bonsoir,
L'usage de "Target" me laisse supposer que c'est une macro événementielle...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, dl%
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
Set rng = Range(Target, Target.Offset(0, 6))
With Sheets("journal des mouvements")
    dl = .Range("A65536").End(xlUp).Row + 1
    rng.Copy .Range("A" & dl)
    On Error Resume Next
    .Range("C" & dl).Comment.Delete
    On Error GoTo 0
End With
Range("H" & Target.Row, "I" & Target.Row).Clear
End Sub

A+
kjin

 

[pascal21]

Re : imbriquer un 2eme code dans un premier

bonjour et merci
c'est tout à fait ce que je voulais