Excel + macro
Résolu
jacktbio2
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
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.
A voir également:
- Excel + macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
4 réponses
Bonjour,
Si tes données ont toujours cette structure, tu peux essayer ceci :
Il faut adapter dlig et col à ton classeur.
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.
bonjour
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 !
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 !
attention tu ne traites pas le cas du 2nd J339 j'ai l'impression
J338 -> J338
J339 -> J338
J339 -> J338
eric