XL 2010 Tracasseries lors d'insertions de données depuis USF

Eric C · 9 Octobre 2021

Bonsoir le forum
Bonsoir à toutes & à tous

Lors de mon intervention sur le post de notre ami mic6259, j'ai constaté 2 choses :
1/ Lors de l'insertion de nouvelles données depuis l'Usf, un renvoi systématique à la ligne se crée dans les lignes de la feuille "Adhérents" alors que, depuis "Format cellules" - "Alignement", j'avais décoché "Renvoi à la ligne" ?
2/ Lors de l'activation de la ComboBox1, on constate une "croche" à la fin des Items ?
Je joints le fichier pour une éventuelle étude.
Merci à vous toutes & tous.
@+ Eric c

ChTi160 · 10 Octobre 2021

Bonjour Eric
j'ai mis :

VB:

.AddItem Replace(Trim(Ws.Range("A" & J)), vbCrLf, "")

ou alors

Code:

For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
 Ws.Range("A" & J) = Replace(Trim(Ws.Range("A" & J)), vbCrLf, "")'on nettoye la cellule'
    .AddItem Ws.Range("A" & J)
Next J

ça semble répondre a la demande Lol
jean marie

ChTi160 · 10 Octobre 2021

Bonjour Eric
j'ai mis :

VB:

.AddItem Replace(Trim(Ws.Range("A" & J)), vbCrLf, "")

ou alors

Code:

For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
 Ws.Range("A" & J) = Replace(Trim(Ws.Range("A" & J)), vbCrLf, "")'on nettoye la cellule'
    .AddItem Ws.Range("A" & J)
Next J

ça semble répondre a la demande Lol
jean marie

Eric C · 10 Octobre 2021

Bonjour le forum
Bonjour Jean Marie

Merci de t'être penché sur mon problème. Tes 2 soluces fonctionnent. A quoi cela était il dû ? Par ailleurs, aurais tu une idée pour le premier problème évoqué (passage à la ligne ???).

Bonne journée à toi

@+ Eric c

ChTi160 · 10 Octobre 2021

Bonjour Eric
la solution que j'ai trouvé ,c'est de remplacer les TextBox qui me semblent être Malades Lol
et la plus de problème plus besoin de Replace et Autre artifice!
jean marie

XL 2010 Tracasseries lors d'insertions de données depuis USF

Eric C

XLDnaute Barbatruc

Pièces jointes

ChTi160

ChTi160

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires