Re:Fonction CONCATENER plsu de 30 fois
bonjour tous le monde j utilise un macro dans ce sens 37 cellules & ca marche Public Sub concatener()
Dim cn As Range
Dim l As Long
l = [i17].Value - 1
Application.ScreenUpdating = False
Dim trouvéfin As Range
Range('cn65536').End(xlUp).Offset(0, -42).Select
Range((ActiveCell.Address) & ':' & (ActiveCell.Offset(0, 36).Address)).Value = 'fin'
Set trouvéfin = Range('ax1:ax' & Range('ax65536').End(xlUp).Row).Find('fin', LookIn:=xlValues)
ActiveCell.Offset(1, 0).Select
Range((ActiveCell.Address) & ':' & (ActiveCell.Offset(l, 0).Address)).Select
For Each cn In Selection
cn.Offset(0, 42).Value = cn.Value & ' ' & cn.Offset(0, 1).Value & ' ' & cn.Offset(0, 2).Value & ' ' & cn.Offset(0, 3).Value & ' ' & cn.Offset(0, 4).Value & ' ' & cn.Offset(0, 5).Value & ' ' & cn.Offset(0, 6).Value & ' ' & cn.Offset(0, 7).Value & ' ' & cn.Offset(0, 8).Value & ' ' & cn.Offset(0, 9).Value & ' ' & cn.Offset(0, 10).Value & ' ' & cn.Offset(0, 11).Value & ' ' & cn.Offset(0, 12).Value & ' ' & cn.Offset(0, 13).Value & ' ' & cn.Offset(0, 14).Value & ' ' & cn.Offset(0, 15).Value & ' ' & cn.Offset(0, 16).Value & ' ' & cn.Offset(0, 17).Value & ' ' & cn.Offset(0, 18).Value & ' ' & cn.Offset(0, 19).Value & ' ' & cn.Offset(0, 20).Value & ' ' & cn.Offset(0, 21).Value & ' ' & cn.Offset(0, 22).Value & ' ' & cn.Offset(0, 23).Value & ' ' & cn.Offset(0, 24).Value & ' ' & cn.Offset(0, 25).Value & ' ' & cn.Offset(0, 26).Value & ' ' & cn.Offset(0, 27).Value & ' ' & cn.Offset(0, 28).Value & ' ' & cn.Offset(0, 29).Value & ' ' & cn.Offset(0, 30).Value & ' ' & cn.Offset(0, 31).Value & ' ' & _
cn.Offset(0, 32).Value & ' ' & cn.Offset(0, 33).Value & ' ' & cn.Offset(0, 34).Value & ' ' & cn.Offset(0, 35).Value & ' ' & cn.Offset(0, 36).Value & ' ' & cn.Offset(0, 37).Value
Next cn end sub'salutations