Discussion :

[Skerty]

Bonjour ami(e)s développeurs, bonjour le forum
toujours dans le cadre de mon projet je suis entrain d'effectuer ma deuxième macro qui consiste à réaliser une entrée en stock d'une pièce étant déjà référencée.
Voici l'ébauche de mon code

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Option Explicit
 
Sub Entrée_référencée()
 
'Déclaration de variable
Dim I As Byte
Dim CS As Workbook
Dim Trouve As Range
Dim Ref_stock As String
Dim Plage_recherche As Range
Dim Ref As String
 
Set CS = Workbooks("Gestion des pièces maintenance 2ème projet.xlsm")
 
'Test de la bonne saisise des caractéristiques
For I = 3 To 11
 
    If CS.Sheets("Entrée stock").Cells(9, I).Value = "" Then
        MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée.Veuillez saisir à nouveau")
        CS.Sheets("Entrée stock").Cells(9, I).Select
        Exit Sub
    End If
 
'Procédure de recherche de référence 
Next I
 
Ref = Range("E9").Value
Set Plage_recherche = CS.Sheets("Suivi du stock").Columns(3)
 
Set Trouve = Plage_recherche.Cells.Find(what:=Ref, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée. Veuillez saisir à nouveau")
CS.Sheets("Entrée stock").Cells(9, 5).Select
Exit Sub
 
Else
 
'Copie de la plage [Saisie_pièces] de la feuille "Entrée stock" vers la ligne "Trouve" de la feuille "Suivi du stock"
CS.Sheets("Entrée stock").[Saisie_pièces].Value Copy CS.Sheets("Suivi du stock").Trouve
 
 
End If
 
'Réinitialisation des variable
 
    Set Plage_recherche = Nothing
    Set Trouve = Nothing

Toute la première partie de mon code fonctionne, je voudrais que ma variable nommée "Trouve" me donne le numéro de la ligne qui contient la référence recherchée. Afin de copier la plage [Saisie_pièces] de la feuille "Entrée stock" vers la ligne "Trouve" de la feuille "Suivi du stock".

En espérant que vous allez m'aider une nouvelle fois

=Sk3rty*=

[Daniel.C]

Bonjour,

Ou j'ai mal compris, ou la ligne est donnée par "Trouve.Row".

[Skerty]

Voici de nouveau mon code il y avait quelques erreurs que j'ai repérées mais ça ne solutionne pas mon problème .

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
 
Sub Entrée_référencée()
 
'Déclaration des variables
Dim I As Byte
Dim CS As Workbook
Dim Ref As String
Dim Ref_stock As String
Dim Plage_recherche As Range
Dim Trouve As Range
 
Set CS = Workbooks("Gestion des pièces maintenance 2ème projet.xlsm")
 
'Test de la bonne saisie des caractéristiques de la pièces
For I = 3 To 11
 
    If CS.Sheets("Entrée stock").Cells(9, I).Value = "" Then
        MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée.Veuillez saisir à nouveau")
        CS.Sheets("Entrée stock").Cells(9, I).Select
        Exit Sub
    End If
Next I
 
Ref = Range("E9").Value
Set Plage_recherche = CS.Sheets("Suivi du stock").Columns(3)
 
'Recherche de la référence
Set Trouve = Plage_recherche.Cells.Find(what:=Ref, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée. Veuillez saisir à nouveau")
CS.Sheets("Entrée stock").Cells(9, 5).Select
Exit Sub
 
'Exécution de la copie de la plage [Saisie_pièces] de la feuille "Entrée stock" vers la feuille "Suivi du stock" de la ligne de la référence "Trouve"
Else
CS.Sheets("Entrée stock").[Saisie_pièces].Copy CS.Sheets("Suivi du stock").Trouve
End If
 
'Réinitialisation des variables
Set Plage_recherche = Nothing
Set Trouve = Nothing
 
End Sub

Du coup, Daniel.C, je voudrais que ma variable "Trouve" représente le numéro de la ligne où ce ma référence "Ref". Afin de copier la plage [Saisie_pièces] sur celle-ci.
J'ai essayé avec "Trouve.Row" mais cela ne fonctionne pas.

Je pense que le problème ce situe soit sur la ligne suivante :

Code :

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

Set Trouve = Plage_recherche.Cells.Find(what:=Ref, LookAt:=xlWhole)

Ou sur celle-ci :

Code :

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

CS.Sheets("Entrée stock").[Saisie_pièces].Copy CS.Sheets("Suivi du stock").Trouve

[Daniel.C]

Dim Trouve as Variant

Code :

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

1
2
Trouve = Plage_recherche.Cells.Find(what:=Ref, LookAt:=xlWhole).Row
If IsNumeric(Trouve) then

[Skerty]

Merci de la réponse mais du coup j'ai trouvé une autre solution
Voici le code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Sub Entrée_référencée()
 
'Déclaration des variables
Dim I As Byte
Dim CS As Workbook
Dim Ref As String
Dim Ref_stock As String
Dim Plage_recherche As Range
Dim Trouve As Range
Dim Ligne_ref As Integer
 
Set CS = Workbooks("Gestion des pièces maintenance 2ème projet.xlsm")
 
'Test de la bonne saisie des caractéristiques de la pièces
For I = 3 To 11
 
    If CS.Sheets("Entrée stock").Cells(9, I).Value = "" Then
        MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée.Veuillez saisir à nouveau")
        CS.Sheets("Entrée stock").Cells(9, I).Select
        Exit Sub
    End If
Next I
 
Ref = Range("E9").Value
Set Plage_recherche = CS.Sheets("Suivi du stock").Columns(3)
 
'Recherche de la référence
Set Trouve = Plage_recherche.Cells.Find(what:=Ref, LookAt:=xlWhole)
 
If Trouve Is Nothing Then
MsgBox ("ATTENTION : La saisie (ENTRE PIECE NON REFERENCEE) est incorrecte. La référence rentrée est inexistante ou non renseignée. Veuillez saisir à nouveau")
CS.Sheets("Entrée stock").Cells(9, 5).Select
Exit Sub
 
'Exécution de la copie de la plage [Saisie_pièces] de la feuille "Entrée stock" vers la feuille "Suivi du stock" de la ligne de la référence "Trouve"
Else
 
Ligne_ref=Trouve.Row
CS.Sheets("Entrée stock").[Saisie_pièces].Copy CS.Sheets("Suivi du stock").Cells(Ligne_ref,1)
End If
 
'Réinitialisation des variables
Set Plage_recherche = Nothing
Set Trouve = Nothing
 
End Sub

J'ai réintroduit une variable "Ligne_ref" qui correspond comme vous me l'aviez dit Trouve.Row

J'en profite pour vous demander (je sais que la question a s'en doute été posée un certain nombre de fois ...) : Ma plage de cellule [Saisie_pièces] comprend des formules et je souhaiterais simplement copier les valeurs ainsi que les mots compris dans les cellules.

En vous remerciant

[Daniel.C]

J'en profite pour vous demander (je sais que la question a s'en doute été posée un certain nombre de fois ...) : Ma plage de cellule [Saisie_pièces] comprend des formules et je souhaiterais simplement copier les valeurs ainsi que les mots compris dans les cellules.

Code :

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

1
2
CS.Sheets("Entrée stock").[Saisie_pièces].Copy
CS.Sheets("Suivi du stock").Cells(Ligne_ref,1).PasteSpecial xlPasteValues

Les valeurs des cellules sont copiées.