trie par rapport a A1

[AIGLON74]

bonjour a tous


trier la colonne B de la page 'base' en croissant
par rapport au resultat de la cellule A1 de la feuille 'fiche'

si A1=D

Le trie doit commencer a D

si A1=N

Le trie doit commencer a N

faire le trie ok
mais par rapport a la cellule A1 la je bloque



merci d'avoir pris le temps de lire ce message



Aiglon74

 

[skoobi]

Re : trie par rapport a A1

Bonsoir,
😕😕 soi tu tri la colonne B, D ou N mais trier colonne B en commencant par D ou N 😕😕

 

[AIGLON74]

Re : trie par rapport a A1

desole pour les explications

 

[AIGLON74]

Re : trie par rapport a A1

bonjour a tous

je reprendre mon explication

1er feuille
j'ai ue feuille nomme fiche
en cellule A1 J'ecris 'centre'


2eme feuille
en feuille nomme ' base'
je voudrais trie la plage A1:G200
OU j'ai des donnée

par rapport a la colonne B
mais le trie doit commencer au mot qui est inscrit
en feuille fiche cellule A1
DANS exemple le mot est 'centre'

mais le mot peu etre 'moyenne'
et la le trie doit commencer au mot moyenne

en disant commencer au mot
moyenne doit se retrouver en B1




J'espere avoir été un peu plus clair

AIGLON74

 

[AIGLON74]

Re : trie par rapport a A1

bonjour a tous

toujour mon probleme de trie
je vous envoyer un fichier qui sera plus parlant
du moins je pense

trie par une macro la feuille base
pour que le mot qui est dans la cellule g12 de la feuille consultation
sio en haut de la feuille

aiglon74

 

[skoobi]

Re : trie par rapport a A1

Bonjour,
voivi une proposition.

 

[AIGLON74]

Re : trie par rapport a A1

bonjour skoobi et au forum

je viens de teste ta macro de trie
elle marche du tonnerre

serait' il possible quelle affiche un message si le binomome n'excite pas


encore merci
Aiglon74
A+

 

[skoobi]

Re : trie par rapport a A1

Re bonsoir,
remplace le code par celui-ci:

Option Compare Text
Sub tri()
Dim trouve As Boolean
For lig = [B1].End(xlDown).Row To 2 Step -1
   If Cells(lig, 2).Value = Sheets("Consultation").[G12].Value Then
      Range(Cells(lig, 1), Cells(lig, 5)).EntireRow.Cut
      Rows(1).Insert Shift:=xlDown
      trouve = True
   End If
Next
If Not trouve Then MsgBox Sheets("Consultation").[G12].Value & " n'existe pas."
End Sub

 

[AIGLON74]

Re : trie par rapport a A1

re

dans la cellule de la Sheets("Consultation").[G12]
et dans la cellule de la Sheets("Consultation").[G18]

si ce duo existe dans la sheets ("base")la macro trie fonctionne

si elle n'existe pas alors la!!! message et je reste a la sheets ("Consultation")


g12 pignon de centre g18 jh02 le binome existe pas de message la macro trie entre en action et va en sheets ("ordre")

g12 pignon de centre g18 jh04 le binome n'est pas dans la sheets ("base") alors message et je reste sur la sheets ("Consultation")


avec la modif j'ai n'existe pas a tout les coups

A+

Aiglon74

 

[skoobi]

Re : trie par rapport a A1

Re,
J'ai du mal à te suivre.
Je suppose que tu veux vérifier si G12 et G18 de la feuille Consultation sont
ensemble dans la feuille Base.
Si le binome existe aller en feuille Ordre.
Si le binome n'existe pas aller en feuille Consultation.
J'ai fais les modifs dans ce sens.

Option Compare Text
Sub tri()
Dim trouve As Boolean
For lig = [B1].End(xlDown).Row To 1 Step -1
    If lig = 1 Then
        If Cells(lig, 2).Value = Sheets("Consultation").[G12].Value _
        And Cells(lig, 1).Value = Sheets("Consultation").[G18].Value Then
            trouve = True
            Exit For
        End If
    End If
   If Cells(lig, 2).Value = Sheets("Consultation").[G12].Value _
   And Cells(lig, 1).Value = Sheets("Consultation").[G18].Value Then
      Range(Cells(lig, 1), Cells(lig, 5)).EntireRow.Cut
      Rows(1).Insert Shift:=xlDown
      trouve = True
   End If
Next
If Not trouve Then
    MsgBox Sheets("Consultation").[G12].Value & " " & Sheets("Consultation").[G18].Value & " n'existe pas."
    Sheets("Consultation").Activate
ElseIf trouve Then
    Sheets("Ordre").Activate
End If
End Sub

 

[AIGLON74]

Re : trie par rapport a A1

re,

je joint un fichier

avec la modif j'ai n'existe pas a tout les coups

A+

Aiglon74

 

[skoobi]

Re : trie par rapport a A1

Re,
car tu as déplacé le bouton!!!!🙄

C'est rectifié:

Option Compare Text
Sub tri()
Dim trouve As Boolean
With Sheets("Base")
    For lig = .[B1].End(xlDown).Row To 1 Step -1
        If lig = 1 Then
            If .Cells(lig, 2).Value = Sheets("Consultation").[G12].Value _
            And .Cells(lig, 1).Value = Sheets("Consultation").[G18].Value Then
                trouve = True
                Exit For
            End If
        End If
       If .Cells(lig, 2).Value = Sheets("Consultation").[G12].Value _
       And .Cells(lig, 1).Value = Sheets("Consultation").[G18].Value Then
          .Range(Cells(lig, 1), Cells(lig, 5)).EntireRow.Cut
          .Rows(1).Insert Shift:=xlDown
          trouve = True
       End If
    Next
End With
If Not trouve Then
    MsgBox Sheets("Consultation").[G12].Value & " " & Sheets("Consultation").[G18].Value & " n'existe pas."
    Sheets("Consultation").Activate
ElseIf trouve Then
    Sheets("Ordre").Activate
End If
End Sub

 

[AIGLON74]

Re : trie par rapport a A1

re,

je plante a la ligne
.Range(Cells(lig, 1), Cells(lig, 5)).EntireRow.Cut
elle est surligne de jaune

 

[skoobi]

Re : trie par rapport a A1

Re,
ajoute un point devant les cells:
.Range(.Cells(lig, 1), .Cells(lig, 5)).EntireRow.Cut

 

[AIGLON74]

Re : trie par rapport a A1

bonsoir

ok tout roule

mille merci

aiglon74