piga25
XLDnaute Barbatruc
Bonjour le Forum
Mes connaissances en VBA sont vraiment trop limitées. Je commence à capituler devant un problème qui devrait être simple pour certains.
Lorsque je lance cette macro
j'ai à chaque fois un bug sur celle-ci à la commande .ClearContents
Par contre lorsque je fais un débogage pas à pas détaillé tout fonctionne.
Merci
Mes connaissances en VBA sont vraiment trop limitées. Je commence à capituler devant un problème qui devrait être simple pour certains.
Lorsque je lance cette macro
VB:
Private Sub CommandButton1_Click()
Prepare
Concatene
UserForm2.TextBox4.Value = f.[N1].Value
Me.Main.Clear
Unload Me
UserForm2.Show
End Sub
Code:
Sub Concatene()
Dim Cel As Range, Co As Range
Dim Lg As Long
Application.ScreenUpdating = False
Lg = [O65536].End(xlUp).Row
With Range("N1")
.ClearContents
For Each Cel In Range("o2:o" & Lg)
If Cel <> "" Then
.Value = .Value & Cel.Value & Chr(10)
Else: Exit For
End If
Next Cel
End With
End Sub
Merci
Pièces jointes
Dernière édition: