Excel + macro

Résolu
jacktbio2 -  
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.
Configuration: Windows XP
Internet Explorer 6.0

4 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    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.
    1
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour,

      attention tu ne traites pas le cas du 2nd J339 j'ai l'impression

      J338 -> J338
      J339 -> J338
      J339 -> J338

      eric
      0
  2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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 !
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      C'est vrai, je n'avais pas lu jusqu'au bout et vu que tu écrasais la valeur au lieu d'inscrire à coté
      Désolé ;-)
      eric
      0
  3. jacktbio2
     
    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
    0
  4. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    De rien :-)
    Pense à mettre "résolu"
    0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses