Problème de traitement de données. Résolu

Question

Bonsoir à tous,

Je vais essayer d'être clair pour ce souci qui est un peu particulier; enfin pour moi :o

Dans la feuille 1, c'est la ou je colle mes données pour qu'elles soient traites dans la feuille 2.

Dans cette feuille 1, il y a 30 lignes d'utilisées.

Je prend de nouvelles données de feuille 3 que je viens coller en feuille 1 en A1, sachant qu 'il y en a 11, il restera les données précédentes de la ligne 12 a 30.

Si j'efface ces lignes 12 a 30 , en feuille 2 mes 11 lignes précédemment ajoutés ne seront pas ranger dans les différents tableaux de AM;CD mais seront présentes dans le tableau AH;AK et j'aurai que des #VALUE!

Si je n'efface pas ces lignes 12 a 30 tout fonctionne correctement.

Je pense que la formule en colonne G aurait besoin d'une correction, lorsque que l'on efface les données des colonnes A a E ( lignes non utilisées)

Je vous laisse le fichier en question: https://www.cjoint.com/?DIcvop2ouGh

Qu'en dites vous ?

Raymond PENTIER · Answer

Bonjour.

Et si, au lieu de copier les LIGNES 3!1:11 complètes, tu copiais seulement les CELLULES 3!A1:E11 ?
Cela t'éviterait de détruire tes formules en 1!G1:G11 ...

gbinforme · Answer

Bonjour,
 
Je pense que la formule en colonne G aurait besoin d'une correction

La colonne G n'est pas en cause mais dans la colonne A tu adresses directement les cellules de ton onglet 1. Si donc tu supprimes c'est données, excel n'a plus de correspondance et donc sort en erreur.

Vanhaez · Answer

Bonjour, merci pour vous reponses.

Perso, ne peut on pas modifier la macro?

Quelle sélectionne jusu'a la dernière valeur en $A$ ?

Vanhaez · Answer

Bonjour Raymond,

Sur la feuille 2 : Feuil2.Evénement

Comme 1!A son nombre de ligne est aléatoire, alors qu'elle est bridée a 34.
Il faudrait changer le script mais la j'ai besoin de votre aide.

Option Explicit

Dim derLn, groupeMax, Ln, Col, Lgn

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    derLn = Range("AK" & Rows.Count).End(xlUp).Row
    groupeMax = Application.Max(Range("AK2:AK" & derLn))
    
    If Not Intersect(Target, Range("AK2:AK" & derLn)) Is Nothing Then
        Range(Cells(2, 39), Cells(derLn, groupeMax * 5 + 37)).ClearContents
        For Ln = 2 To derLn
            Col = Cells(Ln, "AK").Value * 5 + 34
            Lgn = Cells(Rows.Count, Col).End(xlUp)(2).Row
            Range(Cells(Ln, "AH"), Cells(Ln, "AK")).Copy
            Cells(Lgn, Col).PasteSpecial xlPasteValues
        Next Ln
    End If
    Application.CutCopyMode = False
    Application.EnableEvents = True
End Sub

Sub Evénement()
    Application.EnableEvents = True
End Sub

Vanhaez · Answer

Ouff, j'ai trouvé la solution grâce à vous 2.

j'ai modifié à les formules en rajoutant  if(XX=0;"";xxx

Voilà

Problème de traitement de données.

5 réponses

Discussions similaires

Newsletters