VBA UserForm ListBox boucle

Fermé

bobtipitt - 22 mars 2008 à 18:13
bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 - 23 mars 2008 à 16:29

Bonjour,
Comment on fais pour faire une boucle qui va changer de ligne dans un listbox.
Voici le code.

Private Sub CommandButton1_Click()
Unload UserForm6
Load UserForm7
UserForm7.Show
End Sub

Private Sub CommandButton2_Click()
Unload UserForm6
Range("B12").Select
Selection.ClearContents
End Sub

Private Sub CommandButton3_Click()
Unload UserForm6
End Sub

Private Sub CommandButton4_Click()
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
y = y + 1
Range("G12:G35" & y).Value = .List(I)
End If
Next I
End With
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub TabStrip1_Change()
Load UserForm7
End Sub

Regarder a Commandebutton4

A voir également:

VBA UserForm ListBox boucle
Vba attendre 1 seconde ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
Mkdir vba ✓ - Forum VB / VBA
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système

3 réponses

Réponse 1 / 3

amigo
22 mars 2008 à 18:43

bonjour

Private Sub CommandButton4_Click()
dim l as integer
l=Me.ListBox1.ListCount - 1

For I = 0 To l
If Me.ListBox1.Selected(I) = True Then
y = y + 1
Range("G12:G35" & y).Value = Me.ListBox1.List(I)
End If
Next I

End Sub

Réponse 2 / 3

bobtipitt
23 mars 2008 à 13:29

Dacore mais moi ces le controleSource de la listbox que je veux changer, ma condition est: si il n'y a pas quelque chose d'écrit sur la ligne.... ("B12:B35")

Réponse 3 / 3

bobtipitt Messages postés 61 Date d'inscription dimanche 23 mars 2008 Statut Membre Dernière intervention 16 août 2010 2
23 mars 2008 à 16:29

Bonjour faites vite pour repondre a cette question et je me suis decider a me creer un compte

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

tele s'eteind et s'allume en boucle

bonjour, mon televiseur samsung led UE46D5700 (2011) s'allume et s'eteind en boucle j'ai enleve les piles de la telecommande, c'est pareil j'ai mis des pile neuves , meme probleme j'ai eteind la tele pendant 5 minutes et remis en route sans piles sur la telecommande, meme probleme ..idem avec les piles remises comment faire ? un conseil serai le bienvenu, par avance merci j'ai essaye avec une autre telecommande samsung qui fonctionnait avec auparavent , probleme idem

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...