Excel + macro
Résolu
jacktbio2
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 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.
Configuration: Windows XP Internet Explorer 6.0
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
- Si ou excel - Guide
- Trier un tableau 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.
attention tu ne traites pas le cas du 2nd J339 j'ai l'impression
J338 -> J338
J339 -> J338
J339 -> J338
eric