Selection données suite insértion via userform
Bonjour
Comment peut-on sélectionner les cellules renseignées via un Userform pour leur impliquer une bordure extérieure.
Merci d'avance
Bonsoir
De quelle manière est renseignée les cellules ?
Un p'tit fichier avec un exemple ne serait pas de trop
Premièrement, j'insère les données depuis mon userform, ci-après le code:
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer
a = ActiveCell.Row
b = ActiveCell.Column
For i = 0 To userform.List.ListCount - 1
If userform.List.Selected(i) = True Then
Cells(a + 1, b) = userform.List.List(i)
a = a + 1
End If
Next
'Range("a+1", Range("a+1").End(xlDown)).Select
'With Selection.Borders
' .LineStyle = xlContinuous
' .Weight = xlThin
' .ColorIndex = xlAutomatic
'End With
Unload useform
End Sub
Ensuite, je veux sélectionner les cellules renseignées pour les encadrer [code mis en commentaire et ne marchant pas]
Merci
Bonjour
Sans fichier pas sur que cela soit la bonne réponse
Range(Cells(a, b), Cells(a, b).End(xlDown)).SelectCi-joint un exemple : donc après avoir choisi les valeurs désirées je souhaite les sélectionner pour les encadrer.
Le code a l'air de bien marcher merci.
Je vais abuser de votre gentillesse pour poser 2 autres points concernant le même "projet":
1- Comment peut-on appliquer uniquement une bordure extérieures pour encadrer les données insérées
2- Comment peut-on manipuler notre userform pour qu'il apparaisse à droite du curseur et non au centre de la fenêtre [Pratique dans le cas ou la cellule active se trouve également au centre ce qui nous affiche un userform avec des choix déjà fait car le curseur se retrouve sur un de ses choix]
Merci.
C'est juste EXCELlent Merci infiniment.
Re-bonjour
Auriez-vous le code pour insérer deux choix dans la meme cellule active?
Cdt.
Bonjour
Précises le fond de ta pensée
2 choix sur 2, sur 20 ?
Il ne peut y avoir que 2 choix ?
Donc si pas 2 choix on ne fait rien
Ou alors tu veux dire tous les choix fait dans la listbox1 que l'on place en dessous de la cellule active
Si c'est ça modifies la macro
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer
a = ActiveCell.Row
b = ActiveCell.Column
For i = 0 To UserForm.ListBox.ListCount - 1
If UserForm.ListBox.Selected(i) = True Then
Cells(a + 1, b) = Cells(a + 1, b) & "," & UserForm.ListBox.List(i)
End If
Next
Cells(a + 1, b) = Mid(Cells(a + 1, b), 2)
ActiveCell.Offset(1, 0).BorderAround Weight:=xlMedium
Unload Me
End SubJe m'explique : Dans notre exemple , on active la selection multiple et on veut insérer les 2 choix [AAA] et [CCC] dans la cellule active séparée par "/" par exemple.
J'espère que c'est assez claire.
Je m'explique : Dans notre exemple , on active la selection multiple et on veut insérer les 2 choix [AAA] et [CCC] dans la cellule active séparée par "/" par exemple.
J'espère que c'est assez claire.
Dans tous les cas ça a marché en essayant votre code :
Activecell=Activecell &"/"& listebox.list (i) Merci.
Un petit souci que je ne parviens à résoudre : dans ma liste, un choix minimum est possible --> donc lorsqu'un seul choix est fait, il est inséré dans la cellule active précédé par "/" ce qui nous donne : [/AAA] par exemple.
j'espère que c'est assez claire.
Bonsoir
A tester
Private Sub CommandButton1_Click()
Dim I As Integer
ActiveCell.ClearContents
For I = 0 To Me.ListBox.ListCount - 1
If Me.ListBox.Selected(I) = True Then
ActiveCell = ActiveCell & "/" & Me.ListBox.List(I)
End If
Next I
ActiveCell = Mid(ActiveCell, 2)
Unload Me
End SubBonjour
Le code ne marche pas malheureusement --> Résultat inséré : / AAA [si un seul choix] & / AAA / BBB [si 2 choix].
J'ai remplacé " / " par " " en attendant de trouver une solution.
Bon début de journée.
Bonjour
En déclarant I as INTEGER & en supprimant l'espace entre "" et / (["/"] au lieu de [" / "]) ça marche quoique je ne vois pas le rapport.
Slt.
Bonjour
C'est la même macro que dans le message du 12 Fév 2013, 23:09
Il n'y a pas d'espace !!!!
C'est par ce que j'adapte le code à mon besoin et parfois j'apporte des modif qui à mon sens n'ont pas d'impact mais il s'avère que j'ai tort, au temps pour moi.
Je testerai l'autre code [ Doc Ver 0004]https://forum.excel-pratique.com/post207633.html?sid=5f61e79e98c234ddf682c9ff9982d558#p207633 et je vous tiendrai au courant.
Cdt.