Bonjour a toutes et tous du Forum,
Je viens solliciter votre aide pour raffraichir quelques fonctions 2007 qui ne fonctionne plus
quand on change les logiciel.
Dans Mes Macros j'utilise Trim ; Format ; Mid et cela ne fonctionne plus sous les nouvelles Fonctions
j'ai des "error can't find project or library" malgrés avoir coché les Référencence VBA Project
J'ai visité différent sîte et là je suis tombé sur des nouvelles appelations
Trim est devenu Strings.Trim et ça Marche !!!!!
Pour Format et Mid je cherche encore est-ce quelqu'un aurait l'équivalent ?
Merci de votre aide.
Bien cordialement
Les codes sont utilisés comme tel
aa = Sheets("Liste").Range("A2:AI" & Sheets("Liste").Range("A" & Rows.Count).End(3).Row)
Label12 = "Fichier de " & Format(UBound(aa), "### ##0") & " Lignes ? traiter"
For i = 2 To fin
nb = Len(x) + Len(Cells(i, 1)) + 1
If nb < 255 Then
x = x & .Cells(i, 1) & ","
Else
.Cells(lig, 18) = Mid(x, 1, Len(x) - 1): x = "": lig = lig + 1
End If
Next i
.Cells(lig, 18) = Mid(x, 1, Len(x) - 1)
End With
End Sub