Excel + macro
Résolu
Bonjour,
Je possède un fichier contenant une colonne "marquage" dont les données peuvent différer de +1. J'aimerai créer une macro pour pouvoir renommer les données qui diffèrent de +1 en une même donnée. Pour mieux illustrer le problème, voici un exemple.
Marquage
Avant --> Après macro
J317 --> J317
J318 --> J317
J333 --> J333
J333 --> J333
J338 --> J338
J339 --> J338
J339 --> J338
J352 --> J352
J353 --> J352
J353 --> J352
C029 --> C029
C029 --> C029
C030 --> C029
C030 --> C029
Merci beaucoup.
Je possède un fichier contenant une colonne "marquage" dont les données peuvent différer de +1. J'aimerai créer une macro pour pouvoir renommer les données qui diffèrent de +1 en une même donnée. Pour mieux illustrer le problème, voici un exemple.
Marquage
Avant --> Après macro
J317 --> J317
J318 --> J317
J333 --> J333
J333 --> J333
J338 --> J338
J339 --> J338
J339 --> J338
J352 --> J352
J353 --> J352
J353 --> J352
C029 --> C029
C029 --> C029
C030 --> C029
C030 --> C029
Merci beaucoup.
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
ContributeurDe rien :-)
Pense à mettre "résolu" -
Bonjour,
Un grand merci pour vos réponses si rapide. Vous avez réglé mon problème. C'est la première fois que j'utilisais les forums et c'est vraiment merveilleux de pouvoir se faire aider comme ça. Merci à vous deux pour vous être penché sur mon problème. Merci -
Contributeurbonjour
attention tu ne traites pas le cas du 2nd J339 j'ai l'impression
et si pourtant, tu n'as pas très bien décrypté car comme le précédent est modifié, le suivant aussi !
-
ContributeurBonjour,
Si tes données ont toujours cette structure, tu peux essayer ceci :Option Explicit Sub sup_un() Dim col As Integer Dim dlig As Long Dim lig As Long dlig = 5: col = 1 For lig = dlig To Cells(65536, col).End(xlUp).Row If Val(Right(Cells(lig, col).Value, 3)) - 1 = Val(Right(Cells(lig - 1, col).Value, 3)) Then Cells(lig, col).Value = Cells(lig - 1, col).Value End If Next lig End Sub
Il faut adapter dlig et col à ton classeur.
