Discussion :

[familledacp]

Bonjour à tous et toutes

Je profite de ce nouveau post pour remercier tous ceux qui ont répondu par le passé à mes questions !

Je poursuis dans mes reflexions

Dans le code ci dessous, je récupère une variable dans la listBox1

Cette variable appelée "matertransfert" correspond à la première colonne d'un "catalogue" de matériels

Je réussis grâce au code ci dessous à en transférer le contenu dans la première ligne vide de la feuille active (après avoir fermé le fichier Novomaterbase)

Ce que je souhaite désormais, c'est récupérer les autres données de mon catalogue (le fichier "novomaterbase") associées au matériel de la variable "matertransfert".

J'imagine la procédure suivante

Récupérer le numéro de ligne (x) d'où vient le matériel dont le nom est dans la variable "matertransfert"
> C'est là où je coince un peu
A partir de ce numéro de ligne, aller chercher une à une les valeurs des colonnes B(x), C(x), D(x) ...... et les stocker dans des variables
Puis, rebasculer ces différentes variables dans les colonnes correspondantes de la "Worksheets("Novomaterbase")"

Est ce jouable ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim matertransfert As String
matertransfert = ListBox1.List(ListBox1.ListIndex)
 
Workbooks("NovoMaterBAse.xls").Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized
Unload UserForm1
Dim LaDerniere As Long
LaDerniere = Range("B65536").End(xlUp).Row
Dim LaCase As String
LaCase = "B" & LaDerniere + 1
Worksheets("Novomaterbase").Range(LaCase) = matertransfert

Merci par avance pour votre aide

Daniel

[Jean-Pierre49]

Un bout de code pour démarer

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
Dim matertransfert As String
matertransfert = "Toto"
 
Dim C As Range
Dim Plage As Range
Dim C1 As Range
Dim CompA As Integer
Dim R As Long
 
Set Plage = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 
For Each C In Plage
    If C.Value = matertransfert Then
        R = C.Row
        Set C1 = C
        For CompA = 1 To 20
            C1.Offset(0, CompA).Value = CompA
        Next CompA
    End If
Next C

Bon courage

[familledacp]

Merci Jean Pierre pour cette réponse

Je vais la regarder

De mon coté, j'ai poursuivi dans la première voie

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
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim matertransfert As String
matertransfert = ListBox1.List(ListBox1.ListIndex)
Dim L As Integer
Dim N As String
N = matertransfert
MsgBox (N)
L = Worksheets("Novomaterbase").Range("B1:B65536").Find(N, lookat:=xlWhole).Row
MsgBox (L)
 
Workbooks("NovoMaterBAse.xls").Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized
Unload UserForm1
Dim LaDerniere As Long
LaDerniere = Range("B65536").End(xlUp).Row
Dim LaCase As String
LaCase = "B" & LaDerniere + 1
Worksheets("Novomaterbase").Range(LaCase) = matertransfert

J'ai une erreur 91 dans la ligne 9 ... Erreur de syntaxe ?

A bientot

Daniel

[Jean-Pierre49]

Je n'ai pas d'érreur chez moi avec la ligne

Code :

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

L = Worksheets("Novomaterbase").Range("B1:B65536").Find(N, lookat:=xlWhole).Row

[familledacp]

Re bonjour

Le texte de l'erreur est "Variable objet ou variable de bloc With non définie"

Je cherche

Daniel

[Jean-Pierre49]

J'ai reproduit ton erreur

C'est quand elle ne trouve pas

regarde et tu dis

[familledacp]

Re Re

Elle ne trouve pas ....

Merci pour cet indice

Je me faisais des noeuds dans mes classeurs et mes feuilles

J'avais d'ailleurs des feuilles qui portaient le meme nom dans mes deux classeurs, j'ai donc fait quelques modifs

J'ai le classeur NovoMaterBase.xls avec la feuille BaseListe
et le classeur NovoMaterModele.xls avec la feuille ListeMater

Voici le code "modifié" et qui ne plante plus.

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
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Dim matertransfert As String
matertransfert = ListBox1.List(ListBox1.ListIndex)
Dim L As String
Dim N As String
N = matertransfert
MsgBox (N)
L = Workbooks("NovoMaterbase.xls").Worksheets("BaseListe").Range("B3:B1300").Find(N, lookat:=xlWhole).Row
MsgBox (L)
Workbooks("NovoMaterBAse.xls").Close SaveChanges:=False
ActiveWindow.WindowState = xlMaximized
Unload UserForm1
Dim LaDerniere As Long
LaDerniere = Range("B65536").End(xlUp).Row
Dim LaCase As String
LaCase = "B" & LaDerniere + 1
MsgBox (LaCase)
Workbooks("Novomatermodele.xls").Worksheets("ListeMater").Range(LaCase) = matertransfert
 
 
End Sub

Merci pour ton aide

Daniel