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

Eric C

XLDnaute Barbatruc
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
 

Pièces jointes

  • Test mic6259 (4).xlsm
    48.6 KB · Affichages: 2
Solution
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof