Comparer une sequence de deux cellules

Résolu/Fermé

dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - Modifié le 30 janv. 2018 à 17:33
dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020 - 5 févr. 2018 à 15:59

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

A voir également:

Comparer une sequence de deux cellules
Excel fusionner deux cellules - Guide
Deux comptes whatsapp - Guide
Excel additionner des cellules - Guide
Deux ecran pc - Guide
Verrouiller cellules excel - Guide

3 réponses

Réponse 1 / 3

dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020
Modifié le 30 janv. 2018 à 19:07

Ç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

Réponse 2 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
30 janv. 2018 à 19:15

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

Cdlmnt

dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020
5 févr. 2018 à 14:32

Merci beaucoup !
Je ne voyais pas le décalage à cause d'une erreur 9 que j'ai eu du mal à corriger...

Bonne journée
Lo.

Réponse 3 / 3

dhaze Messages postés 109 Date d'inscription mardi 27 septembre 2011 Statut Membre Dernière intervention 6 février 2020
Modifié le 5 févr. 2018 à 16:05

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.

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

excel fractionner une cellule horizontalement

2 comptes facebook avec même mail et même nom

Comment supprimer une conversation Messenger pour les 2 personnes ?

Discussions similaires

Newsletters