Bonjour à tous
J'ai un problème avec le code suivant:
Dim Ex3 As Range
Dim Ex1 As Range
Dim Ex2 As Range
Set Ex1 = Worksheets("Bilan").Columns("A:A").End(xlToRight)
Ex1.Rows("2:200").Select
Set Ex2 = Selection
Set Ex3 = Worksheets("Bilan").Range("A1:A300")
For Each Ex2 In Selection
If Ex2 = "" Then
If Ex3 = "" Then (Cette condition bloque et je ne sais pas pourquoi) !!!
Ex2 = "-"
Else
End If
End If
Next
End Sub
La ligne ma deuxième condition bloque mon programme bien qu'elle me semble complètement juste.
Quelqu'un aurait-il une idée?
Je reste avec votre dispo pour plus d'infos
Merci d'avance.
J'ai un problème avec le code suivant:
Dim Ex3 As Range
Dim Ex1 As Range
Dim Ex2 As Range
Set Ex1 = Worksheets("Bilan").Columns("A:A").End(xlToRight)
Ex1.Rows("2:200").Select
Set Ex2 = Selection
Set Ex3 = Worksheets("Bilan").Range("A1:A300")
For Each Ex2 In Selection
If Ex2 = "" Then
If Ex3 = "" Then (Cette condition bloque et je ne sais pas pourquoi) !!!
Ex2 = "-"
Else
End If
End If
Next
End Sub
La ligne ma deuxième condition bloque mon programme bien qu'elle me semble complètement juste.
Quelqu'un aurait-il une idée?
Je reste avec votre dispo pour plus d'infos
Merci d'avance.