FORUM MP | Visual basic : [Excel VBA] Comment conserver ordre Cell

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

[Excel VBA] Comment conserver ordre Cell
	Forum : VISUAL BASIC Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ VISUAL BASIC
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2]

FORUM VISUAL BASIC
	Page précedente	Page suivante

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129624 Posté le 05/04/07 à 15:24

Pouvez vous m'aidez svp?

Dans la ColA de la premiere feuille j'ai besoin de rechercher toutes les cellules avec comme valeur respectives "Paris", "Seoul", "Tokyo" puis de les copier dans la ColA de la seconde feuille nommée "Xtractor".

Ma macro fonctionne et me donne bien les valeurs recherchees dans la seconde feuille mais elle ne respecte pas l'ordre d'origine des cellules et j'ai besoin d'être sûr de conserver l'ordre d'apparition des cellules d'origine.

example en dessous: (Mon résultat)

PARIS
PARIS
PARIS
SEOUL
SEOUL
TOKYO
TOKYO
TOKYO

J'aimerai conserver l'ordre reel des cellules de la ColA.

example en dessous: (Example de Resultat souhaité)

PARIS
TOKYO
PARIS
PARIS
SEOUL
TOKYO
SEOUL
TOKYO
TOKYO

Savez vous comment faire pour etre sur de conserver l'ordre d'origine des cellules recherchée dans la ColA de la 1ere feuille et copiées dans la deuxieme feuille?

Sub Xtractor () UN Copy_To_Another_Sheet (called "Xtractor") ' all cells with "PARIS", "SEOUL", "TOKYO" ' By order of appearence from A1 to A5000 Dim MyArr As Variant Dim Rcount As Long Dim n As Long Dim rng2 As Range Dim FirstAddress2 As String Application.ScreenUpdating = False MyArr = Array (PARIS", "SEOUL", "TOKYO) Rcount = 0 With Sheets("Sheet1").Range("A1:A50000 ") For n = LBound(MyArr) To UBound(MyArr) Set rng2 = .Find(What:=MyArr(n), _ After:=.Cells(.Cells.Count), _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not rng2 Is Nothing Then FirstAddress2 = rng2.Address Do Rcount = Rcount + 1 ‘ This example will only copy the value Sheets("Xtractor").Range("A" & Rcount).Value = rng2.Value Set rng2 = .FindNext(rng2) Loop While Not rng2 Is Nothing And rng2.Address <> FirstAddress2 End If Next n End With Application.ScreenUpdating = True End Sub

__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#129630 Posté le 05/04/07 à 16:02

Bonjour

ce code fonctionne -t-il Smiley

Sub Macro1() Application.ScreenUpdating = False Sheets(1).Select For i = 1 To Range("A65536").End(xlUp).Row Sheets(1).Select Cells(i, 1).Select If Selection.Value = "PARIS" Or Selection.Value = "SEOUL" Or Selection.Value = "TOKYO" Then Selection.Copy Sheets(2).Select derl = Range("A65536").End(xlUp).Row + 1 Cells(derl, 1).Select ActiveSheet.Paste End If Next Sheets(2).[a1].Value = "Villes triées" Application.ScreenUpdating = True Sheets(2).Select End Sub

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#129711 Posté le 06/04/07 à 07:41

Bonjour

ma réponse vous satisfait-elle Smiley

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129721 Posté le 06/04/07 à 09:29

Bonjour,

Merci pour votre réponse.

J'ai essayé votre code malheureusement il n'apparait dans la 2eme page que la ligne "Villes triées".

Merci pour votre aide.

Koshin
__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#129725 Posté le 06/04/07 à 09:39

Bonjour

Bizzare, il y a peut-être une donnée que vous ne m'avez pas expliqué

voir cet exemple

Exemple ici

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129727 Posté le 06/04/07 à 10:00

Oui en effet je pense savoir pourquoi ca ne fonctionne pas, j'ai oublie de preciser qu'il y des donnees qui suivent Paris, Seoul et Tokyo dans la même Cellule..

C'est pour cela que dans mon precedent code j'avais utilise "xlPart"

Ce doit etre ca qui bloque je suppose..
__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#129728 Posté le 06/04/07 à 10:03

oui en effet

en plus il faut faire attention aux majuscules et minuscules Smiley

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129730 Posté le 06/04/07 à 10:14

Je dois pas être bien doué j'ai essayer de rajouter ".xlPart" a la ligne :

If Selection.Value.xlPart = "PARIS" Or Selection.Value = "SEOUL" Or Selection.Value = "TOKYO" Then

Mais là ca ne marche pas savez vous s'il vous plait comment je pourrais faire pour pour qu'il prenne en compte le ".xlPart" ?

Merci par avance (J'ai honte) ^_^
__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE

Visiteur MP
Membre du club

Inscrit :
Messages : 1250

#129731 Posté le 06/04/07 à 10:20

malheueusement le xlpart n'est pas un attribut de value

dans votre cas il faut passer par une autre procédure

find ou quelques choses dans le genre

Smiley

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129732 Posté le 06/04/07 à 10:26

Aarghh.. J'y étais presque Smiley

Merci beaucoup pour votre aide Smiley

__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE


	Page précédente	Page suivante
FORUM VISUAL BASIC

PAGES : [1] [2]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.