Discussion :

[Sebphyto]

Bonjour le forum,

Comment faire simple, je vais essayer de m'expliquer...

J'ai des positions
1--2
2--3
3--4
4--5

J'ai une série de 10 chiffres

ex: 3-6-12-10-7-1-4-2-11-8

En premier temps, j'aimerai pouvoir ressortir en fonction des positions et de la série

ceux-ci : (avec exemple c plus simple)

1--2 --> 3-6
2--3 --> 6-12
3--4 --> 12-10
4--5 --> 10-7

Par la suite, en sachant qu'en fonction du résultat obtenu, les couplés devront être
comparés à une arrivée (ex: 3-15-12).

De là, un rapport d'arrivée est obtenu: CP1, CP2 et CP3

Voici la correspondance:

CP1 = à la position 1--2
CP2 = à la position 1--3
CP3 = à la position 2--3

Enfin, une fois la comparaison effectuée, il faudrait que en face de chaque couplé, il me mettre le rapport
associé (soit CP1; CP2 ou CP3)

Merci d'avance pour votre aide

Si vous avez besoin d'une pièce jointe, merci de me le demander

[casefayere]

Bonsoir,
un petit fichier construit comme l'image jointe, et le code à mettre dans un bouton si tu veux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub pmu()
Dim leschiffres, x As Integer, Dc As Range
 
With Sheets("Feuil1") 'à remplacer par le nom de la feuille
  Set Dc = .Range("A" & .Rows.Count).End(xlUp)
  leschiffres = Split(.Range("A2"), "-")
  .Range("B4", Dc(1, 2)).NumberFormat = "@"
  For x = 4 To Dc.Row
    .Range("B" & x) = leschiffres(Split(.Range("A" & x), "--")(0) - 1) & "-" & leschiffres(Split(.Range("A" & x), "--")(1) - 1)
  Next x
End With
End Sub

[Sebphyto]

Bonjour le forum,
et bonjour casefayere,

Un grand merci, pour cette première résolution....

Fonctionne très bien, j'aurai juste aimé apporter une modification, car ici la série de 10 chiffres sont consigné dans une seule cellule (en A2), hors ma saisie se fait pas 1 chiffre = 1 cellule.
Comme faire ?

Sinon pour le reste comment puis-je procéder?

Par la suite, en sachant qu'en fonction du résultat obtenu, les couplés devront être
comparés à une arrivée (ex: 3-15-12).

De là, un rapport d'arrivée est obtenu: CP1, CP2 et CP3

Voici la correspondance:

CP1 = à la position 1--2
CP2 = à la position 1--3
CP3 = à la position 2--3

Enfin, une fois la comparaison effectuée, il faudrait que en face de chaque couplé, il me mettre le rapport
associé (soit CP1; CP2 ou CP3)

Merci d'avance pour votre aide

Si vous avez besoin d'une pièce jointe, merci de me le demander

Bonne journée à tous

[casefayere]

Re tous,
je reprends ton fichier et ton code et me suis arrété sur ce qui te cause problème, essayes ça, je n'ai pas été plus loin

Code :

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

1
2
3
4
5
6
7
8
9
 Set Dc = .Range(.Range("Y4"), .Range("Y4").End(xlToLeft))
  .Range("Y5", Dc(2, 1)).NumberFormat = "@"
 
  For x = 25 To Dc.Column Step 2
    n1 = CInt(Split(.Cells(4, x), "--")(0) - 1)
    n2 = CInt(Split(.Cells(4, x), "--")(1) - 1)
      MsgBox CStr(.Cells(5, n1 + 5)) & "-" & CStr(.Cells(5, n2 + 5))
    .Cells(5, x) = CStr(.Cells(5, n1 + 5)) & "-" & CStr(.Cells(5, n2 + 5))
  Next x

[Sebphyto]

Re Dom,

Jolie défi....merci

j'ai changé un truc sinon rien ne se passe

Code :

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

Set Dc = .Range(.Range("Y4"), .Range("Y4").End(xlToLeft))

En

Code :

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

Set Dc = .Range(.Range("Y4"), .Range("Y4").End(xlToRight))

il inscrit bien, selon mon fichier, en Y5 sous 1--2 (Y4)--->4-2 (il me le signale par un msgBox)

Après un brin de réflexion,

Code :

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

Step 2

est fait pour saut une cellule...Non???

Mais il ne saute pas de cellule....

Euh, ça fait beaucoup de chose qui change là....

c pas simple, mais je persévère...

A+

Edit:
pourquoi DC (2,1)

Code :

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

.Range("Y5", Dc(2, 1))

je pige pas pourquoi dc 2 et 1?

[casefayere]

Donc, d'après ce que tu dis, l'image
le 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
Sub pmu()
Dim leschiffres, x As Integer, Dc As Range
Dim Dcol As Range
 
With Sheets("Feuil1") 'à remplacer par le nom de la feuille
  Set Dc = .Range("A" & .Rows.Count).End(xlUp)
  Set Dcol = .Cells(2, .Columns.Count).End(xlToLeft)
  leschiffres = .Range("A2", Dcol)
  .Range("B4", Dc(1, 2)).NumberFormat = "@"
  For x = 4 To Dc.Row
    .Range("B" & x) = leschiffres(1, Split(.Range("A" & x), "--")(0)) & "-" & leschiffres(1, Split(.Range("A" & x), "--")(1))
  Next x
End With
End Sub

pour la suite

Par la suite, en sachant qu'en fonction du résultat obtenu, les couplés devront être
comparés à une arrivée (ex: 3-15-12).

De là, un rapport d'arrivée est obtenu: CP1, CP2 et CP3

Voici la correspondance:

CP1 = à la position 1--2
CP2 = à la position 1--3
CP3 = à la position 2--3

Enfin, une fois la comparaison effectuée, il faudrait que en face de chaque couplé, il me mettre le rapport
associé (soit CP1; CP2 ou CP3)

à toi d'adapter, et, en plus comment retrouves-tu le rapport

[Sebphyto]

Re Casefayere,

Superbe, rien à dire, franchement je vous envie de sortir des codes à la volée comme çà....moi je rentre en formation Excel VBA en février pour 5 jours et j'espère pouvoir sortir ce genre de programmation....

Sinon pour la suite,

Évidemment le top serait d'aller chercher sur le web, les rapports......

Mais pour l'instant, je les saisie manuellement
comme suit avec image:

CP1 = à la position 1--2
CP2 = à la position 1--3
CP3 = à la position 2--3

Enfin, une fois la comparaison effectuée, il faudrait que en face de chaque couplé, il me mettre le rapport
associé (soit CP1; CP2 ou CP3)

Pièce jointe 167219

Pour info, il faut savoir que tous les pronos sont consignés dans une BDD, que voici
Pièce jointe 167220

De là, il va falloir que je trouve le moyen de l'associer à cette bdd....Bref

A+ et merci beaucoup

[geogeo70]

...
Mais pour l'instant, je les saisie manuellement
comme suit avec image:

CP1 = à la position 1--2
CP2 = à la position 1--3
CP3 = à la position 2--3

Enfin, une fois la comparaison effectuée, il faudrait que en face de chaque couplé, il me mettre le rapport
associé (soit CP1; CP2 ou CP3)

...
Pour info, il faut savoir que tous les pronos sont consignés dans une BDD, que voici

bonsoir,

je te propose cette procédure modifiée de casefayere :

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
Sub pmu()
Dim x As Integer, Dc As Range
Dim n1 As Integer, n2 As Integer
 
With Sheets("Feuil2") 'à remplacer par le nom de la feuille
  Set Dc = .Range("A" & .Rows.Count).End(xlUp)
  .Range("B4", Dc(1, 2)).NumberFormat = "@"
  For x = 4 To Dc.Row
    n1 = CInt(Split(.Range("A" & x), "--")(0) - 1)
    n2 = CInt(Split(.Range("A" & x), "--")(1) - 1)
    .Range("B" & x) = CStr(Feuil1.Cells(2, n1 + 11)) & "-" & CStr(Feuil1.Cells(2, n2 + 11))
    .Range("C" & x) = Feuil1.Cells(2, 17 + x)
  Next x
End With
End Sub

Je mets les résultats en feuil2 et en feuil1 je recopie les données dans l'ordre donné,
données :

résultat :


à toi...

geogeo70

[casefayere]

sinon pourquoi il ne met pas tous les couplés dans le tableau....en AA, AC, AE

chez toi, je ne sais pas, je n'ai testé que cette partie

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
28
29
30
31
32
Sub suite()
Dim x As Integer, Dc As Range
Dim n1 As Integer, n2 As Integer
 
'With Sheets("Feuil2")
With Sheets("SynthèseR1")
   Set Dc = .Range(.Range("Y4"), .Range("Y4").End(xlToLeft))
  .Range("Y5", Dc(2, 1)).NumberFormat = "@"
 
  For x = 25 To Dc.Column Step 2
    n1 = CInt(Split(.Cells(4, x), "--")(0) - 1)
    n2 = CInt(Split(.Cells(4, x), "--")(1) - 1)
      MsgBox CStr(.Cells(5, n1 + 5)) & "-" & CStr(.Cells(5, n2 + 5))
    '.Cells(3, x) = CStr(Feuil1.Cells(2, n1 + 11)) & "-" & CStr(Feuil1.Cells(2, n2 + 11))
    .Cells(5, x) = CStr(.Cells(5, n1 + 5)) & "-" & CStr(.Cells(5, n2 + 5))
  Next x
  n1 = 1
  fin = False
  For x = 4 To 6
    Do
     If Dc.Cells(1, n1) = .Cells(x, 1) Then
        Dc.Cells(3, n1) = .Cells(2, 17 + x)
        If x = 4 Then Dc.Cells(4, n1) = .Cells(2, 16 + x)
        fin = True
     End If
     n1 = n1 + 1
    Loop Until n1 = Dc.Count + 1 Or fin
    fin = False
    n1 = 1
   Next x
End With
End Sub

[Sebphyto]

Re,

As-tu téléchargé mon fichier?

normalement on devrait avoir la même chose,

Y-a-pas de décalage horaire entre toi et moi pourtant???

Seb

[casefayere]

ce que tu demandes a l'air un peu plus compliqué, il faut réfléchir et organiser l'élaboration du ou des code(s)

as-tu un fichier prêt ? car là je ne peux travailler dans le vide, encore que j'espère que tu réfléchis en même temps de ton coté.

[Sebphyto]

Re Casefayere,

Oui, je travaille de mon côté, mais comme tu le verras dans le fichier joint, je le fais seulement par formule, car en VBA je suis plus que novice , et là la formulation devient un peu plus ardue....

La feuil1 correspond à ma base de données
la 2 au 1er code que tu m'as fourni et la 3ème au 2nd code...

Disons que pour le VBA, je n'arrive pas pour l'instant à partir de rien, je me débrouille en récupérant des codes par-ci par-là et en les adaptant.....

Ce que je recherche est de pouvoir t'aider, tout en m'aidant moi-même....

A+

Pièce jointe 167227

[casefayere]

oui, j'ai repris ton dernier fichier

[Sebphyto]

Ahh les mystères de la quantique....

C'est un problème

Voici mon fichier avec tes modifs

[casefayere]

Bonjour,

En fait, ici je ne comprend pas ce que cela veut dire....

Code :

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

1
2
3
4
5
6
7
8
 n1 = CInt(Split(.Cells(2, x), "--")(0) - 1)
'cint => donne un integer
'split donne un array dont les éléments sont séparés par "--" dans ton cas
'(0)donne la position de l'élément, 0 étant le premier élément
'en résumé, si .Cells(2, x) = 12--3--1,
'n1 = CInt(Split(.Cells(2, x), "--")(0) - 1) => n1 = 11,
'n1 = CInt(Split(.Cells(2, x), "--")(1) - 1) => n1 = 2
'n1 = CInt(Split(.Cells(2, x), "--")(2) - 1) => n1 =0

[Sebphyto]

Bonjour Dom,

Merci pour l'explication, même si j'ai pas tout saisie encore.... entre-autre:

Code :

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

1
2
3
4
'en résumé, si .Cells(2, x) = 12--3--1,
'n1 = CInt(Split(.Cells(2, x), "--")(0) - 1) => n1 = 11,
'n1 = CInt(Split(.Cells(2, x), "--")(1) - 1) => n1 = 2
'n1 = CInt(Split(.Cells(2, x), "--")(2) - 1) => n1 =0

Après c'est que je ne comprends pas pourquoi, ça ne fonctionne pas dans mon code

Oulala, j'ai encore beaucoup à apprendre de cette logique...

et merci encore du temps que vous passez à m'apprendre et m'aider

A+

Edit: c'est bon je viens de comprendre ton explication....

[casefayere]

encore un essai de compréhension, essaies cette procédure que tu mets dans un module quelconque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai()
Dim Letexte As String
Letexte = "12,5,1"
MsgBox "1er Num= " & Split(Letexte, ",")(0) & Chr(10) _
& "2eme Num= " & Split(Letexte, ",")(1) & Chr(10) _
& "3eme Num= " & Split(Letexte, ",")(2)
MsgBox "1er Num= " & Val(Split(Letexte, ",")(0)) - 1 & Chr(10) _
& "2eme Num= " & Val(Split(Letexte, ",")(1)) - 1 & Chr(10) _
& "3eme Num= " & Val(Split(Letexte, ",")(2)) - 1
 
End Sub

[Sebphyto]

Re Dom,

C cool, merci j'ai compris

Maintenant, pourquoi il ne boque sur mon code???

J'ai essayé d'adapter le code de Geogeo à mon tableau mais en vain.....

Je persiste....

Merci
*
A+

[casefayere]

j'ai testé chez moi sans problème, Step 2, effectivement dans ton cas passe une colonne (toutes les 2 colonnes)

[Sebphyto]

Ah bon,

parce que je viens de retester avec Left et non Right, et rien ne se passe???

sinon pourquoi il ne met pas tous les couplés dans le tableau....en AA, AC, AE