Discussion :

[Polygos]

Bonjour
je m'emmêle les pinceaux dans une recherche toute bête:
Dasn une boucle, je définie une valeur ("Ref") dans une feuille à rechercher dans une table pour trouver le numéro de ligne NL ou elle se situe colonne A.
bête comme chou..

Code :

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

1
2
3
4
5
6
7
 
Dim Ref as variant
Dim NL as integer
ws1.activate
Ref = Cells(i, 2).Value
ws2.activate
   NL = ws2.Range("A").Find(Ref).Row

et bien non.
Ou est ce que je me trompe ?

Merci de votre aide

[Invité]

Bonjour,
https://www.developpez.net/forums/d1...e/#post8128041

[Polygos]

Bon.
Vraiment là, je n'arrive pas à transposer.
L'erreur est dans:

Code :

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

NL = ws2.Range("A").Find(Ref).Row

La méthode find ne demande qu'un argument obligatoire, what.
la zone de recherche est définie avant par l'objet range, ici.
L'bject range, et ce doit être l'erreur ne peut pas être. Find(Ref)ou
le format Find(Ref) n'est pas correct.
En l'occurence ici Ref es un alphanumérique, uen référence article de type XXX001

Des précisions ?

[joe.levrai]

Bonjour,

qu'est-ce que Range("A") ?
une plage nommée, ou tu veux faire référence à la colonne A, qui s'écrirait Range("A:A") ou Columns(1) ?

ensuite, quand on utilises Find() :

- il est hautement conseillé de renseigner l'ensemble des paramètres (voir l'aide en ligne pour la liste des paramètres) car à défaut, VBA utilisera les derniers paramètres renseignés dans la boite de dialogue ! A minima, on renseigne les paramètres "LookIn" et "LookAt", le reste est souvent pas nécessaire, mais conseillé

- on ne manipule JAMAIS directement une propriété du range renvoyé par FIND. Si on ne trouve aucune occurrence, le Range n'existe pas et FIND renvoie donc Nothing ==> Plantage assuré
on travaille en deux temps

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim MaRecherche As Range, MonMot As String
MonMot = "toto"
   Set MaRecherche = ThisWorkbook.Worksheets("Gestion Interne PRESTA").Columns(1).Find(MonMot, , xlValues, xlWhole)
If Not MaRecherche Is Nothing Then
    MsgBox MaRecherche.Row
Else
    MsgBox "rien trouvé"
End If
End Sub

[Invité]

Dans me lien que je t'ai donné il y a. La fonction qui fait exactement ce que tu souhaites!

[Polygos]

Bonsoir Joe et merci de ton aide
Dans ton exemple, Find renvoie une plage "Marecherche".
si je veux le numéro de ligne ou se trouve alors le bon "MonMot", alors j'ajoute
NL = Marecherche.row pour trouver ce numéro de ligne ? on est d'accord ?

[Invité]

C'est pas vrai! Développez.com ma mis dans les indésirables? Mes postes sont vues par personnes?

[Polygos]

merci les gars, ça fonctionne.
Il me reste un dernier souci, magie de l'informatique car ça marchait très bien jusqu'à ce soir et pourtant je n'ai rien changé: insérer une colonne vide après la dernière colonne non vide (et donc avant d'autres colonnes de calculs)
Wb1 est une feuille de saisie d'articles
Wb2 est l'inventaire déployé qui créé une colonne par nouvelle commande, juste après la dernière colonne occupée en ligne 4 pour y reporter la liste des articles commandés qui eux sont en ligne
Les articles sont donc en lignes, les commandes en colonnes

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
 
Set ws1 = ThisWorkbook.Worksheets("Entrées")
DL1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
 
'Dernière colonne: il n'y a jamais rien après la dernière date de saisie
Set ws2 = ThisWorkbook.Worksheets("Feuil1")
Dc = ws2.Cells(4, Cells.Columns.Count).End(xlToLeft).Column
'Dernière ligne inventaire
DL2 = ws2.Range("F" & Rows.Count).End(xlUp).Row
ws2.Activate
 
' Ajout d'une colonne pour le mouvement
Columns(Dc + 1).Insert Shift:=xlToRight
 
'Saisie des données commande
ws2.Cells(2, Dc + 1) = ws1.Cells(2, 7)
ws2.Cells(4, Dc + 1) = ws1.Cells(4, 7)
ws2.Cells(6, Dc + 1) = ws1.Cells(6, 7)

Ce que je constate ?
Le positionnement aléatoire de la dernière colonne créée, parfosi au bon endroit parfosi ailleurs.
Pourtant j'ai vérouillé la feuille à chaque action (activate), le nombre de colonne Dc est toujours bon

Ensuite, vous m'avez aidé à remplir cette colonne crée avec les articles commandés, pris, eux, de la feuille d'entrée ws1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ws1.Activate
'Saisie des articles
Dim Recherche As Range
 
For i = 1 To DL1
    Ref = ws1.Cells(i, 2).Value
    Qty = ws1.Cells(i, 3).Value
    Set Recherche = ws2.Range("A:A").Find(Ref, , xlValues, xlWhole)
    NL = Recherche.Row
    MsgBox NL
    ws2.Cells(NL, Dc - 1) = Qty
Next i

Le but c'est de coller le nombre d'article de référence Ref en face de sa référence dans la colonne ainsi créée correspondant à cette nouvelle commande.
Mais cells(NL, Dc-1) ne prend pas l avaleur Qty, qui es la quantité d'article commandé de Reférence Ref.

Là, mystère et boule de gomme et chapeau pointu.
ws2.Cells(NL, Dc - 1) = Qty ne se remplit pas
Je suis sans doute fatigué..