corrigez moi svp

[hicham28]

Bonjour, encore une autre fois je m'adresse a vous pour avoir votre aide, et je vous remercie d'avance.

j'ai un code qui a comme tache de copie les fonctions sur certains cellule, mais j’aimerai que la copie s'effectue que sur une seule linge, par exemple si je change la cellule A20 , j'aimerai que les cellules de la linge 20 seront changer.
Pour ce code que j’utilise, a chaque fois que je change par exemple la cellule A20 toutes les linges se changent a leurs tours.
J’aimerai que ma question est claire et aussi que j'aurai de votre aide. Merci
Voila le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
        For i = 18 To Fin
            If Range("AI" & i) = "-" Then
                Exit For
            Else
                If Range("A" & i).Value <> "" Then
                    Range("E3:ES3").Copy Range("E" & i)
                    Rows(i).RowHeight = 14
                End If
            End If
        Next i
    End If
End If
End Sub

 

[hicham28]

Re : corrigez moi svp

aucune solution? j'espere tjrs avoir votre aide

 

[JNP]

Re : corrigez moi svp

Bonsoir Hicham 🙂,

j'ai un code qui a comme tache de copie les fonctions sur certains cellule, mais j’aimerai que la copie s'effectue que sur une seule linge, par exemple si je change la cellule A20 , j'aimerai que les cellules de la linge 20 seront changer.
Pour ce code que j’utilise, a chaque fois que je change par exemple la cellule A20 toutes les linges se changent a leurs tours.

Pas sûr d'avoir compris, mais tu peux essayer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
       [COLOR=red][B]i = Target.Row[/B][/COLOR]
[COLOR=red][/COLOR]     If Range("AI" & i) = "-" Then
                Exit For
            Else
                If Range("A" & i).Value <> "" Then
                    Range("E3:ES3").Copy Range("E" & i)
                    Rows(i).RowHeight = 14
                End If
            End If
    End If
End If
End Sub

Bonne soirée 😎

 

[job75]

Re : corrigez moi svp

Bonsoir hicham28, salut JNP,

JNP a fait ça un peu vite 🙂

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fin As Long, i As Long
If Target.Cells.Count = 1 Then
    Fin = Cells(Rows.Count, 1).End(xlUp).Row
    If Not Application.Intersect(Target, Range("A1:A" & Fin)) Is Nothing Then
        i = Target.Row
        If Range("AI" & i) = "-" Then Exit Sub
        If Range("A" & i).Value <> "" Then
            Range("E3:ES3").Copy Range("E" & i)
            Rows(i).RowHeight = 14
        End If
    End If
End If
End Sub

Si vous voulez modifier une seule ligne, il ne faut pas faire de boucle bien sûr.

A+

 

[hicham28]

Re : corrigez moi svp

merci a vous, et a votre aide, je pense que le code de job75 a rétablie ce problmes, je vous remercie job75 et JNP? MERCI!!!! et bonne soiré