With Worksheets("Renseignements")
If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("A8").Cells(i, 1)) = "Non signé" Then
ListBox1.AddItem .Range("A8").Cells(i, 1)
End If
Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je
pense, mais je ne sais pas faire cela ), ce sont des renseignements sur les
colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir ajouter
Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont vides)
En claire :
U : Mariage
B : MARTIN
C: Christophe
D: DUPOND
E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND Elise
Ou :
U : Repas dansant
B : Association
C: Tartenpion
D: Rien
E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si
cela n'est pas trés claire
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Re
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette colonne je récapitule les 4 autres pour une option que j'avais besoin, ailleurs.
Merci, Jacques "Jacques" a écrit dans le message de news: 42d81d70$0$22300$
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en colonne A, si Non Signé.
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) = "Non signé" Then ListBox1.AddItem .Range("A8").Cells(i, 1) End If Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je pense, mais je ne sais pas faire cela ), ce sont des renseignements sur les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont vides)
En claire :
U : Mariage B : MARTIN C: Christophe D: DUPOND E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND Elise
Ou :
U : Repas dansant B : Association C: Tartenpion D: Rien E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si cela n'est pas trés claire
Merci, d'avance, Jacques
Re
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette
colonne je récapitule les 4 autres pour une option que j'avais besoin,
ailleurs.
Merci, Jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
42d81d70$0$22300$8fcfb975@news.wanadoo.fr...
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en
colonne A, si Non Signé.
With Worksheets("Renseignements")
If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("A8").Cells(i, 1)) = "Non signé" Then
ListBox1.AddItem .Range("A8").Cells(i, 1)
End If
Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je
pense, mais je ne sais pas faire cela ), ce sont des renseignements sur
les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir
ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont
vides)
En claire :
U : Mariage
B : MARTIN
C: Christophe
D: DUPOND
E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND
Elise
Ou :
U : Repas dansant
B : Association
C: Tartenpion
D: Rien
E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si
cela n'est pas trés claire
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette colonne je récapitule les 4 autres pour une option que j'avais besoin, ailleurs.
Merci, Jacques "Jacques" a écrit dans le message de news: 42d81d70$0$22300$
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en colonne A, si Non Signé.
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) = "Non signé" Then ListBox1.AddItem .Range("A8").Cells(i, 1) End If Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je pense, mais je ne sais pas faire cela ), ce sont des renseignements sur les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont vides)
En claire :
U : Mariage B : MARTIN C: Christophe D: DUPOND E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND Elise
Ou :
U : Repas dansant B : Association C: Tartenpion D: Rien E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si cela n'est pas trés claire
Merci, d'avance, Jacques
Jacques
Re
J'ai essayé cela, mais en vain.
Private Sub CmdSigné_Click() ListBox1.Clear Dim i As Integer
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) <> "Non signé" Then
Merci, Jacques "Jacques" a écrit dans le message de news: 42d82403$0$20253$
Re
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette colonne je récapitule les 4 autres pour une option que j'avais besoin, ailleurs.
Merci, Jacques "Jacques" a écrit dans le message de news: 42d81d70$0$22300$
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en colonne A, si Non Signé.
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) = "Non signé" Then ListBox1.AddItem .Range("A8").Cells(i, 1) End If Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je pense, mais je ne sais pas faire cela ), ce sont des renseignements sur les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont vides)
En claire :
U : Mariage B : MARTIN C: Christophe D: DUPOND E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND Elise
Ou :
U : Repas dansant B : Association C: Tartenpion D: Rien E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si cela n'est pas trés claire
Merci, d'avance, Jacques
Re
J'ai essayé cela, mais en vain.
Private Sub CmdSigné_Click()
ListBox1.Clear
Dim i As Integer
With Worksheets("Renseignements")
If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("A8").Cells(i, 1)) <> "Non signé" Then
Merci, Jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
42d82403$0$20253$8fcfb975@news.wanadoo.fr...
Re
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette
colonne je récapitule les 4 autres pour une option que j'avais besoin,
ailleurs.
Merci, Jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
42d81d70$0$22300$8fcfb975@news.wanadoo.fr...
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en
colonne A, si Non Signé.
With Worksheets("Renseignements")
If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements
For i = 1 To .Range("A65536").End(xlUp).Row - 7
If (.Range("A8").Cells(i, 1)) = "Non signé" Then
ListBox1.AddItem .Range("A8").Cells(i, 1)
End If
Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je
pense, mais je ne sais pas faire cela ), ce sont des renseignements sur
les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir
ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont
vides)
En claire :
U : Mariage
B : MARTIN
C: Christophe
D: DUPOND
E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND
Elise
Ou :
U : Repas dansant
B : Association
C: Tartenpion
D: Rien
E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si
cela n'est pas trés claire
Private Sub CmdSigné_Click() ListBox1.Clear Dim i As Integer
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) <> "Non signé" Then
Merci, Jacques "Jacques" a écrit dans le message de news: 42d82403$0$20253$
Re
En faite les colonnes BCDE peuvent être remplacer par AI, car dans cette colonne je récapitule les 4 autres pour une option que j'avais besoin, ailleurs.
Merci, Jacques "Jacques" a écrit dans le message de news: 42d81d70$0$22300$
Bonsoir a toutes et tous
Voila, j'ai ce code pour récupérer des informatons suivant un critère en colonne A, si Non Signé.
With Worksheets("Renseignements") If .Range("A8") = "" Then Exit Sub 'aucune saisie en Renseignements For i = 1 To .Range("A65536").End(xlUp).Row - 7 If (.Range("A8").Cells(i, 1)) = "Non signé" Then ListBox1.AddItem .Range("A8").Cells(i, 1) End If Next i
Ce que j'aimerais ajouter dans cette ListBox (Qui sera multicolonne je pense, mais je ne sais pas faire cela ), ce sont des renseignements sur les colonnes choisie.
Donc les colonnes U et B à F, dans l'ordre sité, si possible pouvoir ajouter Entre U et B " de" et entre C et D ( Sauf si ces colonnes sont vides)
En claire :
U : Mariage B : MARTIN C: Christophe D: DUPOND E: Elise
Cela donnerai dans la ListBox : Mariage de MARTIN Christophe et DUPOND Elise
Ou :
U : Repas dansant B : Association C: Tartenpion D: Rien E: Rien
Cela donnerai dans la ListBox : Repas dansant de Association Tartenpion
Voila je ne sais si c'est possible et je me tiens a votre disposition si cela n'est pas trés claire
