Récupérer la valeur de Active Cell

Bonjour le forum,

Voici mon problème du jour, je souhaite réaliser un code qui lorsqu'on double clique sur sur une cellule de mon tableau, le contenu de la ligne s'efface et qu'en même temps cela efface la même ligne dans le meme tableau dans une autre feuille.

Voici le code que j'ai commencé a développer pour l'instant, j'arrive a effacer le contenu de la feuille où je suis mais impossible d'effacer la ligne de l'autre feuille.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim x As Range
Dim y As Range

 If Target.Column = 5 Then

    x = ActiveCell.Offset(0, 0)
    y = ActiveCell.Offset(0, 8)

    ActiveCell.Offset(0, 0).ClearContents
    ActiveCell.Offset(0, 1).ClearContents
    ActiveCell.Offset(0, 2).ClearContents
    ActiveCell.Offset(0, 3).ClearContents
    ActiveCell.Offset(0, 4).ClearContents
    ActiveCell.Offset(0, 6).ClearContents
    ActiveCell.Offset(0, 7).ClearContents
    ActiveCell.Offset(0, 8).ClearContents

    Worksheets("Feuil1").Activate
    Worksheets("Feuil1").Range("x:y").ClearContents

    End If

End Sub

J'ai tenté de bidouiller du code moi-même, je suis en cours d'apprentissage du langage VBA.

Bien cordialement

Bonjour,

code à placer dans le module de la Feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E:E")) Is Nothing Then
lig = Target.Row
Rows(lig).ClearContents
Worksheets("Feuil2").Rows(lig).ClearContents
End If
End Sub

à te relire, cordialement

Bonjour,

En supposant que l'autre feuille soit "Feuil1"

Code à placer sur la feuille qui gère le double-clic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ligne As Long
    Ligne = Target.Row
    ActiveSheet.Rows(Ligne).ClearContents
    Sheets("Feuil2").Rows(Ligne).ClearContents
End Sub

Penser éventuellement à placer une demande de confirmation avant effacement, c'est plus prudent.

Cordialement,

Merci pour vos réponses,

Cependant la ligne contient des cellules fusionnées donc cela marche pas, c'est pour ça que j'avais commencé le code à partir de la colonne 5 jusqu'à la 13.

Si tu mettais en pièce jointe un fichier cela pourrai aider à aller dans ton sens, on ne peut pas le deviner qu'il y a des cellules fusionnées.....

Je ne l'ai pas mis car le fichier est trop lourd, voici une version simplifiée.

Prenons exemple sur la date 1er Fevrier.

La feuille du double clic est CAGE-C01

Cordialement

Forcément on y voit quand même plus clair.

La feuille active où se fait le double-clic est laquelle?

Le but quand tu double-clic n'importe où dans le tableau ça doit effacer quoi les deux lignes correspondantes à la journée (de la colonne C à la colonne N)?

Ednoork a écrit :

Forcément on y voit quand même plus clair.

La feuille active où se fait le double-clic est laquelle?

Le but quand tu double-clic n'importe où dans le tableau ça doit effacer quoi les deux lignes correspondantes à la journée (de la colonne C à la colonne N)?

La feuille active où se situe le double clic est la feuille CAGE-C01

Le but étant de quand on double clic sur une cellule de la colonne E, cela efface les données de cette meme ligne de la colonne E jusqu'a la M dans cette feuille là (CAGE-C01) et la feuille Willy.

Questions:

Les cellules fusionnées sont doivent-elles être effacées ?

Les cellules fusionnées sont-elles fusionnées en ligne, en colonne et sur combien de lignes et combien de colonnes ?

Sur la seconde feuille les cellules fusionnées sont-elle en correspondance exacte ?

En effet, un fichier aurait-été le bienvenu !

Cordialement,

GNIN a écrit :

Questions:

Les cellules fusionnées sont doivent-elles être effacées ?

Les cellules fusionnées sont-elles fusionnées en ligne, en colonne et sur combien de lignes et combien de colonnes ?

Sur la seconde feuille les cellules fusionnées sont-elle en correspondance exacte ?

En effet, un fichier aurait-été le bienvenu !

Cordialement,

1 - Non, juste les cellules de la colonne E à M comme j'avais fait dans le tout premier code que je vous ai envoyé.

2 - On ne touche pas aux cellules fusionnées

3- Oui c'est la même feuille

Bien cordialement

A tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Zone As Range
    Dim Zone2 As Range
    Dim C As Range
    Dim Ligne As Long
    Ligne = Target.Row
    If Target.Column = 5 Then 'colonne E
        Range("E" & Ligne & ":M" & Ligne).Select 'efface les cellules de E à M ligne courante
        For Each C In Selection
            C.ClearContents
            Sheets("CAGE_C01").Range(C.Address).ClearContents
        Next
    End If
End Sub

Petite correction, la variable zone2 ne sert à rien, elle est issue d'un test précédent ! Désolé

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim C As Range
    Dim Ligne As Long
    Ligne = Target.Row
    If Target.Column = 5 Then 'colonne E
        Range("E" & Ligne & ":M" & Ligne).Select 'efface les cellules de E à M ligne courante
        For Each C In Selection
            C.ClearContents
            Sheets("CAGE-C01").Range(C.Address).ClearContents
        Next
    End If
End Sub

Re,

à tester

Super Merci !

Bonne fin de journée et bon weekend

Pense à passer le sujet en résolu si la réponse te convient.

Merci