Microsoft 365 Besoin d'aide pour rechercher doublon et mettre en forme

sylvanu à dit:

Bonsoir Moreno,
Pourquoi une macro et pas une simple formule du genre en N2:

VB:

=SI(M2="";"Pas de date précise";SI(M2="< DOUBLON >";M2;M2+1))

Sinon en VBA, cela pourrait donner ça :

Code:

Sub DateReception()
    Taille = ThisWorkbook.Sheets("Synthèse").Range("A" & Cells.Rows.Count).End(xlUp).Row
    For i = 2 To Taille
        ValM = Range("M" & i)
        Select Case ValM
            Case ""
                Range("N" & i) = "Pas de date précise"
            Case "< DOUBLON >"
                Range("N" & i) = "< DOUBLON >"
            Case Else
                Range("N" & i) = ValM + 1
        End Select
    Next i
End Sub

Par contre je ne sais pas où vous voulez le placer. A vous de faire le Call.😉

Cliquez pour agrandir...

sylvanu à dit:

Si c'est un choix délibéré, rien à redire.🙂
Pour la colonne M, on peut l'intégrer dans la même macro:

VB:

Sub DateReception()
    Taille = ThisWorkbook.Sheets("Synthèse").Range("A" & Cells.Rows.Count).End(xlUp).Row
    For i = 2 To Taille
        If Range("A" & i) = "< DOUBLON >" Then Range("M" & i) = "< DOUBLON >"
        ValM = Range("M" & i)
        Select Case ValM
            Case ""
                Range("N" & i) = "Pas de date précise"
            Case "< DOUBLON >"
                Range("N" & i) = "< DOUBLON >"
            Case Else
                Range("N" & i) = ValM + 1
        End Select
    Next i
End Sub

Cliquez pour agrandir...

Moreno076 à dit:

Impeccable c

Impeccable c est modifié

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,

Ah non, je ne suis pas d'accord. On ne jette jamais l'éponge. 🙂

En PJ, il suffit de mettre dans la feuille Synthèse :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 13 Then
        DateReception
    End If
End Sub

et à chaque fois que vous changerez une valeur dans la colonne M la colonne N se remettra à jour.🙂

... mais vous pouvez le faire aussi en formules !

Cliquez pour agrandir...

sylvanu à dit:

Je ne suis pas parvenu à reproduire le défaut sauf si le fichier est vide.
Dans ce cas Taille=1 puis on fait for i=2 to 1 ! Dans ce cas il faut mettre une sécurité si Taille<2.

VB:

Sub DateReception()
    Taille = ThisWorkbook.Sheets("Synthèse").Range("A" & Cells.Rows.Count).End(xlUp).Row
    If Taille < 2 Then Exit Sub
    For i = 2 To Taille
        If Range("A" & i) = "< DOUBLON >" Then Range("M" & i) = "< DOUBLON >"
        ValM = Range("M" & i)
        Select Case ValM
            Case ""
                Range("N" & i) = "Pas de date précise"
            Case "< DOUBLON >"
                Range("N" & i) = "< DOUBLON >"
            Case Else
                Range("N" & i) = ValM + 1
        End Select
    Next i
End Sub

Etait ce dans ce cas que vous aviez le problème ?

Cliquez pour agrandir...

sylvanu à dit:

Désolé, ça marche chez moi.
Ou alors je ne fais pas la bonne manip.
Fichier vierge, je rentre Envoyée en colonne A, sur même ligne en M je fais Ctrl . pour entrer la date et la macro met en N la date de demain.

... si ça continue il va falloir vous résoudre à mettre des formules.

Pouvez vous me dire exactement ce que vous faites avant que la macro plante ? et sur quelle ligne ?
Lors du plantage appuyez sur Débogage, la ligne incriminée va se mettre en jaune.

Cliquez pour agrandir...