[VBA-E]SOS besoin d'aide pour un macro
--------------------------------------------------------------------------------
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!
Besoin d'aide sur un simple macro excel
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:
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 |
Qu'est ce qur tu appeles un tag
desole, tu dois tu dire p**ain de nouveau mais c'est quoi un tag?
ce code delete au au lieu de decaler
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.
besoin d'un programme pour un decalage de cellules
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:
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
precision sur l algorithm
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.
