Ma macro ne foctionne pas

Bonjour,

je souhaite Appliquer cette macro je n'arrive a faire fonctionner dans 1 ligne sur 3

et dans 1 colonne sur 4 a partire de la cellule "BT3"de la feuille 1

si vous avez une solution merci

Cordialement

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range, c As Range
Dim ligne As Integer: Dim colonne As Integer

For ligne = 3 To 1094 Step 3
For colonne = 3 To 35 Step 4
Set isect = Intersect(Target, [BT3])
If Not isect Is Nothing Then
For Each c In Target.Cells
c.Offset(0, -24) = IIf(IsEmpty(c), ("Mr"), Empty)
c.Offset(0, -23) = IIf(IsEmpty(c), ("Durant"), Empty)
Next c
End If
Next colonne
Next ligne
End Sub

Bonjour

explique ce que tu veux au final

car il y a certaines incohérences dans ton code,

par exemple

Set isect = Intersect(Target, [BT3])
If Not isect Is Nothing Then
For Each c In Target.Cells

tu définies isect, ok, mais tu ne l'utilise pas ensuite car tu fais For Each c In Target.Cells

ensuite, pourquoi faire la boucle avant la détection par intersect ?

Bonjour et merci pour ton interet

je souhaite que si BT3 et BU3 est vide que dans les cellules 24 et 23 colonnes en moin

soit rensegner par defaut da la premiere cellule et dans la suivante Mr Durant

dans une de 1094 lignes et 70 colonne

avec un pas de 1 linge sur 3 et de 1 colonne sur 4 a partire de BT3

Cordialement

hummm ... as-tu un fichier excel (anonymisé) ?

Steelson a écrit :

hummm ... as-tu un fichier excel (anonymisé) ?

Bonjour

Je reformule ma demande car il y avais des erreures et je join un fichier demo

les boucles ligne et colonne ne foctione pas !

Je souhaite que si BW3 est vide que dans les cellules 72 et 71 colonnes en moin

soit rensegner par defaut da la premiere cellule Mr et dans la suivante Durant

dans une plage de 1095 lignes et 35 colonne

avec un pas de 1 linge sur 3 et de 1 colonne sur 4 a partire de BwW3

Cordialement

voici

Steelson a écrit :

voici

Re merci

et pour une solution pour ma macro que je ne parviens pas a adapter

Cordialement

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

For Each c In Target.Cells
    If Target.Column >= 75 Then
        If Target.Column Mod 4 = 3 And Target.Row Mod 3 = 0 Then
            c.Offset(0, -72) = IIf(IsEmpty(c), ("Mr"), Empty)
            c.Offset(0, -71) = IIf(IsEmpty(c), ("Durant"), Empty)
        End If
    End If
Next c

End Sub

Re super merci pour beaucoup