Discussion :

[virloc]

Bonjour à tous.
Je cherche à faire un truc sous Excel mais je coince. Qui peut m'aider.
Sur la feuille 1 j'ai une ligne avec des données dans différentes colonnes. Sur la colonne 1 c'est un compteur qui s'incrémente automatiquement. Quand ce compteur bouge je veux copier cette ligne et l'insérer en ligne 1 dans la feuille 2.
J'ai fais ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Activate()
 
If Cells(Feuil2!A2) <> Cells(Feuil1!A4) Then
 
Sheets("Feuil1").Select
    Rows("2:2").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Rows("4:4").Select
    Selection.Insert Shift:=xlDown
 
End Sub
 
End If

Ca ne marche pas?
Si quelqu'un peut m'aider?

[a_diard]

Bonjour

Le end if avant le end sub ce serait mieux.

tu peux te passer des .select.

[Franc]

Bonjour, déjà un end if après le end sub ? Le compilateur doit retourner une erreur non ?
ENsuite tous ces select sont inutiles, et enfin, si tu veux détecter un changement dans la feuille ce n'est pas dans l'évènement _Activate qu'il faut mettre le code. Teste ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' Vérifier si la modification a été effectuée dans la feuille "Feuil1" et si elle concerne la colonne A
    If Sh.Name = "Feuil1" And Target.Column = 1 Then
        ' Récupérer la ligne modifiée
        Dim modifiedRow As Range
        Set modifiedRow = Sh.Rows(Target.Row)
 
        ' Définir la ligne cible dans la feuille "Feuil2"
        Dim targetRow As Long
        targetRow = 1
 
        ' Insérer une nouvelle ligne en haut de la feuille "Feuil2"
        Sheets("Feuil2").Rows(targetRow).Insert Shift:=xlDown
 
        ' Copier la ligne modifiée depuis la feuille "Feuil1" vers la nouvelle ligne insérée dans la feuille "Feuil2"
        modifiedRow.Copy Destination:=Sheets("Feuil2").Rows(targetRow)
    End If
End Sub

[virloc]

Merci Frank.
Désolé je suis vraiment un novice. Cela ne marche pas, je ne comprend pas cela n'est pas vu comme une macro, je n'arrive pas à la lancer.

[Franc]

Salut, ce n'est pas une macro qu'il faut lancer, cela se fait automatiquement. Elle est placée dans l'évènement Workbook_SheetChange, donc elle va s'exécuter lorsqu'il y a un changement dans une feuille du classeur. La macro vérifie si le changement s'est fait dans la colonne A de "Feuil1", si oui il copie toute la ligne correspondant à la cellule modifiée et l'insère en première ligne de "Feuil2", sinon il ne se passe rien.
Donc, lorsque tu es dans l'éditeur VBA, dans la fenêtre de projets, tu double cliques sur ThisWorkbook et tu colles la macro dans la fenêtre de droite et elle fonctionnera.

[virloc]

Salut.
Désolé je croyais avoir fait ceci et que cela ne marchait pas. J'ai refait un test et c'est OK. Merci.

[virloc]

Salut.
Désolé je croyais avoir fait ceci et que cela ne marchait pas. J'ai refait un test et c'est OK. Merci.

Bonjour

Cela fonctionne sauf que maintenant la cellule qui change d'état est une variable, je pense que cela ne fonctionne plus car Excel ne voit plus le changement de valeur.
Il faudrait également que la copie de la ligne soit faite avec les valeurs.
Autre chose, comment faire si je ne veux pas recopier toute la ligne mais seulement de la colonne A à F?

Merci.