Bonjour, pouvez-vous me dire pourquoi j'ai ce message.
J'ai bien Do au début et loop à la fin.
je ne comprends pas.
😕
J'ai bien Do au début et loop à la fin.
je ne comprends pas.
😕
Code:
Sub macro0()
Dim fr As Range
Range("D1:D23").Select
Selection.NumberFormat = "dd mm"
Do While Range("d1").Value > ""
Set fr = Range("b6:b20").Find(Range("d1").Value, , xlValues, xlWhole, , , False)
If Not fr Is Nothing Then
MsgBox "Attention doublon"
Else
' Call Macro1
'Call Macro2
'Call Macro3
'Call Macro4
'Call Macro5
'Call Macro6
'Call Macro7
'Call Macro8
'Call Macro9
Range("B6:B2000").Select
Selection.Copy
Range("B7").Select
ActiveSheet.Paste
Range("d1").Copy
' Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("d2:d23").Select
Application.CutCopyMode = False
Selection.Cut
Range("d1").Select
ActiveSheet.Paste
Loop
End If
End Sub