Problème de traitement de données.
Résolu
Vanhaez
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
Vanhaez Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Vanhaez Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
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 ?
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 ?
A voir également:
- Problème de traitement de données.
- Fuite données maif - Guide
- Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
- Supprimer les données de navigation - Guide
- Traitement de texte gratuit - Guide
- Ce traitement de texte gratuit et léger est parfait pour remplacer Word, même sur un vieux PC - Guide
5 réponses
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 ...
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 ...
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.
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.
Bonjour, merci pour vous reponses.
Perso, ne peut on pas modifier la macro?
Quelle sélectionne jusu'a la dernière valeur en $A$ ?
Perso, ne peut on pas modifier la macro?
Quelle sélectionne jusu'a la dernière valeur en $A$ ?
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question