Discussion :

[maestro1303]

Bonjour à tous,
Il y a plus d'une année que ce sujet à malheureusement été clos.

J'ai recopié votre code que je trouve très bien et je voudrais l'adapter à ma situation:
J'ai une "feuil1" et une feuille "dest". Mon but est de parcourir "dest" et si je trouve une correspondance en colonne B dans "feuil1" alors je modifie la ligne en question; et si je ne trouve pas de correspondance j'ajoute une nouvelle ligne dans "feuil1".

Ma question est comment -sans faire une autre boucle quui va ralentir- trouver le numéro de la ligne associée dans "feuil1".

Voilà le début de mon adaptation de votre excellent 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
Sub AjouterSiInexistant()
Dim Fp As Worksheet 'Feuille ¨projet
Dim Fcde As Worksheet 'Feuille Commande
Dim stNom As String 'Valeur à chercher
Dim r As Range ' Plage de recherche
Dim c
Set Fp = Sheets("feuil1")
Set Fcde = Sheets("dest")
Sheets("dest").Select
For i = 1 To Cells(65535, 1).End(xlUp).Row
stNom = Fp.Range("B" & i) 'Récupere la valeur à chercher
 
'définit la Zone de recherche
 
Set r = Fcde.Range("B:B")
 
Set c = r.Find(stNom)
 
If c Is Nothing Then
  MsgBox stNom & " ... " & Introuvable
Else
 MsgBox stNom & " Trouvé colonne " & c.Column
End If
Next i
 
End Sub

Merci infiniment de votre réponse.

[LeForestier]

Bonjour,
Très bien, c'est la preuve que tu à cherché
tu retrouve l'adresse de la cellule dans c.Address

A+

[maestro1303]

Merci beaucoup leforestier,

Mais c.address correspond à quoi. Car généralement une cellule est référencée par des coordonnées k et j : cells(k,j) avec k le numéri de ligne et j le numéro de colonne.

Que représente donc c.addresse par rapport à k et j?

Merci infiniment

[Invité]

Bonjour Maestro1303,

"c" est une variable qui fait référence à la cellule en cours.

Address est une fonction

dons c.Address va revoyer par exemple "$A$29" si la valeur recherchée a été trouvée dans cette cellule.

Dans la fenêtre VBA, tapez Address puis placez le curseur sur ce mot et appuyez sur F1 et vous aurez l'aide qui s'affichera.

[AlainTech]

Cette instruction

Code :

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

Set c = r.Find(stNom)

renvoie un objet (c) qui est une instance de la cellule trouvée.

Address est une fonction

Désolé, jacques_jean, mais Address est une Propriété.

[Invité]

Ok AlainTech,

Merci pour la précision.