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

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#129741 Posté le 06/04/07 à 11:21

ceci convient-il

exemple 2 Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129752 Posté le 06/04/07 à 13:04

Presque ^_^

Cette fois toute la cellule est bien recopiée mais il ne conserve plus l'ordre des cellules d'origines

Merci encore pour votre aide Smiley

__________________________
Merci par avance pour votre aide et vos conseils.

Koshin

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#129760 Posté le 06/04/07 à 13:53

dans exemple 2

remplacer le code existant par celui-ci

Sub ChercheLeMot() Dim TrouveLe As Range Dim MotAChercher As String Application.ScreenUpdating = False Sheets(1).Select For i = 1 To Range("A65536").End(xlUp).Row For Each c In Array("PARIS", "SEOUL", "TOKYO") Sheets(1).Select With Cells(i, 1) Set TrouveLe = .Find(c, LookIn:=xlValues, searchorder:=xlByRows) If Not TrouveLe Is Nothing Then Sheets(2).Select derl = Range("A65536").End(xlUp).Row + 1 Cells(derl, 1).Value = Sheets(1).Cells(TrouveLe.Row, 1).Value End If End With Next Next Sheets(2).[a1].Value = "Villes triées" Application.ScreenUpdating = True Sheets(2).Select End Sub

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

Koshin
Nouveau membre

Inscrit : 05/04/2007
Messages : 9

#129764 Posté le 06/04/07 à 14:16

Vraiment un Grand Merci pour votre aide ce code marche a la perfection ! :D
Respect Smiley

Bon week end et Joyeuse Pâques ^_^

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

Koshin

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1736

#129765 Posté le 06/04/07 à 14:27

Merci

au plaisir Smiley

__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa et ne pas oublier le tag :

après résolution.

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