Discussion :

[Fred130A]

Bonjour à tous,

je sèche un peu sur cette manip et du coup, si vous pouvez me renseigner je suis preneur
je sais que la manip est possible avec une boucle mais je trouve cela lent et lourd...
je pense qu'il est possible d'utiliser la partie: Private Sub Worksheet_SelectionChange(ByVal Target As Range).
en gros ce que je cherche à réaliser est de dupliquer une partie de la ligne lorsque la valeur de la colonne K est changée et que celle ci soit copié dans la colonne I.
je ne sais pas si j'ai été assez clair dans ce que je cherche à faire mais je suis prêt à donner plus d'explication au besoin

Je vous remercie d'avance de toute l'aide que vous pourrez m'apporter.

[a_diard]

Bonjour peut être comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 9 Then
Application.EnableEvents = False
ligneactive = Target.Row
derniereligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(derniereligne, 1), Cells(derniereligne, 7)).Value = Range(Cells(ligneactive, 1), Cells(ligneactive,7)).Value
Cells(derniereligne, 8).Value = Cells(ligneactive, 9).Value
Application.EnableEvents = True
End If
End Sub

EnableEvents a pour but de ne pas boucler sur la macro événementielle

Attention si tu lance la macro en pas a pas et que tu sort avant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = True

les macros événementielles ne fonctionnerons plus.

[Fred130A]

Bonjour et merci @a_diard pour ta réponse.

concernant les "fonctions" (je ne connais pas le terme approprié dsl) :ligneactive et derniereligne
il faut les déclarer à un moment non?
un truc du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim ligneactive As "jesaispasquoi"
Dim derniereligne As "jesaispasquoi"

reste à savoir le "jesaispasquoi" correspondant à une ligne

ou alors en "function"?

[Fred130A]

après quelque modif mineure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 8 Then
Application.EnableEvents = False
ligneactive = Target.Row
derniereligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(derniereligne, 1), Cells(derniereligne, 7)).Value = Range(Cells(ligneactive, 1), Cells(ligneactive, 7)).Value
Cells(derniereligne, 9).Value = Cells(ligneactive, 11).Value
Application.EnableEvents = True
End If
End Sub

j'ai réussi à faire ce que je voulais!!
il va peut être falloir que je revoie un peu le fonctionnement mais un grand merci!!!

[a_diard]

https://silkyroad.developpez.com/VBA/LesVariables/

Ci dessus un lien vers un tuto déclaration des variables.

"c'est mieux ce les déclarer"

Bonne lecture.