Boucle

Bonjour,

Je chercher comment faire pour effacer une chaine de caractère lorsque la cellule A1 est vide ET la cellule F1 n'est pas vide.

Si la condition est respectée j'aimerais supprimer tous les caractères qui sont à droite du dernier "-", incluant le tiret.

Exemple de cellule en colonne "F": GAU-302-ASSY. Il faudrait que ça devienne GAU-302 si les conditions étaient respectées.

Je voudrais valider la condition jusqu'à la dernière ligne.

Des suggestions? Besoin de précision ?

Merci

Bonsoir,

Un exemple :

Public Sub DEMO()
Dim N As Long, i As Long, k As Long
    With ActiveSheet
        N = .UsedRange.Rows.Count
        For i = 1 To N
            If IsEmpty(.Cells(i, 1)) And Not IsEmpty(.Cells(i, 6)) Then
                k = InStrRev(.Cells(i, 6), "-")
                .Cells(i, 6).Value = Left(.Cells(i, 6).Value, k - 1)
            End If
        Next i
    End With
End Sub