VBA - Récup. les données de plages et de cellules, et classer dans une autre feuille

D

Dams7160

XLDnaute Nouveau
Bonsoir à tous,

Voici mon problème, j' ai une feuille ou se trouve des données que je souhaite enregistrer ligne par ligne dans une autre feuille.

Petite image pour illustrer : (Le fichier sera joint biensur)
Sans-titre-1.jpg

Chaque enregistrement doit contenir C4 et F4, mais une ligne par produit.

Comment puis-je, lors d'un clic sur une image récuperer les donnée de la plage D7:D37 en prenant compte du nombre d'enregistrement ?

Cellule par cellule je n'ai pas de problème mais pour une plage, je ne sais pas comment faire ....
 

Pièces jointes

  • Sans-titre-1.jpg
    Sans-titre-1.jpg
    43.5 KB · Affichages: 234
  • Sans-titre-1.jpg
    Sans-titre-1.jpg
    43.5 KB · Affichages: 229
  • Gestion.xlsm
    41.4 KB · Affichages: 108
  • Gestion.xlsm
    41.4 KB · Affichages: 100
  • Gestion.xlsm
    41.4 KB · Affichages: 99
Trier par date Trier par votes
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Bonjour Dams,
Essaie cette macro
Attention j'utilise le codename des onglets.
Bruno
Code: 
Sub encode()
With Feuil26
For k = 7 To [D6].End(4).Row
li = .[D65536].End(3).Row
lig = Application.Match(Cells(k, 4), .Range("C1:C" & li), 0)
If IsNumeric(lig) Then
.Cells(lig, 4) = .Cells(lig, 4) + Feuil24.Cells(k, 6)
Else
.Cells(li + 1, 3) = Feuil24.Cells(k, 4)
.Cells(li + 1, 4) = Feuil24.Cells(k, 6)
End If
Next
.Select
End With
End Sub
 
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Bonjour,

J'ai chercher pendant ma nuit,et voilà ce que j' ai fait ...µ
(autre fichier)
Est-ce correct ?!
quel modification dois-je faire ?

Sub encoder_donnée()
'
' encoder_donnée Macro
'
Dim MaDerLigneTab As Variant
MaDerLigneTab = Range("D37").End(xlUp).Offset(1, 0).Address
MaDerLigneTab = Range(MaDerLigneTab).Row - 1

For Each var_Rge In Range("D7:D" & MaDerLigneTab)
PROD = var_Rge.Value
LIGNEPROD = var_Rge.Row
QT = Range("F" & LIGNEPROD)
CONS = Range("C4")
SEM = Range("F4")
With Sheets(2)
MaLigne = Sheets(2).Range("C65536").End(xlUp).Offset(1, 0).Address
MaLigne = Sheets(2).Range(MaLigne).Row
Sheets(2).Range("A" & MaLigne) = CONS
Sheets(2).Range("B" & MaLigne) = SEM
Sheets(2).Range("C" & MaLigne) = PROD
Sheets(2).Range("D" & MaLigne) = QT
Sheets(2).Range("E" & MaLigne) = "OUT"
End With

Next var_Rge

Range("D7:D37").ClearContents
Range("F7:F37").ClearContents

MsgBox "Consomations enregistrées"

End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Re:
Ta macro ne recherche pas si un produit est dèja présent dans la feuille pour simplement ajouter la Qté
A éviter car grosse source d'erreur Sheets(2) numération car si on déplace l'onglet tout bug utilise plutot le codename
Même en déplacant ou renommant l'onglet c'est bon.
Voici un nouveau code j'avais oublié Conso & Date & effacement
Bruno
Code: 
Sub encode()
With Feuil26
For k = 7 To [D6].End(4).Row
li = .[D65536].End(3).Row
lig = Application.Match(Cells(k, 4), .Range("C1:C" & li), 0)
If IsNumeric(lig) Then
.Cells(lig, 4) = .Cells(lig, 4) + Feuil24.Cells(k, 6)
Else
.Cells(li + 1, 1) = [D4]
.Cells(li + 1, 2) = [F4]
.Cells(li + 1, 3) = Feuil24.Cells(k, 4)
.Cells(li + 1, 4) = Feuil24.Cells(k, 6)
End If
Next
Range("D7:D37").ClearContents
Range("F7:F37").ClearContents
MsgBox "Consomations enregistrées"
End With
End Sub
 
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Ta macro ne recherche pas si un produit est déjà présent dans la feuille pour simplement ajouter la Qté
Cliquez pour agrandir...

Sur quelle feuille ?
Chaque consommation correspond a une date et un consommateur, j' ajouterai simplement la qté si seulement il y a déjà une consommation à la même date et même consommateur...
 
Vote positif 0 Vote négatif
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Voici de nouveau le fichier
J'ai fait comme je comprends et mis qlqs explications en macro.
Bruno
 

Pièces jointes

  • Gestion.xls
    100.5 KB · Affichages: 96
  • Gestion.xls
    100.5 KB · Affichages: 86
  • Gestion.xls
    100.5 KB · Affichages: 81
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Voila, j' ai intégré le code a mon fichier...

Seulement me voila découragé, je ne sais pas comment faire pour pas qu'il soit si lent....

Est ce possible que ce soit a cause de trop de sommeprod ?
 

Pièces jointes

  • Gestion.xlsm
    190.7 KB · Affichages: 65
  • Gestion.xlsm
    190.7 KB · Affichages: 70
  • Gestion.xlsm
    190.7 KB · Affichages: 67
Vote positif 0 Vote négatif
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Je viens de rectifier un chouillat les macros.
J'ai enlevé les fusions de cellules qui servent à rien et perturbes.
En effet il y a beaucoup trop de sommepro , dans ce fichier j'ai supprimé les formules pour tester la macro.
Sur ton dernier fichier si j'écris directement dans une cellule en Feuil2 il mets bien du temps pour valider.
J'ai aussi annulé en debut de macro la calculation et là remets en fin de macro et là ça plante grave!!!
Je ne me suis pas penché sur tes formules mais il va falloir trouver une autre façon de faire.
Je regarderai demain pour les formules
Bruno
 

Pièces jointes

  • Gestion2.xlsm
    172.9 KB · Affichages: 108
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Re-bonjour....

Comment faire :s, sans sommeprod je sais pas trop vers quoi me diriger ....
Quelqu'un a une idée ?

Le concept du tableur est le suivant.
Je suis responsable de la gestion d'un magasin (pour des équipes d'ouvrier).
Dans ce tableur je dois retrouver plusieurs info :
-La consommation des équipes semaine après semaine minimum
-Le stock réelle
-Les livraisons reçue

Comment puis je construire ce tableur autrement, avec formulaire pour les entrées de données
 
Vote positif 0 Vote négatif
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

Salut Dams,
Sur ton fichier j'ai enlevé les formules sommeprod et les macros se chargent du reste.
J'y ai consacré plus de temps que prévu...et fait qlq correctifs
Bon test
Bruno
 

Pièces jointes

  • Gestion3.xlsm
    185.3 KB · Affichages: 150
  • Gestion3.xlsm
    185.3 KB · Affichages: 166
  • Gestion3.xlsm
    185.3 KB · Affichages: 172
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

MMmmm...

C'est propre et rapide :D

Le problème c'est que je ne sais pas voir les consommations mois par mois, c'est un cumul. c'est bien ça ?

En tout cas merci pour le temps consacré ! Ça c'est clair !
 
Vote positif 0 Vote négatif
D

Dams7160

XLDnaute Nouveau
Re : VBA - Récup. les données de plages et de cellules, et classer dans une autre feu

je bosse sur le sujet en ce moment justement ^^, avec outlook qui m'informe de tes faits et gestes :p

Via les sommeprod je récupérais les dates en haut a gauche (Feuil3)...
qui me permettait de voir période par période :s

pour la Feuil4, pareil si je fais un inventaire et que je remet les stocks à jour, j'aurais des problèmes quand je vais encoder des consomations de la veille de l'inventaire par exemple.
via la date en haut de page je ne selectionnais que les sorties apres l'inventaire.

:p oufty ^^ tu me suis toujours ?!
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2019 Filtre avancé avec critères et résultat dans une autre feuille (VBA)
Réponses
2
Affichages
111
Amilo
A
Akortys
  • Question
Microsoft 365 RESOLU - Macro - Recherche de lignes identiques et ressortir les lignes uniques
Réponses
2
Affichages
207
Akortys
Akortys
G
  • Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
290
GClaire
G
B
  • Question
XL 2016 Validation des données en gardant les liens hypertextes
Réponses
8
Affichages
190
Ben92290
B
M
  • Question
XL 2019 Images dans plusieurs cellules à partir de plusieurs URL
2
Réponses
15
Affichages
271
patricktoulon
patricktoulon
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
92
sylvanu
sylvanu
P
  • Question
XL 2021 Tableau incrementé dans une feuille excel protégée!
Réponses
1
Affichages
78
fanfan38
fanfan38
C
  • Résolu(e)
XL 2021 filtrer données puis envoi sur une autre feuille
Réponses
3
Affichages
202
sylvanu
sylvanu
N
  • Résolu(e)
Microsoft 365 VBA Insertion ligne dans feuille protégée
Réponses
10
Affichages
240
Nathan027
N
C
  • Question
XL 2016 Faire un tableau de nombres uniques puis associer des images aux cellules
Réponses
4
Affichages
224
DJunqueira
D

Membres actuellement en ligne

25 membres et 371 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 080
Messages
2 085 154
Membres
102 797
dernier inscrit
RIM CHTIOUI