Mettre une macro d'une ligne sur plusieurs lignes

Bonsoir

j'ai une macro qui s'active en cliquant sur une cellule d'une ligne et qui modifie d'autres cellules de cette même ligne.

J'aimerais que le même code VBA soit répété sur plusieurs lignes en dessous.

Merci pour l'aide

Jave

Bonjour,

J'aimerais que le même code VBA soit répété sur plusieurs lignes en dessous.

çà veut dire quoi ?

que si tu cliques plusieurs lignes en dessous çà lance la macros ?

@+JP

Bonsoir

si je clique sur D3, le code agit sur la ligne 3

si je clique D4, le code agit sur la ligne 4

si je clique D5, le code agit sur la ligne 5 et ainsi de suite

Bonjour,

Ligne = ActiveCell.row

Colon= ActiveCell.column

@+JP

Bsr

Merci mais je ne vois pas comment intégrer ça dans mon fichier et donc dans mon code.

En cliquant sur la cellule je dois créer un espace devant le nom pour qu'il ne soit pas comptabiliser ou qu'il ne soit pas considéré en doublon....

Bonjour,

ton code d'origine

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D2:D9")) Is Nothing Then
        Range("B2").Select
        ActiveCell.FormulaR1C1 = "M "
        Range("C2").Select
        ActiveCell.FormulaR1C1 = "BLANC "
    End If
End Sub

le code modifié avec Ligne = ActiveCell.Row

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D2:D9")) Is Nothing Then
        Ligne = ActiveCell.Row
        Range("B" & Ligne).Select
        ActiveCell.FormulaR1C1 = "M "
        Range("C" & Ligne).Select
        ActiveCell.FormulaR1C1 = "BLANC "
    End If
End Sub

le code corrigé pour qu'il fonctionne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect(Target, Range("D2:D9")) Is Nothing Then
        Ligne = ActiveCell.Row
        Range("B" & Ligne) = Range("B" & Ligne) & " "
        Range("C" & Ligne) = Range("G" & Ligne) & " "
    End If
End Sub

Fichier_JP-v2

@+JP

Bonjour

Merci pour le retour et merci également pour les explications détaillées, ça aide beaucoup.

Je vais l'intégrer dans mon projet

Bonne journée

@+Jave