Recherche et Copie Automatique
Résolu
Reizo
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Reizo Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Reizo Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un fichier excel avec 6 feuilles, pour le moment on ne va parler que de deux feuilles :
Voila ce que je voudrais faire : j'ai une colonne sur une feuille dans laquelle j'ai des références de produits et je veux qu'à chaque fois qu'une de mes références est la même qu'une autre dans ma deuxième feuille, je puisse copier la valeur contenue dans une autre colonne de cette feuille sur une autre colonne (sur la même ligne hein ^^) de ma premère feuille, j'avais pensé utiliser une macro pour parcourir toute ma feuille mais je suis un peu largué en VB donc je pose ma question ici.
Si ce problème est réglé il faudrait que je fasse la somme de toutes les valeurs transférées d'une feuille à une autre, mais ça je connais la fonction.
Merci de votre aide, Cordialement, Reizo.
J'ai un fichier excel avec 6 feuilles, pour le moment on ne va parler que de deux feuilles :
Voila ce que je voudrais faire : j'ai une colonne sur une feuille dans laquelle j'ai des références de produits et je veux qu'à chaque fois qu'une de mes références est la même qu'une autre dans ma deuxième feuille, je puisse copier la valeur contenue dans une autre colonne de cette feuille sur une autre colonne (sur la même ligne hein ^^) de ma premère feuille, j'avais pensé utiliser une macro pour parcourir toute ma feuille mais je suis un peu largué en VB donc je pose ma question ici.
Si ce problème est réglé il faudrait que je fasse la somme de toutes les valeurs transférées d'une feuille à une autre, mais ça je connais la fonction.
Merci de votre aide, Cordialement, Reizo.
A voir également:
- Recherche et Copie Automatique
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Réponse automatique thunderbird - Guide
- Copie cachée - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Super copie - Télécharger - Gestion de fichiers
2 réponses
J'ai plus ou moins réglé le problème de la copie maintenant j'aimerais juste savoir comment effectuer la recherche sur ma première feuille grâce à une macro, voila mes deux versions de code si cela peut vous aider :
Version 1 :
Sub Recherche()
Dim MotCherche, L, C, InL, InC, OutL
Dim Origine, Destination
Set Origine = Workbooks(1).Sheets(1)
Set Destination = Workbooks(1).Sheets(5)
MotCherche = "WL250-P430 S6010610"
InC = Origine.Cells.SpecialCells(xlCellTypeLastCell).Row
InL = Destination.Cells.SpecialCells(xlCellTypeLastCell).Column
OutL = Destination.Cells.SpecialCells(xlCellTypeLastCell).Row
For L = 1 To InL
If Origine.Cells(L, 1).Value = MotCherché Then
For C = 1 To InC
Destination.Cells(OutL, C).Value = Origine.Cells(L, C).Value
Next
OutL = OutL + 1
End If
Next
End Sub
Version 2 :
Sub recherchev4()
//
Dim key As Characters
Dim i As Integer
While (Equivalences!Gi)
i = i + 1
Wend
With Worksheets("Equivalences").Range("d1:d19000") Set c = .Find("key", lookin:=xlValues)
If Not c Is Nothing Then firstAddress = c.Address Do xxxxxxxxx
Set C = .FindNext(C)
Loop While Not C Is Nothing
And c.Address <> firstAddress
End If
End With
//
With Worksheets("Equivalences")
Worksheets("Donery").Range("D4:D8").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
End Sub
En enlevant toute la partie entre les deux "//" le code me copie bien ce que j'ai choisi dans la feuille d'a coté dans la colonne A...
Pour l'instant j'arrête sinon je crois que je vais me pendre x)
Version 1 :
Sub Recherche()
Dim MotCherche, L, C, InL, InC, OutL
Dim Origine, Destination
Set Origine = Workbooks(1).Sheets(1)
Set Destination = Workbooks(1).Sheets(5)
MotCherche = "WL250-P430 S6010610"
InC = Origine.Cells.SpecialCells(xlCellTypeLastCell).Row
InL = Destination.Cells.SpecialCells(xlCellTypeLastCell).Column
OutL = Destination.Cells.SpecialCells(xlCellTypeLastCell).Row
For L = 1 To InL
If Origine.Cells(L, 1).Value = MotCherché Then
For C = 1 To InC
Destination.Cells(OutL, C).Value = Origine.Cells(L, C).Value
Next
OutL = OutL + 1
End If
Next
End Sub
Version 2 :
Sub recherchev4()
//
Dim key As Characters
Dim i As Integer
While (Equivalences!Gi)
i = i + 1
Wend
With Worksheets("Equivalences").Range("d1:d19000") Set c = .Find("key", lookin:=xlValues)
If Not c Is Nothing Then firstAddress = c.Address Do xxxxxxxxx
Set C = .FindNext(C)
Loop While Not C Is Nothing
And c.Address <> firstAddress
End If
End With
//
With Worksheets("Equivalences")
Worksheets("Donery").Range("D4:D8").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With
End Sub
En enlevant toute la partie entre les deux "//" le code me copie bien ce que j'ai choisi dans la feuille d'a coté dans la colonne A...
Pour l'instant j'arrête sinon je crois que je vais me pendre x)