Texte contenue dans plage décaler Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 28 décembre 2018, 11:59

Bonjour à tous !
Comment allez-vous ? :)

J'aurais besoin de votre aide pour connaître le texte contenu dans plusieurs cellules. Le but est de savoir dans quel quart-temps de basket le maximum de points a été inscrit (attention, il peut y avoir plusieurs max). Pour bien comprendre la question, le plus simple est de regarder l'exemple dans la colonne Q du fichier joint.

Merci beaucoup pour votre aide
Bonne journée

Quik
Maximum sur plage décaler.xlsx
(631.8 Kio) Téléchargé 12 fois
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 28 décembre 2018, 12:24

Salut Quik!
quik09 a écrit :
28 décembre 2018, 11:59
Comment allez-vous ? :)
On fais aller :p Et toi, comment va ?
quik09 a écrit :
28 décembre 2018, 11:59
Le but est de savoir dans quel quart-temps de basket le maximum de points a été inscrit
Une solution par VBA te conviens :p ?

Si oui, cf le fichier ci-joint !

Restant à dispo
Pour Quik.xlsm
(638.06 Kio) Téléchargé 10 fois
1 membre du forum aime ce message.
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 28 décembre 2018, 18:18

Salut Juice,

ça va merci :)

Oui, une solution VBA irai très bien.
J'ai testé ton code mais il y a souci, il manque le dernier résultat pour le dernier match et aussi, si il y a deux maximums, il n'en prend que un des deux (dans l'ordre si c'est 1 et 4ème il va prend le 1er quart, si c'est 2 et 3ème il va prendre le 2ème) :(
Dans ce cas de figure il faudra que ce soit mis 1st4th et 2nd3rd

Vois-tu une solution ?
Est-ce que le code fonctionne s'il y a 1000 lignes de plus ou de moins ?

Merci beaucoup pour ton aide !

A+
Avatar du membre
bigdaddy154
Membre impliqué
Membre impliqué
Messages : 1'156
Appréciations reçues : 36
Inscrit le : 5 mars 2014
Version d'Excel : 2010

Message par bigdaddy154 » 28 décembre 2018, 19:58

Bonsoir tt le monde,

à tester.

Bonnes fêtes.
Maximum sur plage décaler.xlsb
(189.68 Kio) Téléchargé 9 fois
1 membre du forum aime ce message.
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 28 décembre 2018, 21:14

Bonsoir bigdaddy154,

Merci, bonnes fêtes à toi aussi !
J'ai bien regarder ton fichier mais je comprend pas, lorsque j'ajoute 4 lignes comme sur l'exemple que je joint, il m'indique pas le bon quart-temps pour le dernier match que j'ajoute.
Aurais-tu une idée ?

Merci
Bonne soirée
Quik
Maximum sur plage décaler 2.xlsb
(221.48 Kio) Téléchargé 4 fois
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 30 décembre 2018, 14:49

Je relance le sujet..
Quelqu'un aurait une idée ? :)

Merci !
Bonne après-midi
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 31 décembre 2018, 08:30

Reeee~
Salut bigdaddy!
Bonne fête également ;D
quik09 a écrit :
28 décembre 2018, 18:18
il manque le dernier résultat pour le dernier match
C'est réglé en remplaçant le While Wend par un Do While Loop :)
quik09 a écrit :
28 décembre 2018, 18:18
et aussi, si il y a deux maximums, il n'en prend que un des deux (dans l'ordre si c'est 1 et 4ème il va prend le 1er quart, si c'est 2 et 3ème il va prendre le 2ème) :(
Dans ce cas de figure il faudra que ce soit mis 1st4th et 2nd3rd

Vois-tu une solution ?
Alors la par contre je ne comprend pas le truc!

Ton fichier ne présente pas qu'un seul résultat toute les quatre lignes ?

J'aimerais bien avoir un fichier exemple avec ces fameux "1st4th et 2nd3rd" stp ^^
quik09 a écrit :
28 décembre 2018, 18:18
Est-ce que le code fonctionne s'il y a 1000 lignes de plus ou de moins ?
Oui oui!

Le nombre de ligne a traité se fais en fonction du nombre de ligne présent en colonne F

Il en ferra pas une de plus et pas une de moins ;D

Restant à dispo!
1 membre du forum aime ce message.
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 1 janvier 2019, 20:57

Salut Juice,

Merci pour ta réponse ! J'ai essayer de changer le While Wend par Do While et Loop mais je crois pas que j'ai fait juste :bof:
Sub Basket()
Dim x, y As Long, c, p As Range
Columns("Q:Q").Delete
For x = 1 To Range("F" & Rows.Count).End(xlUp).Row
    y = x + 1
    Do While Cells(y, 6) <> Cells(x, 6)
        y = y + 1
        If Cells(y, 6) = "" Then Exit For
    Loop
    y = y - 1
    Set p = Range("M" & x & ":P" & y)
    For Each c In p
        If c <> "" Then
            Cells(x, 17) = c.Value
            Range("Q" & x & ":Q" & y).Merge
            Exit For
        End If
    Next c
    x = y
Next
Columns("Q:Q").HorizontalAlignment = xlCenter
Columns("Q:Q").VerticalAlignment = xlCenter
End Sub
Pour les 2nd3rd, regarde le fichier que j'ai joint, j'ai volontairement modifié les résultats des quart-temps du dernier match. j'ai mis le même nombre de points sur tout les quart-temps donc je devrais avoir 1st2nd3rd4th. Pour ça le fichier de Bigdaddy fonctionne mais il a d'autres soucis.

Merci bcp !
Avatar du membre
Juice
Membre impliqué
Membre impliqué
Messages : 1'141
Appréciations reçues : 102
Inscrit le : 28 novembre 2017
Version d'Excel : Microsoft Excel 2010

Message par Juice » 2 janvier 2019, 09:17

Reeee~

Je pense avoir compris cette logique de mettre deux références si les scores sont identiques sur des quarts différents !

Je te laisse regarder le fichier & codes ci-dessous :)

Restant à dispo!
Sub Basket_v_2()
Dim x, y, z As Long
Columns("M:M").ClearContents
Columns("M:M").UnMerge
For x = 1 To Range("F" & Rows.Count).End(xlUp).Row
    y = x + 1
    Do While Cells(y, 6) <> Cells(x, 6)
        If Cells(y, 6) = "" Then Exit Do
        y = y + 1
    Loop
    y = y - 1
    For z = x To y
        If Cells(z, 11) = Cells(z, 12) Then Cells(x, 13) = Cells(x, 13) & Cells(z, 6)
    Next
    Range(Cells(x, 13), Cells(y, 13)).Merge
    x = y
Next
Columns("M:M").HorizontalAlignment = xlCenter
Columns("M:M").VerticalAlignment = xlCenter
End Sub
Pour Quik.xlsm
(471.11 Kio) Téléchargé 4 fois
1 membre du forum aime ce message.
Dans l'incapacité de continuer à vous aidez sur vos fichiers, je vous prie de bien vouloir m'excuser et vous invite à ouvrir un nouveau sujet pour reprendre vos problèmes avec un membre actif du Forum.

En espérant revenir très vite :)
q
quik09
Membre habitué
Membre habitué
Messages : 60
Inscrit le : 4 mai 2017
Version d'Excel : 2010

Message par quik09 » 2 janvier 2019, 20:30

Re !

Il est parfait ton code !!
Merci beaucoup !!!!
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message