Excel + macro Résolu/Fermé

Question

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.

gbinforme · Answer

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.

gbinforme · Answer

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 !

jacktbio2 · Answer

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

eriiic · Answer

De rien :-)
Pense à mettre "résolu"

Excel + macro

4 réponses

Discussions similaires