Discussion :

[Chewi]

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 :

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
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 .

Chewi

[Chewi]

Personne pour m'aider?

Chewi

[ouskel'n'or]

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

[Chewi]

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 )

Merci quand même

[AlainTech]

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.

[Chewi]

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

[ouskel'n'or]

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+