Parce que j'ai un tableau où j'ai des erreurs avec certains noms identiques donc il doit y avoir un espace au début qui fausse les résultats de la formule.
@moanin : vraiment malin de joindre un fichier en mp. Chose pas possible, tu as mis un lien vers un site de transfert de fichier. On dirait qu'il n'y a que @R@chid (que je salue) pour te venir en aide.
Bonjour,
si le champ à contrôler est par exemple "A1:F10"
Essayer
VB:
Sub Elague()
Dim i&,j&
With ThisWorkBook.WorkSheets("la feuilleousontmesdonnées")
For i=1 to 10 'ligne 10
For j=1=6 'colonne F
.cells(i,j)=Trim(.cells(i,j)
Next j
Next i
End With
End Sub
Bonjour
supprespace ne fonctionne comme tel que pour une cellule donc erreur au niveau de "G2;I2"
a moins tu dois t'en servir avec la même formule sur un groupe de cellules c'est en matriciel qu'il faudra la valider
en fait si tu veux faire pour G2:I2 en même temps c'est ":" et non ";" car le ";" sépare les arguments et la fonction substitue n'en a qu'un
sinon ton caractère n'est pas l'espace chr(32) mais peut être le chr(160)
auquel cas
pas en en matricielle sur ta réception (cellule de destination) =substitue(G2;code(160))
et étendre la formule
si c'est directement dans les cellules concernées alors se sera en vba
exemple
VB:
Sub trimleftForce()
Range("G2:I").Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
End Sub
@moanin : vraiment malin de joindre un fichier en mp. Chose pas possible, tu as mis un lien vers un site de transfert de fichier. On dirait qu'il n'y a que @R@chid (que je salue) pour te venir en aide.
Salut @cp4
Vous êtes nombreux qui pouvez répondre sur cette question et qui êtes mieux que R@chid, mais c'était juste parce que j'étais le premier à demander un fichier que le questionneur n'a pas pu le joindre sur le fil.