Discussion :

[florent.saunier]

Bonjour à tous,

Etant novice en VBA j'aurais besoin de votre aide. J'ai un fichier excel avec une liste de produits chimiques et je voudrais automatiser la création d'une étiquette. En gros sur la feuil2 j'ai crée une liste déroulante ou je choisis un produit dans la liste. Ensuite via un bouton, je voudrais lancer une macro qui va chercher dans la feuil1 les infos correspondant au produit chimique et qui les place dans certaines cellules de la Feuil2.

Pour le moment voilà mon code (qui ne marche pas) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub macro1()
 
Sheets("Feuil2").Activate
 
 
Sheets("Feuil1").Activate
Set CelluleTrouvee = Range("A2:A127").Find("Feuil2$A1", LookIn:=xlValues)
 
 
Worksheets("Feuil1").Range("A" & CelluleTrouvee.Value).Copy
Worksheets("Feuil2").Range("D10").Paste
 
Worksheets("Feuil1").Range("D" & xlValues).Copy
Worksheets("Feuil2").Range("E" & 11).Paste
 
Worksheets("Feuil1").Range("E" & xlValues).Copy
Worksheets("Feuil2").Range("E" & 11).Paste
 
Worksheets("Feuil1").Range("G" & xlValues).Copy
Worksheets("Feuil2").Range("F" & 11).Paste
 
 
End Sub

Le fichier excel est en pièce jointe pour vous donner une idée. Je vous remercie de votre aide.

[florent.saunier]

Bon j'ai relativement bien avancé. J'arrive à trouver la ligne mais maintenant problème de copier/coller. J'ai enregistré une macro à la souris pour avoir le code mais quand j'inclue ce code dans le mien il me fait une erreur 1004 entre " Range("D8").Select" et "ActiveSheet.Paste"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub macro1()
 
Dim CelluleCible As String
Dim CelluleTrouvee As Range
Dim ligne As Integer
 
CelluleCible = Sheets("Feuil2").Range("A1").Value
 
 
Set CelluleTrouvee = Sheets("Feuil1").Range("A2:A127").Find(CelluleCible, Lookat:=xlWhole)
 
If CelluleTrouvee Is Nothing Then
MsgBox ("pas trouvé")
Else
ligne = CelluleTrouvee.Row
'MsgBox ("trouvé : ligne =" & ligne)
 
End If
 
Sheets("Feuil1").Select
Range("A" & ligne).Select
Selection.Copy
Sheets("Feuil2").Select
Range("D8").Select
ActiveSheet.Paste
 
 
End Sub

[keygen08]

Bonjour
Essaie de ne pas oublier les balise [code]

ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("Feuil1").Select
 Range("A" & ligne).Select
 Selection.Copy
 Sheets("Feuil2").Select
 Range("D8").Select
 ActiveSheet.Paste

peut s'ecrire comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Range("A1").Copy Sheets("Feuil2").Range("D8")

plus simple et surtout fonctionnel

je mets un petit exemple de ce que l'on peut faire sans copier coller