concatener dans un userform

[magalie]

bonjour,
dans un userform j'obtiens la liste d'une colonne et je cherche à contaner ce résultat avec la colonne de droite
merci pour votre aide

 

[Papou-net]

Re : concatener dans un userform

Bonjour Magalie,

Remplace le code de ton bouton par celui_ci :

Private Sub CommandButton1_Click()
Dim c As Range
Dim drligne As Long
Dim colonne As Integer

drligne = Range("B65000").End(xlUp).Row
On Error Resume Next
colonne = Range(TextBox1.Text & ":" & TextBox1.Text).Column - 2

ListBox1.Clear
For Each c In Range("B2:B" & drligne)
ListBox1.AddItem c.Value & " " & c.Offset(0, colonne)
Next
End Sub

Cordialement.

 

[magalie]

Re : concatener dans un userform

merci papou
mais il me faut dans la listbox
le nom et l'équipe de ceux qui ne dépassent pas ou sont égaux à 48
d'ou le <=48 dans mon code
cordialement

 

[Papou-net]

Re : concatener dans un userform

RE :

Au temps pour moi, j'ai effectivement zappé la condition.

Voici donc le nouveau code :

Private Sub CommandButton1_Click()
Dim c As Range
Dim drligne As Long
Dim colonne As Integer

drligne = Range("B65000").End(xlUp).Row
On Error Resume Next
colonne = Range(TextBox1.Text & ":" & TextBox1.Text).Column - 2

ListBox1.Clear
For Each c In Range("B2:B" & drligne)
If c.Offset(0, colonne) <= 48 Then ListBox1.AddItem c.Value & " " & c.Offset(0, colonne)
Next
End Sub

Cordialement.

 

[magalie]

Re : concatener dans un userform

bonjour papou-net
le code fonctionne à merveille
comment puis-je remplacer le textbox ou j'indique la colonne (par ex colonne D)
par un combobox ou je choisirai le numéro de la semaine comme dans le fichier
j'ai essayé de nommer la colonne D "semaine1" mais cela ne fonctionne pas
merci

 

[Papou-net]

Re : concatener dans un userform

Bonjour Magalie,

Voici ton fichier modifié.

J'en ai profité pour restructurer et simplifier le code.

En te souhaitant une bonne journée.

Cordialement.

 

[magalie]

Re : concatener dans un userform

RE
formidable
si j'osais
pourrais-tu m'expliquer le code que je ne meure pas idiote
merci

 

[Papou-net]

Re : concatener dans un userform

RE Magalie,

Voici la copie commentée du code que je t'ai fourni.

Bises (si tu me le permets).


A +

 

[magalie]

Re : concatener dans un userform

bonjour papou-net
pas de souci pour la bise (tant que c'est par mail)
je viens de voir ton fichier et j'ai du modifier les colonnes car j'ai rajouté des infos et d'autres parts je souhaiterai
avoir à côté du nom le numérode l'équipe avec des parenthèses, sans les heures
autrement dit
par exemple arnaud(1)
bien sur ce que j'ai fait ne fonctionne pas !
d'ou mon HELP
merci

 

[Papou-net]

Re : concatener dans un userform

Bonjour Magalie,

Tu n'as qu'une seule ligne à modifier dans le code du bouton :

Private Sub CommandButton1_Click()
On Error Resume Next

' Toutes les références précédées d'un point sont appliquées à ListBox1
With ListBox1
  .Clear ' efface la liste
  ' Cette boucle lit toutes les cellules de B2 à B1048576 qui contiennent des données
  ' dans cet exemple : B2 à B11
  ' si des données sont rajoutées elles seront intégrées automatiquement à la boucle
  ' même s'il existe des lignes vides entre elles
  For Each c In Range("B2:B" & Rows.Count).SpecialCells(xlCellTypeConstants)
    ' si la valeur de la cellule décalée de 0 lignes et"colonne" colonnes à droite de c
    ' est <= à 48, elle est concaténée à c et ajoutée à la liste
    If c.Offset(0, colonne) <= 48 Then .AddItem c.Value & " (" & c.Offset(0, 1) & ")"  '<--- modif
  Next
End With
End Sub

A +

e-bise

Cordialement.

 

[magalie]

Re : concatener dans un userform

je viens de comprendre ce qui ne fonctionne pas sur mon fichier réel
les noms de la colonne B sont obtenus par formule
y-a-t-il une solution sans casser les formules ?
merci

 

[Papou-net]

Re : concatener dans un userform

je viens de comprendre ce qui ne fonctionne pas sur mon fichier réel
les noms de la colonne B sont obtenus par formule
y-a-t-il une solution sans casser les formules ?
merci

RE :

???

Là c'est moi qui ne comprends plus. As-tu essayé ma proposition de modification de code ?

Tu n'obtiens pas ce résultat : arnaud(1) ?

Cordialement.

 

[magalie]

Re : concatener dans un userform

bonjour Papou-net
si le résultat est celui que j'escomptais dans le fichier sur ce site
mais sur mon fichier perso avec toutes mes données cela ne fonctionne pas
j'ai mis le problème sur le fichier joint
les noms de la colonne R sont obtenus par formule et c'est ça qui bloque
merci d'avance

 

[laetitia90]

Re : concatener dans un userform

bonjour magalie,Papou-net🙂🙂
en l'absence de Papou-net
essai comme cela?? en mettant le code dans la combo plus simple evite le click sur le bouton

Private Sub ComboBox1_Change()
 On Error Resume Next
 colonne = ComboBox1.ListIndex + 5
 With ListBox1
 .Clear
 For Each c In Range("r2", Cells(Rows.Count, "r").End(xlUp))
 If c.Offset(0, colonne) <= 48 And c <> 0 And c <> "" Then .AddItem c.Value & "( " & c.Offset(0, 1) & ")"
 Next c
 End With
End Sub

 

[magalie]

Re : concatener dans un userform

bonjour laetitia90,
tu as été plus rapide mais pas de compétition entre nous
parfait pour le code
une petite question, si je veux avoir le même bouton (ou du moins la même fonctionnalité) sur une feuille2 (qui prendrait les infos sur cette feuille2) ?
cordialement