Comparer une sequence de deux cellules Résolu

Question

Bonjour,

J'ai fait une petite macro que fonctionne très bien
mais que quand les valeurs sont strictement identiques.

Je suis très mauvaise sur les fonctions de séquençage
et je voudrais modifier cette macro comme suit...

Merci aux experts de ces méthodes obscures pour leur aide

Lo.

Sub Saut_de_ligne_quand_double()
    
    Dim Numération As Integer, Ligne As Integer
    
    Numération = 2
    
    Do While Cells(Numération, "C") <> ""
    
        If Cells(Numération + 1, "C").Value = Cells(Numération, "B").Value Then ' <--- lignes à comparer
            
                '   Comparer les cellules des colonnes C et B
                '   en utilisant la deuxième séquence de la valeur des cellules
                '   dans C le séparateur des séquence est "-" et dans B le séparateur et "_"
                '   Cette "égalité" serait vraie ABC-592-H23F-123 = DEF_592_I45G_789

Ligne = Cells(Numération + 1, "A").Select ' <***
            Selection.Insert Shift:=xlDown
            Selection.Value = "#"
            
            Ligne = Cells(Numération + 1, "B").Select ' <*** Comment grouper ces 2 actions en 1 ?
            Selection.Insert Shift:=xlDown
            Selection.Value = "#"
            
            Numération = Numération + 1
            
        End If
        
        Numération = Numération + 1
        
    Loop
    
    Numération = Empty
    Ligne = Empty
    
End Sub

dhaze · Answer

Ça ne fonctionne pas... Mais suis-je dans la bonne direction ?

If Split(Cells(Numération + 1, "C").Value, "-")(2) = Split(Cells(Numération, "B").Value, "_")(2) Then

ccm81 · Answer

tu y es presque
split produit un tableau à base 0
donc split(...)(1) devrait aller

Cdlmnt

dhaze · Answer

Voici pour info le code final :

Sub Saut_de_ligne_quand_double()

ActiveSheet.Range("C:C").Replace "-", "_" ' <-- Correctif erreur 9
    'Les cellules de cette colonne peuvent contenir l'un ou l'autre des ces deux signes

Dim Numération As Integer, Ligne As Integer
    
    Numération = 2
    
    Do While Cells(Numération + 1, "C") <> ""
        
        If Split(Cells(Numération, "C").Value, "_")(1) = Split(Cells(Numération + 1, "C").Value, "_")(1) Then

Ligne = Range(Cells(Numération + 1, "A"), Cells(Numération + 1, "B")).Select
            Selection.Insert Shift:=xlDown
            Selection.Value = "#"

End If

Numération = Numération + 1

Loop

End Sub

Problème résolu, merci
Lo.

Comparer une sequence de deux cellules

3 réponses

Discussions similaires

Newsletters