Problème de macro sur Excel Résolu/Fermé

Question

Bonjour, 

J'ai un fichier Excel qui récapitule des projets avec des dates etc... J'ai crée une macro pour que quand la cellule dans la colonne "X" est égale à x, la ligne disparait de la feuille actuelle pour apparaitre sur une autre feuille.
Le soucis, c'est que j'ai des cellules fusionnés... Donc quand j'inscris un x, il m'enlève qu'une seule ligne alors que ce sont deux lignes superposées qui doivent être transférer pour que ce soit compréhensible. 
Je voudrais juste que l'on le me fasse une correction de ma macro pour que ça fonctionne nikel.

Merci d'avance

'Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As String
Dim nblig As String
Dim DerLigne As String
Dim i As Byte

Application.Volatile
Application.ScreenUpdating = False
On Error Resume Next
    If Left(Target.Address, 2) = "$X" Then
        If Target.Value = "X" Or Target.Value = "x" Then
            lig = Target.Row
            nblig = Sheets("Feuil1").Range("b65535").End(xlUp).Row + 1
            For i = 1 To 20
                Sheets("Feuil1").Cells(nblig, i).Value = Cells(lig, i).Value
            Next i
            Rows(lig).Delete Shift:=xlUp
           
        End If
    End If
       
      'Sheets("Planning_suivi").Cells(1, 1).Activate
     Application.ScreenUpdating = True
    Sheets("Feuil1").Range("a65535").End(xlUp) = Now
End Sub

Configuration: Windows XP / Internet Explorer 6.0

gbinforme · Answer

bonjour 

Le fait de gérer des cellules fusionnées sous excel n'est pas une bonne idée car cela complique la tache sérieusement comme tu t'en es rendu compte. Je te propose cette façon de faire qui devrait fonctionner "nickel" : 

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim DerLigne As String 
Dim i As Byte 
If Target.Count = 1 Then 
    If Left(Target.Address, 2) = "$X" _ 
    And LCase(Target.Value) = "x" Then 
        With Sheets("Feuil1") 
            i = Target.Offset(1, 0).Row - Target.Row 
            DerLigne = .Cells(.Columns(1).Cells.Count, "B").End(xlUp).Row + 1 
            Cells(Target.Row, 1).Resize(i, 20).Copy Destination:=.Cells(DerLigne, 1)
            Rows(Target.Row).Resize(i).Delete Shift:=xlUp 
            .Range("A" & .Columns(1).Cells.Count).End(xlUp) = Now 
        End With 
    End If 
End If 

'Sheets("Planning_suivi").Cells(1, 1).Activate 
End Sub 

Plutôt qu'utiliser 65535 largement périmé depuis 2007, je t'ai mis une fonction qui est valable quelle que soit ta version excel (Columns(1).Cells.Count). 
Tu n'es pas obligé d'enlever le rafraichissement de l'écran car il n'y a qu'une seule mise à jour qui sera faite en fin de toute façon. 
Toujours zen

Clementinou54 · Answer

ça fonctionne nikel, comme tu l'as dit ! Merci beaucoup de ton aide !  

Edit : Je suis allé un peu vite en besogne, j'ai un petit soucis de débogage: cette ligne là se surligne en  jaune donc il doit y avoir une erreur mais je vois pas où...

Cells(Target.Row, 1).Resize(i, 20).Copy Destination:=.Cells(DerLigne, 1)

J'avais essayé de coller un "On Error Resume Next", le mess de débogage disparait et les les lignes aussi d'ailleurs mais ne réapparaissent pas. Si qqun a une idée... merci d'avance

Clementinou54 · Answer

Code d'erreur : 

"Erreur d'éxécution '1004':
Impossible de modifier une cellule fusionnée"

La veleur de i = 2

Dans la colonne X, je fusionne deux cellules ensemble pour qu'il prenne les deux lignes en question. Par contre, ce qui est bizarre, c'est que quand j'inscris un x dans la case la première fois, ça marche mais après j'ai cette histoire de débogage...

Clementinou54 · Answer

J'ai trouvé le problème. Il ne me colle une seule ligne dans la feuille, il ne les superpose pas. Si je supprimes la ligne trasférée, lorsque je refais l'opération ça marche mais il faut que je supprime la ligne à chaque fois. Petit problème car j'aimerai bien avoir toutes mes lignes qui se superposent...

Quelqu'un a une idée ?

Clementinou54 · Answer

Je "Up" un petit coup, je n'ai pas eu de réponse depuis. Quelqu'un a-t-i l une idée ? 
Je suis en galère au secours !!

gbinforme · Answer

bonjour

Si tu n'as pas eu de réponse, c'est d'abord parce que j'ai profité de ces jours pour faire autre chose que de l'assistance internet.

D'autre part ce que tu expliques n'est pas trop cohérent car tu dis devoir supprimer la ligne transférée alors que la macro le fait elle-même, si du moins tu l'a mise en place intégralement.

Si tu pouvais nous mettre un exemple de classeur, sans données identifiables et privées, mais avec la structure de tes données et la macro sur http://www.cijoint.fr/ puis nous mettre le lien généré ici ce serait plus facile.

Clementinou54 · Answer

Salut,

Désolé je me doute bien que tu ne fais pas ça le WE.

Je suis au travail et le site cijoint.fr est bloqué donc j'attendrai d'être chez moi ce soir pour le faire. Par contre, je peux réexpliquais car moi aussi j'ai du mal à comprendre ce que j'ai écrit :-)

Donc : Quand je mets un X dans ma case, la ligne se transfères automatiquement dans l'autre feuille (projets term), y'a pas de soucis. Et oui elle se supprime automatiquement de la feuille d'origine(planning_suivi). 
Le problème, si je veux transférer une autre ligne, j'ai ce problème de débogage. Si je n'ai rien sur la feuille "Projets term", ça marche et si j'ai déjà une ligne, ça ne marche pas.

Est-ce que c'est plus compréhensible ?

Si j'ai pas résolu mon problème d'ici ce soir, je joindrai le fichier.

gbinforme · Answer

bonjour

Avec qu'elle version fonctionnes-tu ?

Clementinou54 · Answer

Oui, c'est vrai que j'ai oublié de préciser : je suis sur Windows XP et je travaille avec Excel 2000. Oui je sais c'est vieux mais j'ai pas le choix.

Clementinou54 · Answer

Problème résolu : Il fallait juste remplacer la valeur dans une des lignes

DerLigne = .Cells(.Columns(1).Cells.Count, "B").End(xlUp).Row + 1 ( il faut remplacer le 1 en fin de ligne par 2) pour que les lignes se transferent et se collent sans problème.)

Voilà, merci de m'avoir aidé.

@+

Problème de macro sur Excel

10 réponses

Discussions similaires