[VBA-E]SOS besoin d'aide pour un macro

**lecossais** · 09/06/2006, 22h02

--------------------------------------------------------------------------------

Bonjour,

je dois me mettre a excel pour un projet et manipulé des milliers de data, donc j ai besoin de faire des macros avec VBA mais je n ai aucune base, l informatique n'est pas trop mon truc a la base...donc je suis un peu perdu et j aurai besoin de quelqu'un pour m'ecrire un petit code, quelque chose d assez simple pour vous je pense...

voila la fonction qu'il me faut

si les valeur des cellules des colonnes A et C ne sont pas egales
alors decaler les cellules vers le bas jusqu a ce que les valeurs soir egales
et effacer les ligne entre l ancienne emplacement et le nouveau emplacement...

Je ne sais pas si c'est tres cler..

en fait j ai 1 collone de measure correspondant a des jours, et une autre collone de measure (d'un autre site) correspondant a des jours, des fois il ya plus de measure a un site qu a l autre pour la meme journee et j ai besoin de les faire correspondre en les allignant...je fais un dessin

Site 1 Site 2
jour vitesse
1 23 1 24
1 12 2 21
2 4 2 12
2 3 2 11
3 6 3 17

et il me faut

Site 1 Site 2
jour vitesse
1 23 1 24

2 4 2 21
2 3 2 12

3 6 3 17

Voila, j espere que quelqu un pourra m aider, Merci d'avance!

**SfJ5Rpw8** · 09/06/2006, 22h07

bienvenue sur le forum..

déjà ... commence par lire les régles du forums ..
plus particuliérement
http://club.developpez.com/regles/#L4.12
ensuite modifie ton titre... mais nous quelque chose de plus parlant ....

puis commence quelque chose et dit nous ou tu bloque ..

**lecossais** · 09/06/2006, 22h26

Bonjour,

je dois me mettre a excel pour un projet et manipulé des milliers de data, donc j ai besoin de faire des macros avec VBA mais je n ai aucune base, l informatique n'est pas trop mon truc a la base...donc je suis un peu perdu et j aurai besoin de quelqu'un pour m'ecrire un petit code, quelque chose d assez simple pour vous je pense...

voila la fonction qu'il me faut

si les valeur des cellules des colonnes A et C ne sont pas egales
alors decaler les cellules vers le bas jusqu a ce que les valeurs soir egales
et effacer les ligne entre l ancienne emplacement et le nouveau emplacement...

Je ne sais pas si c'est tres cler..

en fait j ai 1 collone de measure correspondant a des jours, et une autre collone de measure (d'un autre site) correspondant a des jours, des fois il ya plus de measure a un site qu a l autre pour la meme journee et j ai besoin de les faire correspondre en les allignant...je fais un dessin

Site 1 Site 2
jour vitesse
1 23 1 24
1 12 2 21
2 4 2 12
2 3 2 11
3 6 3 17

et il me faut

Site 1 Site 2
jour vitesse
1 23 1 24

2 4 2 21
2 3 2 12

3 6 3 17

Voila, j espere que quelqu un pourra m aider, Merci d'avance!

voila ce que j ai commené a faire, ca bloque au debut au quand je defini le variable X et Y

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
sub testVBA()
 
Application.ScreenUpdating = False
 
Do Until ActiveCell.Value = ""
 
X = ActiveCell.Value.Column("A:A")
Y = ActiveCell.Value.Column("E:E")
 
    If X <> Y Then
 
    ActiveCell.EntireRow.Delete
 
    End If
 
Loop
End Sub

**SfJ5Rpw8** · 09/06/2006, 22h33

bien tu as posté un peu de code .. on vas essayer de le déchiffrer .. en attendant change ton titre .. et évite le multipost .. SVP.. (j'ai du fusionner tes 2 messages ..)

utilise Tab. de bord
en haut à gauche ..ou Liens Rapides. Puis discussion suivies

**SfJ5Rpw8** · 09/06/2006, 22h42

tu pourrai peu-être t'inspirer de la solution posté ici :

[VBA E]recherche de toutes lignes avec zero

**ouskel'n'or** · 10/06/2006, 10h36

Tiens,

Code :

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

1
2
3
4
5
6
7
Sub JustePourLecossais()
Dim DernièreLigne, i
    DernièreLigne = Cells(1, 1).CurrentRegion.End(xlDown).Row
    For i = DernièreLigne To 1 Step -1
        If Cells(i, 1) <> Cells(i, 3) Then Rows(i).EntireRow.Delete
    Next
End Sub

Une autre version que celle indiquée par bbil mais qui devrait t'aller

A+

Et, comme te dit bbil, change le sujet de ta question. "Recherche de cellules ayant la même valeur" par exemple... mais tu peux trouver mieux
Tout le monde qui pose une question a besoin d'aide

**lecossais** · 12/06/2006, 10h21

Salut a tous

merci pour votre aide Bbill et ouskel'n'or, le code marche, c'etais exactement ce que je souhaitais.

mais malheureusement je n ai pas prit mon probleme du bon coté. en fait j ai besoin utiliser ce code sur 2 listes de données indexé de 1 a 365, mais il ya des trous dans ces listes,des fois ca saute de de 5 a 7, 270 à 280, dans une iste, ce qui me cree un decalage.

je voudrais faire correspondre les donnees de list 1 et 2 qui sont de meme valeur dans l index 1 a 365.

le code que tu m'a filer supprime tout des qu'il ya un decalage dans l index, or j aimerai que des que ce decalage est detecter, les cellules soit decalager vers le bas pour continuer la correspondance des cellules et suprimer celles qui n ont pas trouver de valeur egal dans l index

index 1 index 1

1 23 23 1 23 23
2 23 23 3 23 23
3 23 23 4 23 23
4 23 23

et je voudrais

1 23 23 1 23 23
3 23 23 3 23 23
4 23 23 4 23 23

J'espere que quelqu un pourra me filer un ptit coup de main,

merci d'avance

**jmfmarques** · 12/06/2006, 11h07

Et ton tag dans le titre ?
Tu n'es plus nouveau, maintenant.
Alors ?

**lecossais** · 12/06/2006, 11h22

desole, tu dois tu dire p**ain de nouveau mais c'est quoi un tag?

**lecossais** · 12/06/2006, 11h52

Le probleme avec ce code est qu il efface quand il capte quand les valeurs sont differents dans les indexs alors que jaime qu'il decale pour les faire correspondre et efface seulement les l'index qui n a pas d'equivalent.

**ouskel'n'or** · 12/06/2006, 12h12

Code :

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

1
2
3
4
5
6
7
Sub JustePourLecossais()
Dim DernièreLigne, i
    DernièreLigne = Cells(1, 1).CurrentRegion.End(xlDown).Row
    For i = 1 To DernièreLigne 
        If Cells(i, 1) <> Cells(i, 3) Then Cells(i, 1).Delete
    Next
End Sub

Un truc comme ça, ça t'irait ?

A+

**lecossais** · 12/06/2006, 13h49

bonjour,

j ai deux set de collonnes a faire correspondre, les 2 index ont un decalage et je voudrai que lorsque l'index du set 1 n a pas d'equivalent avec l'index du set 2, les cellules du set soit effacées.

par exemple, j ai 2 index

1 1
1 2
2 2
2 3
2 3
3 4
...
Je voudrai obtenir une correspondance
1 1
2 2
2 2
3 3
3 3
.....

chaque index a 2 collones de valeur correspondante qui doivent suivre avec...

voila le code de ouskel'n'or, mais il efface l'entiere l'entiere ligne, le decalage n'est pas rattraper.

Code :

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

1
2
3
4
5
6
7
Sub ()
Dim DernièreLigne, i
    DernièreLigne = Cells(1, 1).CurrentRegion.End(xlDown).Row
    For i = DernièreLigne To 1 Step -1
        If Cells(i, 1) <> Cells(i, 3) Then Rows(i).EntireRow.Delete
    Next
End Sub

Please comment resoudre mon probleme?

merci

**lecossais** · 12/06/2006, 14h01

il me faudrai en fait ecrire sous form VBA

si index 1 different de index 2

effacer les cellules (index + 2 collone a droite de celle ci) de la plus petite valeur des deux, effacer jusqu a la ligne ou les valeur se retrouve egale a nouveau.

**ouskel'n'or** · 12/06/2006, 19h57

ou, si tu dois supprimer les cellules de la colonne B à la colonne E et non la cellule de la colonne A

Code :

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

    If Cells(i, 1) <> Cells(i, 3) Then Range(Cells(i, 2),Cells(i,5).Delete Shift:=xlUp

Tu dis

**lecossais** · 13/06/2006, 13h10

C'est ok ouskel'n'or, je te remercie

**ouskel'n'or** · 13/06/2006, 15h36

Ok, alors pense au bouton Résolu

**AlainTech** · 18/06/2006, 18h57

J'ai fusionné les 3 discussions qui tournent autour du même sujet.

[VBA-E]SOS besoin d'aide pour un macro

Macros et VBA Excel

Discussions similaires

Partager

Partager