[VBA-E] Find Range

Bonjour à tous,

Voici un code qui me permet dans un 1er temps de remplir un tableau dans la 1ère colonne vide et dans un 2ème temps de trouver la colonne correspondante lors de la 2ème opération.

Code:

---

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

Sub DataExportEn()   Dim Colonne As Byte Dim Trouve   With Sheets("Sheet1") If UCase(Left(.Range("I2"), 2)) = "AV" Then Colonne = Sheet2.Range("IV14").End(xlToLeft).Column + 1 If Colonne < 4 Then Colonne = 4 .Range("J2:J4").Copy Sheet2.Cells(14, Colonne) .Range("E2").Copy Sheet2.Cells(8, Colonne)   ElseIf UCase(Left(.Range("I2"), 2)) = "AP" Then Set Trouve = Sheet2.Range("D8:IV8").Find(.Range("E2"), LookIn:=xlValues) If Trouve Is Nothing Then MsgBox ("Erreur, impossible de trouver cette valeur") Exit Sub End If .Range("J2:J4").Copy Sheet2.Cells(21, Trouve.Column) End If Application.DisplayAlerts = False Cells.ClearContents '.Delete Application.DisplayAlerts = True End With   End Sub

---

Problème:
Il se peut qu'il y ait deux fois le même nombre dans la ligne 8, je voudrais alors qu'au moment où il faut trouver la correspondance (cas AP), on force son placement en vis-à-vis de celui de gauche et si celui de gauche est déjà "rempli", on l'inscrit dans celui de droite.

Merci à celui qui pourra m'aider:hola: .

Chewi

Personne pour m'aider?

Chewi:boulet:

Regarde Offset, dans l'aide.
En espérant que ça t'aidera
A+

Salut ouskel' nord et le forum,

Je veux bien que je navigue mais là je rame de trop alors je vais mettre ce sujet en délestage et m'y prendre autrement avec ActiveCell.

Attendez-vous à ce que je revienne sous peu avec un autre post!;)

(Offset ne répond pas entièrement à mon problème, il peut faire un décalage mais le problème est aléatoire, je ne sais pas pourquoi une fois excel me trouve celui de gauche et une fois celui de droite, je ne sais donc pas établir de règle fixe avec le OffSet,... la vérité est ailleurs:aie: )

Merci quand même

Citation:

---

Envoyé par Chewi

alors je vais mettre ce sujet en délestage et m'y prendre autrement avec ActiveCell.

---

Dommage...

Tu étais sur la bonne voie avec la cellule trouve.
Tu peux d'ailleurs déclarer cette variable en Range.

Es-tu certain que tu ne t'en sors pas en faisant du pas à pas et vérifier ce qui se passe.

Le problème est que je n'ai pas compris ton histoire de droite et gauche...
Et, vu le peu de réponses, je pense ne pas être le seul.

Une petite reformulation de ton problème nous aiderait, peut-être, à t'aider.

A toi de voir.

Bonjour et merci AlainTech pour ce sujet dont j'allais me séparer par manque d'espoir.

Pour info, déclarer mon ActiveCell en tant que variable va simplifier mon schmilblick et je vais rester dessus.

MAIS un minimum de savoir n'étant jamais perdu, je vas répondre à ta question et creuser encore un peu.

Le "Droite-Gauche" :

Pendant la 1ère étape (cas AV) des nombres viennent se ranger dans la ligne 8.
Je peux ainsi avoir sur la ligne 8:
2 | 3 | 4 | 4 | 5 | 7 | 9 | 11 | 15 | 12 | 12 | 12 | 16 | 17 | 18 ...

Dans la 2ème étape, mes valeurs doivent se ranger sous les numéros correspondant:
Si j'ai un 9, mon range vient en dessous du 9 et complète cette colonne
Si j'ai un 11, idem en dessous du 11

Donc le problème survient par exemple pour "12"
Lorsque Excel cherche la valeur 12 dans la ligne 8, il peut aussi bien tomber sur le 1er, le 2ème ou le 3ème.

Je ne sais vraiment pas pourquoi il ne procède pas toujours de la même façon (tout le temps celui de gauche en 1er par exemple).

Voilà, j'espère avoir un peu éclairci le problème.

J'avoue que ce n'est pas super clair.:?

Merci

Faut pas délester comme ça ;)
Lequel veux-tu ? Le premier, le dernier ?
As-tu vu qu'on peut procéder à une recherche par ligne ou par colonne ?
En l'occurence, je ferais une recherche par ligne sur la ligne 8 exclusivement.
Ensuite, si tu n'obtiens pas ce que tu veux, ou pour être certain d'être dans la bonne colonne, je vérifierais le contenu de Colonne - 1 jusqu'à ce que le contenu change pour avoir le premier nombre d'une série, ou de Colonne + 1 jusqu'à ce que le contenu change pour avoir le dernier nombre d'une série.
Comme dit AlainTech, tu n'es pas loin et ce serait dommage de laisser tomber ;)
A+